Mise en forme conditionnelle 4 couleurs
antoine
-
eriiic Messages postés 25847 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 25847 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
A voir également:
- Mise en forme conditionnelle 4 couleurs
- Mise en forme conditionnelle excel - Guide
- Mise en forme tableau croisé dynamique - Guide
- Mise a jour chrome - Accueil - Applications & Logiciels
- Mise a jour windows 10 - Accueil - Mise à jour
- Appliquez à tous les paragraphes du document à télécharger, à l’exception des titres et des sous-titres, la mise en forme suivante : - Guide
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.
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.
