effacer une cellule si elle contient une partie de la valeur d'une autre cellule

michel.dupont

XLDnaute Occasionnel
bonjour
comment en VBA effacer une cellule si son contenu ne comprend pas une partie du texte d'une autre cellule (en l’occurrence A1)
j'ai essayé
If cell.Value <> cell.Value like("*"&A1&"*") Then cell.ClearContents
mais bug!!!
un grand merci pour votre aide
Michel
 

phlaurent55

Nous a quittés en 2020
Repose en paix
Bonjour Michel,

essaie ceci:

If cell.Value Like ("*" & [A1] & "*") = True Then cell.ClearContents
pour effacer si la cellule contient ce qui se trouve en A1

ou ceci dans le cas contraire
If cell.Value Like ("*" & [A1] & "*") = False Then cell.ClearContents
pour effacer si la cellule ne contient pas ce qui se trouve en A1

à+
Philippe
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
287 410
Messages
1 883 422
Membres
162 895
dernier inscrit
Denis50
Haut Bas