Boucle for step-1

blalaa Messages postés 167 Date d'inscription   Statut Membre Dernière intervention   -  
blalaa Messages postés 167 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

1 réponse

jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
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.


0
blalaa Messages postés 167 Date d'inscription   Statut Membre Dernière intervention  
 
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
0