Boucle For step-1


#1

bonjour

je travaille sur un code avec la boucle for :

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 commancant 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


#2

Bonjour,

Sans changer le For, ça me semble difficile