Mise en forme conditionnelle 4 couleurs
antoine
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
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
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
Configuration: Windows XP Internet Explorer 7.0
2 réponses
-
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.
-
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
