XL 2016 Archives données Excel sous conditions

[Hayaa]

Bonjour à tous,
Dans mon fichier excel j'ai créé un suivi de panne. Dans la feuille 1, il y a toutes les pannes déclarées (qui sont réparées ou qui sont en attente de réparation) et je veux dans la feuille d'archive copier ou archiver toutes les déclarations de pannes qui sont réparées (ou il y a pas une alerte) uniquement.
Je suis débutante en Excel vba et j'ai pas trouvé ma solution sur internet. Voilà un exemple de mon fichier
je vous remercie d'avance!

 

[sylvanu]

Bonjour Hayaa, et bienvenu(e) sur XLD,
Un essai en PJ avec :

Sub Archive()
    Dim DL%, DLA%, L%, C%
    Application.ScreenUpdating = False
    DL = [A65500].End(xlUp).Row             ' Dernière ligne occupée
    With Sheets("Archive")
        DLA = .[A65500].End(xlUp).Row + 1   ' Première ligne vide d'archive
        For L = DL To 2 Step -1
            If Cells(L, "F") <> "" Then     ' Si date fin non vide alors on archive
                For C = 1 To 10             ' On transfert les 10 cellules
                    .Cells(DLA, C) = Cells(L, C)
                Next C
                DLA = DLA + 1               ' Prochaine ligne d'écriture archive
                Rows(L).Delete Shift:=xlUp  ' Suppression de la ligne archivée
            End If
        Next L
    End With
End Sub

NB : dans la feuille Archive j'ai supprimé la colonne "Matériel" qui ne correspondait à rien de la base de travail.

 

[Hayaa]

Bonjour sylvanu,
Je vous remercie pour votre réponse!
C'était exactement ce que je voulais mais y a un petit soucis dans le code que lorsque je veux rajouter des données dans le tableau de la feuille 1 et je clique sur archive ca recopie pas les données meme si la date fin n'est pas vide. Comment je peux résoudre ce problème?

 

[sylvanu]

Re,
Je viens d'essayer, je ne vois pas de problème.
Pouvez vous préciser ?
Voici ce que j'obtiens :

NB: Pour les nouvelles lignes il faut absolument que la colonne A soit remplie car c'est cette colonne que j'utilise pour détecter la dernière ligne à traiter.

 

[Hayaa]

SUPERR!
Merci beaucoup oui c'était ca le problème j'avais pas rempli la colonne A
Bonne journée

 

[sylvanu]

Dans le fichier que vous présentez, toutes les colonnes sont inutiles si la ligne n'est pas référencée par un N° d'intervention.
C'est sur cette hypothèse que je suis parti.

 

[Hayaa]

Dans le fichier que vous présentez, toutes les colonnes sont inutiles si la ligne n'est pas référencée par un N° d'intervention.
C'est sur cette hypothèse que je suis parti.

C'est vraii