Deplacer avec condition une ligne d'une feuille à une autre

[Gigi12]

Bonjour à tous,
Je sais que cette question est souvent posée, mais ne connaissant pas du tout VBA, je ne parviens pas a adapter les programmes que j'ai pu trouver !!!
Je souhaite déplacer une ligne complète d'une feuille excel (active)vers une autre (archive) si la valeur contenue dans la colonne "R" (par exemple) est égale à 0.
Une fois archivée, la ligne devra être supprimée de la feuille (active).
Le tableau composé dans la feuille (active) comportera un très grand nombre de lignes, il faudrait pouvoir "ratisser" large !
Les deux tableaux (active) et (archives) seront construit de manière tout à fait identique, et la première ligne devra être une ligne d'entête.
J'espère vous avoir tout dit, mille merci de votre aide par avance.
Biz.
Gigi12

 

[Cousinhub]

Re : Deplacer avec condition une ligne d'une feuille à une autre

Bonjour, regarde le fichier joint, et reviens si problèmes

Edit :Re-,
Skoobi 🙂, tu as entièrement raison, erreur de jeunesse, j'enlève mon fichier 😡

 

[skoobi]

Re : Deplacer avec condition une ligne d'une feuille à une autre

Bonjour bhbh Gigi12,

une autre macro, "bouclant" de "bas en haut":

Sub Macro2()
Dim lig As Integer
Dim lig2 As Integer
With ActiveSheet
For lig = .Range("R65536").End(xlUp).Row To 2 Step -1
    lig2 = Sheets("archive").Range("R65536").End(xlUp).Row
    If .Range("R" & lig).Value = 0 Then
        .Rows(lig).Cut Sheets("archive").Rows(lig2 + 1)
        .Rows(lig).Delete Shift:=xlUp
    End If
Next
End With

 

[Gigi12]

Re : Deplacer avec condition une ligne d'une feuille à une autre

Très chers bhbh & Skoobi,
Merci de votre efficacité et rapidité.
Le programme fonctionne c'est un délice !!
@ bientôt.
Gigi12