bonjour,
 
Je cherche à copier des valeurs d'une feuille excel à une autre, dans un même classeur, en descendant d'une ligne à chaque fois.
La première fois, ça marche, mais la suivante, j'ai une "erreur définie par l'application ou par l'objet"
je ne comprends pas le problème, vu que ça a marché une fois o_O
 
Voici le code.
merci!
 
Sub copie()
Dim i As Integer
If Worksheets("results" ).Range("B4" ).Value = "0" Then
i = 4
Worksheets("results" ).Range("B4" ).Value = "1"
End If
 
Worksheets("results" ).Cells(i, 8).Value = Worksheets("datas" ).Range("AG9" ).Value  'erreur la 2e fois
Worksheets("results" ).Cells(i, 5).Value = Worksheets("datas" ).Range("AG10" ).Value
Worksheets("results" ).Cells(i, 6).Value = Worksheets("datas" ).Range("AG11" ).Value
i = i + 1
 
End Sub

Si ça marche la première fois, c'est parce que "Worksheets("results" ).Range("B4" ).Value = "0"" est vrai, et i est initialisé à 4. Ce ne sera pas le cas la 2è fois car cette condition sera fausse (changement de valeur de ta cellule à "1" au 1er passage).
 
Du coup, quand tu appelles la cellule Cells(0,8), ça plante.
 
EDIT : car si i n'est pas initialisé, il va prendre la valeur 0, j'avais pas précisé.

ha que je suis c**, si je sors de la procédure, i disparait ^^
merci !j'ai pas vérifié mais je le ferait au boulot mardi, ça doit etre ça
 
merci^^