VBA Couleur cellule en ignorant la casse

Le
Domi
Bonjour à tous,
Si une cellule contient le mot "Maison", ce petit bout de code colorie la
cellule située 5 colonnes à droite

If c.Value = "maison" Then c.Offset(0, 5).Interior.ColorIndex = 4

Ma question est double :

1°) Quelle correction faut-il apporter à cette ligne pour ignorer la casse ?
La couleur doit s'applique quelle que soit la façon dont "maison" est écrit
(Maison, MAISON, MaiSON etc!)

2°) Comment colorier en même temps les deux cellules situées à droite en
4ème ET 5ème position (au lieu de la 5ème seule actuellement)

Merci pour votre aide
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #19585761
Bonjour Domi,

Essaie ceci :

If LCase(c.Value) = "maison" Then c.Offset(0, 4).Resize(, 2).Interior.ColorIndex = 4




"Domi" #
Bonjour à tous,
Si une cellule contient le mot "Maison", ce petit bout de code colorie la
cellule située 5 colonnes à droite

If c.Value = "maison" Then c.Offset(0, 5).Interior.ColorIndex = 4

Ma question est double :

1°) Quelle correction faut-il apporter à cette ligne pour ignorer la casse ?
La couleur doit s'applique quelle que soit la façon dont "maison" est écrit
(Maison, MAISON, MaiSON etc...!)

2°) Comment colorier en même temps les deux cellules situées à droite en
4ème ET 5ème position (au lieu de la 5ème seule actuellement)

Merci pour votre aide
Publicité
Poster une réponse
Anonyme