Changer la couleur de cellule sur une plage par VBA...

[Lapou]

Bonjour tout le monde !

Quel code dois-je écrire pour que si H1 = "Mineur", la fond de H1 et J1 soit jaune, si = "Majeur", le fond soit orange et si ) "Critique le fond soit rouge ?

J'aimerais que ce paramètre s'applique sur la plage H1:H1500 et donc également J1:J1500.

En même temps si je décide de passer de mineur à critique, les cellules H... et J... concernée change de couleur ;-)

Merci pour votre efficacité.

Bonne am
Tchao

 

[Hervé]

Bonjour

Essaye ceci :


Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("j1:j1500")) Is Nothing Then


Exit Sub
Else
Select Case Target.Value
Case "Mineur"
Target.Interior.ColorIndex = 6
Target.Offset(0, 1).Interior.ColorIndex = 6
Case "Majeur"
Target.Interior.ColorIndex = 22
Target.Offset(0, 1).Interior.ColorIndex = 22
Case "Critique"
Target.Interior.ColorIndex = 3
Target.Offset(0, 1).Interior.ColorIndex = 3
Case Else
Target.Interior.ColorIndex = xlnoncolorindex
Target.Interior.ColorIndex = xlnoncolorindex

End Select
End If

End Sub

salut
Hervé

 

[Lapou]

Bonjour et d'abord Merci Hervé !!!

Px-tu jeter un oeil sur mon exemple ?
Ce sont les colonnes H et J, actuellement en format conditionnel qui me pose un léger souci si tu vois ce que je veux dire ;-)

Merci en tout cas pour ta précieuse aide !

Lapou

 

[Lapou]

De plus j'aimerais pouvoir continuer à faire des copier/coller sur cette feuille ce que je ne peux pas actuellement et également sélectionner plusieurs cellule à l'aide de Ctrl et que ttes les lignes concernées passent en vert !

Merci beaucouppppppppppppppppp !
Lapou