Bonjour
Une question fréquemment posée sur Excel:
Comment creer une fonction Couleur qui renvoie le numero de la couleur d’une cellule?
La fonction suivante permet de calculer ce code couleur en VBA:
Function couleur(Cellule As Range)
Application.Volatile
Couleur = Cellule.Interior.ColorIndex
End Function
Il faut copier ce code dans un nouveau module dans l’editeur VBA
Il est possible ensuite de l’utiliser comme n’importe quelle fonction Excel et de l’imbriquer avec d’autres formules classiques, par exemple comme dans le sujet ci-dessous:
1 « J'aime »
Bonjour @DocteurExcel, toutes et tous,
Un supplément d’informations, Excel a 56 couleurs principales.
Je propose cette macro pour afficher d’un coup les 56 couleurs et leurs codes.
La macro est commentée autant que possible avec mon Anglais bien de chez nous. 
'Les 56 Couleurs et leurs Codes
Sub Affiche_Couleurs_et_Codes()
'Ligne de code permettant de réduire le temps d'exécution d'une macro
Application.ScreenUpdating = False
'Pour la variable i faire une Boucle sur 56 lignes.
For i = 1 To 56
'Colorer chaque cellules de la Boucle.
Cells(i, 1).Interior.ColorIndex = i
'Et les afficher dans les cellules de la colonne "A".
Cells(i, 1).Select
'Sélectionner les couleurs de la Boucle.
Selection.Interior.ColorIndex = i
'Et afficher leurs codes dans la colonne "B".
Cells(i, 2) = i
'Dans la plage de cellules colonne "B", alignement horizontale centré.
Range("B1:B56").HorizontalAlignment = xlCenter
'Dans la plage de cellules faire l'encadrement.
Range("B1:B56").Borders.Weight = xlThin
'On sort de la boucle.
Next i
'Retour sur la cellule "B1".
Range("B1").Select
'Fin de la macro
End Sub
Cette macro est je le rappel est un supplément d’informations à la fonction de @DocteurExcel.
Ci joint un petit fichier ICI==> Les 56 couleurs et leurs Codes.xlsm (20,5 Ko)
À vos claviers
Cordialement.
1 « J'aime »