Besoin d'aide pour une boucle

Question

Au secours au secours
j'aurais besoin d'aide pour une boucle
J'essaie de copier coller des données depuis une première page vers une autre. le premier enregistrement fonctionne mais lorsque je souhaite que l'opération recommence à chaque fois que je clique sur le bouton de commande. Mais on lieu de s'inscrire sur la ligne suivante, les données sont écrasées !!

Private Sub ENREGISTRER_Click()

i = 2
Do

i = i + 1

Loop Until Cells(i, 2) = ""
i = 2

Do
i = i + 1
Loop Until Cells(i, 2) = ""
If Cells(i, 2) = "" Then Worksheets("Cotation").Range("DJ").Copy
 

ActiveSheet.Paste Destination:=Worksheets("Liste Cotations").Cells(i + 1, 2)

Worksheets("Cotation").Range("Client").Copy
ActiveSheet.Paste Destination:=Worksheets("Liste Cotations").Cells(i + 1, 5)

Worksheets("Cotation").Range("CP_Départ").Copy
ActiveSheet.Paste Destination:=Worksheets("Liste Cotations").Cells(i + 1, 6)

Worksheets("Cotation").Range("Ville_Départ").Copy
ActiveSheet.Paste Destination:=Worksheets("Liste Cotations").Cells(i + 1, 7)

End Sub

Merci de votre aide

jpzuate · Answer

Hello, 

Ton i=i+1 est à l'extérieur de ta boucle (avant le Loop until) ... n'y a t il point là un rapport ? ;-) 
Jean-Pierre Zuate

Kobaya · Answer

bonjour nat 66,

Dans ton code, la variable i est initialisée 2 fois.
A priori, le i = 2 après Loop Until Cells(i, 2) = "" fait que tes collages s'opèrent dès le début de tes données.

Besoin d'aide pour une boucle

2 réponses

Votre réponse

Discussions similaires

Newsletters