Archivage d'une ligne dans une autre feuille à partir d'une valeur définie

Bonjour à tous ,

Sur le fichier en PJ, j'aimerais que quand j'appuie sur la forme "Archivage" (en haut en rouge), l'ensemble de mes lignes avec la colonne "PDCA" (colonne N) ou est renseigné la valeur 4, soient coupées et collées dans la page Archivage.

Exemple :

Sur le fichier en PJ, la ligne 5, avec le n° 197, il y à le chiffre 4 renseigné dans la colonne PDCA.

Quand je vais appuyer sur le bouton "Archivage" en rouge, je souhaite que cette ligne soit envoyée sur la page "Archivage" dans le tableau.

PS : Il ne faut pas que les archives s'écrasent au fur et à mesure. Le but étant de créer un historique des interventions.

Pouvez-vous m'aider à créer le code VBA qui correspond à ma demande ?

En vous remerciant par avance pour votre aide et vos conseil.

Bonjour

Et la ligne archivée, on en fait quoi ?
Elle doit être supprimée de la feuille PCDA ?

Cordialement

Bonjour Dan,

Oui, l'objectif est de ne pas encombrer la première page pour ne laisser que les sujets en cours.

C'est une bonne remarque

Bonjour,

essayez avec ce code :

Sub archive()
Dim dlg As Integer, i As Integer
Dim j As Byte
Dim tablo()

tablo = Worksheets("PDCA").ListObjects("Tableau1").DataBodyRange.Value
For i = UBound(tablo) To 1 Step -1
    If tablo(i, 13) = 4 Then

        With Worksheets("Archivage").ListObjects("Tableau2")
            If .ListRows.Count = 0 Then
                .ListRows.Add: lig = 1
            Else: .ListRows.Add: lig = .ListRows.Count 'insérer à la dernière ligne
            End If
            With .DataBodyRange
                For j = 1 To 17
                    .Item(lig, j) = tablo(i, j)
                Next j
            End With

        End With
        Worksheets("PDCA").ListObjects("Tableau1").ListRows(i).Range.Delete
    End If
Next i
End Sub

si ok -->

Cordialement

Bonjour,

Je vous remercie ! Cela marche parfaitement.

très belle journée à vous.