VBA EXCEL_ recherche mot

Résolu
Sansandrine Messages postés 88 Date d'inscription   Statut Membre Dernière intervention   -  
Sansandrine Messages postés 88 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 1
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour

if range("B2") like "*rdc*" then
0
Sansandrine Messages postés 88 Date d'inscription   Statut Membre Dernière intervention  
 
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

Discussions similaires

Mot de passe administrateur Freebox : où le trouver ?
Utilisateur anonyme -
Marie -

7 réponses
Trouver le mdp administrateur freebox ?
Cousyn -
Pierr10 -

1 réponse