VBA EXCEL_ recherche mot [Résolu/Fermé]

Signaler
Messages postés
87
Date d'inscription
mardi 27 avril 2010
Statut
Membre
Dernière intervention
14 décembre 2015
-
Messages postés
87
Date d'inscription
mardi 27 avril 2010
Statut
Membre
Dernière intervention
14 décembre 2015
-
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

Messages postés
16318
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
2 décembre 2020
3 083
Bonjour

if range("B2") like "*rdc*" then
Messages postés
87
Date d'inscription
mardi 27 avril 2010
Statut
Membre
Dernière intervention
14 décembre 2015

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