Transfert ligne vers autre feuille Excel sous conditions

Bonjour à tous,

Ce sujet a déjà été traité à plusieurs reprise, mais je n'arrive à adapter les codes trouvés à mon fichier.

Je souhaite tout simplement que dans le tableau de la feuille "Suivi des Travaux DS", selon les 2 conditions ci dessous réunies, que la ligne concernée soit déplacée vers la feuille Archives

conditions:

• colonne M à 100%
• colonne O remplie (date)

Si quelqu'un peut m'aider s'il vous plait

Petu

Bonjour petula972

Essaie de remplacer ta macro par celle-ci

Sub Archiver()
Set I = Worksheets("Suivi des Travaux DS") 'définit l'onglet I
Set H = Worksheets("Archives Travaux DS") 'définit l'onglet H

DlST = 5 'première ligne à vérifier
Do While Not IsEmpty(I.Range("B" & DlST))
    DlST = DlST + 1
Loop
DlST = DlST - 1
DlAt = 5 'première ligne à vérifier
Do While Not IsEmpty(I.Range("B" & DlAt))
    DlAt = DlAt + 1
Loop
For ind = 5 To DlST

    If I.Cells(ind, 13).Text = "100%" And I.Cells(ind, 15) <> "" Then
        I.Rows(ind).Copy H.Rows(DlAt)
        I.Rows(ind).Delete
        ind = ind - 1
        DlAt = DlAt + 1
        DlST = DlST - 1
    End If

Next
End Sub

A+

Bonjour Patty5046,

La macro fonctionne à merveille, mais pas instantanément.

Je devrais créer un bouton pour son exécution.

Peux tu m'aider s'il te plait.

Petu

Bonjour Petu

Je t'ai mis le bouton sur ta 1ère page

Bye

Patty5046,

Le lien ne fonctionne pas apparemment.

Petu

Bonsoir

Le fichier était trop gros ...donc là tu n'as que la 1ère page juste pour voir le bouton qui est associée à la macro

Suis en WE

A +

Bonsoir,

Merci Patty5046 et bon WE

Petu