stella69670
XLDnaute Nouveau
Bonjour,
J'ai pu mettre en place le fichier suivant avec le bouton 4 qui me coupe/colle la ligne (si I = ok) dans l'onglet archives.
Toutefois, il me colle les lignes au mauvais endroit
Je ne parviens pas à trouver où se trouve mon erreur ?
Merci
J'ai pu mettre en place le fichier suivant avec le bouton 4 qui me coupe/colle la ligne (si I = ok) dans l'onglet archives.
Toutefois, il me colle les lignes au mauvais endroit
Je ne parviens pas à trouver où se trouve mon erreur ?
VB:
Sub Bouton4_Cliquer()
A = Worksheets("Feuil1").Cells(Rows.Count, 2).End(xlUp).Row
For i = A To 2 Step -1
If Worksheets("Feuil1").Cells(i, 9).Value = "ok" Then
Worksheets("Feuil1").Rows(i).Copy Worksheets("Archives").Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
Worksheets("Feuil1").Rows(i).EntireRow.Delete
End If
Next
End Sub
Merci