Mise en forme conditionnelle supérieure à 3

[Pascal PITOR]

Bonjour,

Mon problème est le suivant, parmi plusieures cases où trois couleurs sont utilisées ( vert, rouge ou noir ) je souhaite qu'une cellule (alarme) se mette en rouge dès lors qu'il n'y en n'a plus une seule en vert.
Voir fichier si joint.
Vous remerciant par avance de votre aide.

Pascal,

 

[lea]

Tu crées un bouton sur ta feuille et tu lui colles le code suivant

Dim Flag As Integer
Flag = 0

For I = 5 To 9
MsgBox (Range("B" & I).Interior.ColorIndex)
If Range("B" & I).Interior.ColorIndex = 4 Then
Flag = 0
GoTo couleur
Else: Flag = 1
End If
Next I

couleur:

If Flag = 0 Then
Range("B2").Interior.ColorIndex = 4
Else
Range("B2").Interior.ColorIndex = 3
End If

Tu auras la réponse voulue pour les cellules de la colonne "B", à toi de prolonger éventuellement

Léa

 

[Pascal PITOR]

Merci de ton aide.

Pas besoin de la boite de dialogue : puis-je la supprimer ?

MERCI !!!!

 

[lea]

Bonsoir Pascal,

Evidemment tu peux et dois supprimer la ligne
MsgBox (Range("B" & I).Interior.ColorIndex)
que j'ai oublié de supprimer
Je m'en servais pour faire mes tests

Bon courage
Léa