XL 2010 Supprimer ligne si valeur cellule présente dans liste

[Alma.187]

Bonjour,
Je souhaiterais créer une macro qui va supprimer des lignes d'une feuille Excel si la ligne ne contient pas l'une des valeurs présente dans une autre feuille Excel.
Exemple :
Feuille1 colonne : Nom, Prénom, NuméroID
Feuille2 colonne : NuméroID (A2=123; A3=234; A4=345)
Supprimer toutes les lignes de la Feuille1 qui ne contiennent pas les valeurs de la Feuille2.
Ça parait simple mais pas pour une novice.
Avez-vous une solution ou un début de piste ?
Merci

 

[job75]

Bonsoir Alma.187, bienvenue sur XLD,

C'est un problème assez compliqué qui n'est pas à la portée d'une novice.

Mais si vous y tenez, joignez votre fichier réel, sans données confidentielles.

A+

 

[Alma.187]

Je viens de trouver une équivalent sur le forum.
J'ai adapté le code suivant et ça fonctionne parfaitement.

Private Sub CommandButton21_Click()
Application.ScreenUpdating = False
CommandButton21.Placement = 3 'évite le déplacement (visible)
With [A1].CurrentRegion.Offset(1)
.Columns(1).EntireColumn.Insert 'colonne auxiliaire
.Columns(0) = "=1/SIGN(COUNTIF(H:H,B2))"
.Columns(0) = .Columns(0).Value 'supprime les formules
Union(.Columns(0), .Cells).Sort .Columns(0), xlAscending, Header:=xlNo 'tri pour accélérer
Intersect(.Columns(0).SpecialCells(xlCellTypeConstants, 16).EntireRow, .Cells).Delete xlUp
.Columns(0).EntireColumn.Delete 'suppression de la colonne auxiliaire
End With
CommandButton21.Placement = 2 'état initial
With UsedRange: End With 'actualise les barres de défilement
End Sub

Merci🙂