Supprimer des lignes à partir d'une liste de mots clés

  • Initiateur de la discussion Initiateur de la discussion kitten13
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

kitten13

XLDnaute Nouveau
Bonjour,

à partir de la fonction que @Boisgontier a créée, j’aimerais supprimer les lignes dont la cellule de la colonne A contient l’un des mots clés prédéfinie dans une liste (Renault, fiat, BMW, etc.).

Mais je sèche sur la façon de boucler sur un array avec la fonction Like...

Merci pour votre aide 😉

Code:
Sub supLignesRapide2()
  Application.ScreenUpdating = False
  a = Range("A1:A" & [A65000].End(xlUp).Row)
  For i = LBound(a) To UBound(a)
    If a(i, 1) Like "*Renault*" Then a(i, 1) = "sup" Else a(i, 1) = 0
  Next i
  Columns("b:b").Insert Shift:=xlToRight
  [B1].Resize(UBound(a)) = a
  [A1].CurrentRegion.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess
  On Error Resume Next
  Range("B1:B65000").SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete
  Columns("b:b").Delete Shift:=xlToLeft
End Sub
 
Dernière édition:
Re : Supprimer des lignes à partir d'une liste de mots clés

Bonjour,

Je ne comprends pas votre réaction, j'ai supprimé la PJ juste parce qu'elle contient des données confidentielles.
Je ne vous jette pas la pierre, ça arrive... 🙂

En espérant que vous reviendrez sur votre décision et toutes mes excuses si vous trouvez que l'accueil n'a pas été à la hauteur... 🙁

Bonne journée

David
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
235
Réponses
2
Affichages
771
Retour