Supprimer des lignes en appliquant une condition sur une colonne

[josanche]

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 http://db.tt/JM7oyXOs

Je vous remercie d'avance pour votre aide 🙂

jorgeou

 

[Modeste geedee]

Re : Supprimer des lignes en appliquant une condition sur une colonne

Bonsour®

petit préalable :
en feuille 1 supprimer la ligne vide aprés les entetes
en feuille2 nommer la plage contenant la liste des noms à supprimer :
NOMS


dans un module standard :

Sub Macro1()
Dim rtbl As Range
Dim nom As Range
On Error Resume Next
Range("A1").Select
Selection.AutoFilter
For Each nom In Range("NOMS")
ActiveSheet.Range("$A$1:$CK$1136").AutoFilter Field:=1, Criteria1:=nom
Set rtbl = Selection.CurrentRegion
rtbl.Offset(1, 0).Resize(rtbl.Rows.Count - 1, rtbl.Columns.Count).Select
Selection.SpecialCells(xlCellTypeVisible).EntireRow.Delete
Next
Set rtbl = Nothing
End Sub

 

[josanche]

Re : Supprimer des lignes en appliquant une condition sur une colonne

Coucou Modeste,

J'ai essayé votre solution mais ca na pas marché. C'est sans doute car je suis nul en macro lol. Vous pouvez m'envoyer le fichier avec la solution ?

Merci d'avance

 

[Modeste geedee]

Re : Supprimer des lignes en appliquant une condition sur une colonne

Coucou Modeste,

J'ai essayé votre solution mais ca na pas marché. C'est sans doute car je suis nul en macro lol. Vous pouvez m'envoyer le fichier avec la solution ?

Merci d'avance

http://cjoint.com/?BGxpj44jkrS

 

[josanche]

Re : Supprimer des lignes en appliquant une condition sur une colonne

Merciiiiiiiiiiiiiiii