Nouvellement passée sur Excel 2007 (grrrrrrrr) et débutante en macros.
Je cherche à faire une mise en forme conditionnelle inverse => valoriser des cellules selon la couleur.
Ex : si Cellule A4 de couleur verte, valeur de la cellule = T
si Cellule A4 de couleur jaune, valeur de la cellule = R
si Cellule A4 de couleur grise, valeur de la cellule = C
La plage va en fait de = A4:T392
J'ai trouve plein d'informations sur le forum question mise en forme conditionnelle mais pas dans ce sens. Est-ce que l'un de vous aurait une solution simple svp
Sub Macro2()
Dim cel As Range 'déclare la variable cel
For Each cel In Range("A4:T392") 'boucle sur toutes les cellules cel de la plage
Select Case cel.Interior.ColorIndex 'en fonction de la couleur de fond
Case 4 'couleur "vert Brillant" (à adapter)
cel.Value = "T"
Case 6 'couleur "Jaune" (à adapter)
cel.Value = "R"
Case 15 'couleur "Gris - 25%" (à adapter)
cel.Value = "C"
End Select
Next cel 'prochaine cellule de la boucle
End Sub
Si les couleurs que tu as utilisées se sont pas celles là, exécute la seconde macro ci-dessous dans un nouveau classeur (ou onglet) et adapte le numéro des Case.
Code:
Sub Macro1()
For x = 0 To 56 'boucle sur les 57 possibilités
Cells(x + 1, 1).Interior.ColorIndex = x 'colorie la cellule de la colonne 1
Cells(x + 1, 2) = x 'montre le numéro de la couleur dans la colonne 2
Next x
End Sub