Bonjour,
J'ai programmé une fonction qui donne la couleur d'une cellule :
Function Couleur(CL As Range) As Long
Couleur = CL.Interior.ColorIndex
End Function
fonction que j'ai appliquée à la légende seule B15 à B19 inclus
L'ensemble B15:C19 a été dénommé mescouleurs = il donne donc la correspondance des couleurs et des libellés
Ensuite, je fais appel par RECHERCHEV au code correspondant à la couleur de chaque zone. Exemple en D2 :
=RECHERCHEV(Couleur(D2);mescouleurs;2;0)
L'une des particularités est que la fonction fait appel à sa propre cellule d'appartenance.
Le second code est un peu différent car si la cellule comporte déjà une valeur, celle-ci est préservée.