VBA EXCEL_ recherche mot

Résolu/Fermé
Sansandrine Messages postés 87 Date d'inscription mardi 27 avril 2010 Statut Membre Dernière intervention 14 décembre 2015 - 18 mai 2010 à 12:19
Sansandrine Messages postés 87 Date d'inscription mardi 27 avril 2010 Statut Membre Dernière intervention 14 décembre 2015 - 18 mai 2010 à 14:16
Bonjour,

J'aimerais griser une partie de ma feuille quand ma cellule b2 contient le mot "rdc" mais le truc c'est que cette cellule b2 peut très bien contenir rdc haut et rdc bas et pleins d'autres phrase avec rdc.
Et il faut que ça soit griser pour tous ces cas de figure.
Je cherche donc une formule VBA qui serait en gros : quand ma cellule contient "rdc" ...

Voici le code que j'ai pour l'instant (mais ça ne me grise pas quand j'ai rdc haut par exemple)

Sub griser()

Range("b4:d5").Select

If Range("b2").Value <> "rdc" Then
Selection.Interior.Pattern = xlSolid
Selection.Interior.ColorIndex = xlNone
Else
Selection.Interior.Pattern = xlUp


End If

End Sub


Aussi ou devrais-je mettre ce code pour qu'il soit automatique sur ma feuille ?
Merci d'avance

1 réponse

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
18 mai 2010 à 13:49
Bonjour

if range("B2") like "*rdc*" then
0
Sansandrine Messages postés 87 Date d'inscription mardi 27 avril 2010 Statut Membre Dernière intervention 14 décembre 2015
18 mai 2010 à 14:16
Merci bien pour cette réponse !
Par contre j'ai un autre soucis, c'est qu'il ne veut plus me sélectionner autre chose que range b4:d5 quand je suis sur la feuille. Comment effacer ma selection une fois grisée, mais de façon à ce que lorsque je change la valeur de ma case b2 ça change automatiquement ma partie grisée.
j'ai essayé avec selection.end mais ça marche pas
0