[XL-2000] Générique (*) dans une condition ?

[PICHOUX]

Bonjour, c'est ma première entrée, merci de votre accueil.

Dans une boucle qui explore une zone, je voudrais colorer les cellules-texte qui contiennent "toto" . J'ai essayé les 2 codes ci-après ... qui ne marchent pas :

Code :

If Selection Like "*toto*" Then Selection.Interior.ColorIndex = 4

Code :

If Selection = "*toto*" Then Selection.Interior.ColorIndex = 4

Où est l'erreur ? - Merci

[corona]

Bonsoir,
La syntaxe est bonne mais sans doute sensible à la casse. Fait précéder ton test pas Ucase

Code :

1
2
3
If UCase(Selection) Like UCase("*toto*") Then
 Selection.Interior.ColorIndex = 5
End If

[jfontaine]

Bonjour et bienvenue,

Tu as aussi la possibilité d'une Mise en Forme Conditionnelle (MFC) qui évitera de coder cet affichage

Sinon, ci dessous une méthode avec VBA

Code :

if InStr(selection.Value, "toto")>0 then Selection.Interior.ColorIndex = 4

[corona]

Bonsoir,
Je n'avais pas vu que la question était dans le groupe Exel et pas VBA.
Comme l'a justement fait remarquer jFontaine que je salue au passage, tu peux appliquer une mise en forme conditionnelle aux cellules concernées en mettant cette formule

Code :

=CHERCHE("toto";A2)>1

[PICHOUX]

Merci pour la solution VBA
La MFC ne convient pas car il s'agit d'une feuille provisoire de traitement selon de multiples critères possibles toto, tata, coco etc. selon les cas.
De plus la solution générale m'intéresse pour d'autres traitements.
Grand merci encore