Mise en forme conditionnelle 4 couleurs

Fermé
antoine - 1 mai 2008 à 15:53
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 - 2 mai 2008 à 10:53
Bonjour,

J'ai vu qu'il y avait pas mal de sujet la dessus mais je ne my retrouve pas
J'aimerai sous excel 2003 faire une mise en forme conditionnelle sous 4 conditions et il se liimite a 3...
en gros je veux que ma cellule soit:

verte celle d a coté est I
jaune II
orange III
rouge IV

je pense qu il faut passer par une ;acro mais j y connait rien
est ce que quelqu un a deja une macro faite pour ca
merci
Antoine
A voir également:

2 réponses

g Messages postés 1262 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 575
2 mai 2008 à 09:31
Bonjour,
Code à copier dans le module de la feuille concernée :
Pour les couleurs en colonne B de 2 à 50 et les mentions en colonne C.
A adapter.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 2 To 50 'rangées de 2 à 50
If Range("b" & i).Interior.ColorIndex = 3 Then 'colonne B couleur rouge
Range("C" & i) = "IV" ' colonne C inscrire IV
Else
If Range("b" & i).Interior.ColorIndex = 4 Then
Range("C" & i) = "I"
Else
If Range("b" & i).Interior.ColorIndex = 6 Then
Range("C" & i) = "II"
Else
If Range("b" & i).Interior.ColorIndex = 45 Then
Range("C" & i) = "III"
End If
End If
End If
End If
Next
End Sub

Bonne journée.
6
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 249
2 mai 2008 à 10:53
Bonjour,

tu as déjà posé cette question le mercredi 30 avril 2008 à 22:02:13.
Evite de multiplier les discussions pour la même question stp.
Merci
eric
-1