Macro couper une ligne dans une autre feuille

Bonjour,

Comme je suis un peu nouille sur les macros, pouvez-vous m'aider à résoudre le petit soucis suivant :

J'ai créé une macro pour déplacer des lignes remplissant une condition (cellule I=ok) dans une autre feuille que j'ai appelé "archive".

Jusque là tout va bien (j'ai juste adapté ce que j'ai pu trouver sur ce site).

Mon problème est que les lignes copiées ne s'effacent pas de la première feuille, et que si je le fais moi-même par la suite, lorsque j'exécute ma macro avec de nouvelles lignes "ok", dans ma feuille "archive" les lignes nouvelles écrasent les anciennes. Ce que je voudrais c'est qu'elles viennent s'ajouter à celles déjà "archivées".

Je vous joins le fichier test que j'ai fait... je ne sais pas si j'ai été bien clair sur ce dont j'ai besoin.... ?

En tout cas, merci pour ce que vous pourrez faire ou pas

Bonne journée

Zog

Bonjour,

Essaie avec ce code

Sub test()
Dim dlg As Integer, lg As Integer, i As Integer
With ActiveSheet
    dlg = .Range("A" & Rows.Count).End(xlUp).Row
    For i = dlg To 2 Step -1
        If UCase(Range("I" & i)) = "OK" Then
            lg = Sheets("ARCHIVE").Range("A" & Rows.Count).End(xlUp).Row + 1
            .Range("A" & i & ":I" & i).Copy Sheets("ARCHIVE").Range("A" & lg)
            .Rows(i).Delete
        End If
    Next
End With
End Sub

Code à associer avec ton bouton sur ta feuille

Si ok, merci de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER

Amicalement

Merci beaucoup, ça fonctionne nickel !

C'est exactement ce que je voulais !

Amicalement

Zog