Trouver le code de couleur d’une cellule Excel

Tout d’abord ouvrez votre fichier Excel.

Sauvegardez le au format Excel Macros autorisées (.xlsm).

Appuyez sur les touches ALT + F11 pour ouvrir l’éditeur Visual Basic pour Application.

Faites un clic droit sur VBAProject dans la fenêtre de gauche. Puis choisissez Insérer>>Module

Dans le panneau de droite collez le code ci-dessous :

Function CodeCouleur(CelluleCouleur As Range) As Long
'Retourne le code couleur de la CelluleCouleur
Application.Volatile
Codecouleur = CelluleCouleur.Interior.ColorIndex
End Function

Sauvegardez et fermez VBA.

De retour sur Excel Placez les cellules de couleur comme sur la capture d’écran ci-dessus et insérez dans la cellule E3 la formule suivante :

=CodeCouleur(D3)

Définition : CodeCouleur(Cellule à contrôler)

Sauvegardez et fermez votre fichier xlsm et réouvrez le puis autorisez les macros.