Menu

Boucle for step-1

Messages postés
129
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
16 mai 2019
-
Bonjour,


je travaille sur un code avec la boucle for = derlin to 2 step-1 :

derlin=  Worksheets(b).Range("a65000").End(xlUp).Row
For ii = derlin To 2 Step -1
If Worksheets(b).Cells(i, 1) = Workbooks(wb).Worksheets(b).Cells(ii, 1) And Worksheets(b).Cells(i, 5) = Workbooks(wb).Worksheets(b).Cells(ii, 5) And Worksheets(b).Cells(i, 6) = Workbooks(wb).Worksheets(b).Cells(ii, 6) Then
lin = Worksheets(b).Cells(i, 1).Row
Workbooks(wb).Worksheets(b).Rows(ii).Cut Workbooks(wb).Worksheets(b).Rows(lin)
End If
Next ii


maintenant je veux que monde traite mes instruction en commencant par la 2 eme ligne jusqua derlin ( qui est ma derniere ligne) mais sans avoire changer la boucle ,

exemple

Workbooks(wb).Worksheets(b).Rows(ii).Cut Workbooks(wb).Worksheets(b).Rows(lin)

la le code traite le couper coller en commençant de a derniere ligne

maintennat je veux quil commence de la 2 eme ligne vers la derniere

ya t il un moyen de le faire sil vous plait

je vous remerci davance
Afficher la suite 

Votre réponse

1 réponse

Messages postés
25547
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 mai 2019
1976
0
Merci
Bonjour,

Si tu "coupes" une ligne...ça décale toutes celles qui sont en dessous vers le haut.
C'est pour ça qu'on fait toujours ce genre de boucle en partant du bas.


blalaa
Messages postés
129
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
16 mai 2019
-
bonjour
pour etre plus claire , le code fait la comparaison de bases de données, ce code fonctionne bien dans le cas ou on a insere d'autre lignes dans la base de donnée source mais dans le cas ou on suprime des lignes dans la BDD sources le code ne fonctionne pas , je ne sais pas pour koi

avez vous une ideé SVP ?
merci
Commenter la réponse de jordane45