Supprimer des lignes en appliquant une condition sur une col

Bonjour à tous,

J'aurais besoin de votre aide. En piece jointe, vous retrouverez mon fichier. En feuille2 de mon fichier j'ai une liste de nom et en Feuille1, j'ai plein de lignes et chaque ligne commence avec un nom en colonne A. Ma demande est la suivante: Je voudrais un macro qui puisse supprimer toutes les lignes en feuille 1 qui contiennent en colonne A un des noms qui se trouve dans la liste de noms en feuille 2.

En clair, il faudrait qu'à la fin du macro, on ne retrouve plus aucune ligne qui commence en colonne A avec des noms de la liste de noms en feuille2.

Quel macro faut-il exécuter pour supprimer toutes ces lignes ?

Cliquez sur le lien pour télécharger la pièce jointe

Je vous remercie d'avance pour votre aide

jorgeou

Bonjour,

Regarde le fichier joint.

Notamment dans la feuille 2, où j'ai réorganisé un peu ton tableau de critères.

Puis appuie sur le bouton jaune...

Le code :

Sub Suppression()
Application.ScreenUpdating = False
With Sheets("Feuil2")
    .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row).Name = "Senator"
End With
With Sheets("Feuil1")
    ActiveWorkbook.Names.Add Name:="base", RefersToR1C1:= _
        "=OFFSET(Feuil1!R1C1,,,COUNTA(Feuil1!C1),COUNTA(Feuil1!R1))"
    .Range("base").AdvancedFilter Action:=xlFilterInPlace, _
        CriteriaRange:=Sheets("Feuil2").Range("Senator")
    If MsgBox("Confirmez-vous la suppression?", vbYesNo) = vbYes Then
        .Range("_FilterDataBase").Offset(1, 0).Resize(.Range("_FilterDataBase"). _
            Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
        .ShowAllData
    Else
        MsgBox "Annulé"
    End If
End With
End Sub

Le fichier :

Bon courage

Bonjour

Bonjour cousinhub

Un essai

Re-,

Salut Banzai...

Juste pour info, avec le filtre élaboré (et sans le msgbox de confirmation, bien sûr), temps de suppression : 0.05 seconde

Avec les formules : 1.36 seconde

Comme quoi, un filtre élaboré est quand même plus rapide

Bonne semaine (et bonnes vacances, le cas échéant)

Bonjour

Oui j'ai vu ça et c'est stocké dans mes trucs et astuces (faudra juste que je m'en rappelle quand j'en aurais besoin)

Bonnes Vacances

merciiiiiiiiiiiiiiiiiiiiii les gars ! vous etes des genies )))