Identification d'une chaîne de caractère dans une cellule

[Fab117]

Salut,
Je souhaite effacer toutes les cellules qui ne contiennent pas le mot <<toto>>. Le problème est qu'il peut y avoir d'autres mots dans le cellule (p. ex. <<que fait toto33 à l'école>>)
=> <<If Range("A" & i) <> "toto" then>> ne fonctionne pas.
Quelqu'un pourrait-il svp me donner le code permettant d'identifier une chaine de caractère dans une cellule ?
Merci par avance.

Fab

 

[Creepy]

Re : Identification d'une chaîne de caractère dans une cellule

Bonjour le Forum, Fab117,

If instr(1,Range("A" & i).value,"toto") <>0 then

Instr recherche si le texte est présent dans la cellule, la varaible, quelque soit sa position.

@+

Creepy

 

[kjin]

Re : Identification d'une chaîne de caractère dans une cellule

bonjour,
Une autre solution en utilisant l'opérateur Like

If Range("A" & i) Like "*toto*" Then ...

A+
kjin

 

[Fab117]

Re : Identification d'une chaîne de caractère dans une cellule

Super,
Merci beaucoup Creepy.

Fab

 

[kjin]

Re : Identification d'une chaîne de caractère dans une cellule

Re,

Salut,
..Je souhaite effacer toutes les cellules qui ne contiennent pas le mot <<toto>>...

Il faut bien sûr écrire

If Not Range("A" & i) Like "*toto*" Then ...

A+
kjin