Besoin d'aide pour une boucle

Fermé
nat 66 - 16 mars 2007 à 10:51
Kobaya Messages postés 282 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 10 janvier 2008 - 16 mars 2007 à 11:53
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

2 réponses

jpzuate Messages postés 56 Date d'inscription dimanche 4 mars 2007 Statut Contributeur Dernière intervention 9 juin 2008 51
Modifié le 16 mars 2007 à 11:53
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
0
Kobaya Messages postés 282 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 10 janvier 2008 214
16 mars 2007 à 11:53
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.

0