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
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
A voir également:
- Mise en forme conditionnelle 4 couleurs
- Mise en forme conditionnelle excel - Guide
- Mise en forme whatsapp - Guide
- Mise a jour chrome - Accueil - Applications & Logiciels
- Mise en forme tableau croisé dynamique - Guide
- Mise a jour windows 10 - Accueil - Mise à jour
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
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.
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.
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
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
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