Valoriser des cellules coloriées

[Cendrillon]

Bonsoir à Tous,

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

Merci d'avance.

 

[Robert]

Re : Valoriser des cellules coloriées

Bonsoir Cendrillon, bonsoir le forum,

la macro ci-dessous devrait te convenir :

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.

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

 

[Cendrillon]

Re : Valoriser des cellules coloriées

Merciiiiiiiiiiiiiiiiiiiiiiiii bcp

Les 2 marchent à merveilles.

Bonsoir Robert, le Forum