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

[michel.dupont]

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]

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

 

[Dranreb]

Bonjour.

If Not cell.Value Like("*"& [A1].Value &"*") Then cell.ClearContents

 

[michel.dupont]

impecc...merci à tous
Michel