XL 2013 Copier / coller / supprimer dans un tableau vers un autre selon une condition

sylvanu à dit:

Bonsoir Dae_mon,
Un essai en PJ avec :

VB:

Sub transfert()
    Dim Lbase%, L%, C%
    Application.ScreenUpdating = False
    Lbase = [Archivage].Rows.Count                              ' Nombre de lignes de Archivage
    For L = 1 To [Base].Rows.Count                              ' Pour toutes les lignes de Base
        If LCase([Base[Colonne 3]].Item(L)) = "fait" Then       ' Si "Fait" en colonne 3 ( casse ignorée )
            If [Archivage].Item(Lbase, 1) <> "" Then
                [Archivage].ListObject.ListRows.Add             ' Add row si première ligne
                Lbase = Lbase + 1                               ' Ajuste nb lignes
            End If
            [Archivage].Rows(Lbase).Value = [Base].Rows(L).Value ' ' Transfert de Base vers Archivage
            '[Archivage].Item(Lbase, 3) = Date                   ' Isertion date ds Archivage ( non activée )
            Lbase = Lbase + 1                                   ' Prochaine ligne d'écriture dans Archivage
            [Base].ListObject.ListRows(L).Delete                ' Suppression de la ligne dans Base
            L = L - 1                                           ' Réindexation de la prochaine ligne à traiter
        End If
    Next L
End Sub

Comme dans Archivage la 3eme colonne vaudra toujours "Fait" elle semble inutile. On peut la remplacer par la date d'archivage. Dans ce cas validez la ligne: [Archivage].Item(Lbase, 3) = Date

Cliquez pour agrandir...