Supprimer lignes SI 2 lettres présentes dans une colonne

[Pygouv]

Bonjour à tous,

Je souhaite supprimer les lignes de ma base de donnée SI dans ma colonne C, j'ai "CL" après mes noms de magasins...

J'utilise ce code ci :

Sub Supprimerligne()
Dim a As Long
Dim b As Long
a = Range("A65536").End(xlUp).Row
For b = a To 1 Step -1
If Cells(b, 3).Value = "CL" Then
Rows(b).Delete
End If
Next b

Malheuresement cette macro ne supprime que les lignes si il y a seulement "CL" dans la cellule de la colonne C, et non les CL figurant à la fin des noms de magasins...

Ma base de donnée est faite comme ceci :
Col C :
PARIS
PARIS CL
MONTPELLIER
NANTES
STRASBOURG CL
BORDEAUX
BORDEAUX CL
VALENCE
UNI CL
BOURGES
BOURGES CL

je souhaites la même liste sans les "nom de magasin CL"

Merci à tous si vous avez une solution...

 

[Pierrot93]

Re : Supprimer lignes SI 2 lettres présentes dans une colonne

Bonjour,

essaye peut être ceci :

If Cells(b, 3).Value Like "*CL" Then

bonne journée
@+

 

[Pygouv]

Re : Supprimer lignes SI 2 lettres présentes dans une colonne

Bonjour,

Merci pour ta réponse.

Cela ne fonctionne pas ... les lignes sont toujours présentes

 

[Pierrot93]

Re : Supprimer lignes SI 2 lettres présentes dans une colonne

Re,

il y a quelquechose derrière CL... une espace ou autre ?

 

[Pygouv]

Re : Supprimer lignes SI 2 lettres présentes dans une colonne

Au temps pour moi je l'avais coller sur le mauvais bouton de mon outil

Cela marche parfaitement je te remercie beaucoup!

 

[Pygouv]

Re : Supprimer lignes SI 2 lettres présentes dans une colonne

J'en profite pour te demander si tu connaitrai une solution pour mon autre soucis ...

Lien : https://www.excel-downloads.com/thr...m-automatique-dans-le-titre-dun-graph.206228/