formule code couleur d'une cellule

Question

bonjour,

existe t il une formule ou fonction qui permettrait de retourner le code couleur d'une cellule donnée

par exemple si la cellule A1 est de couleur de remplissage verte (code de couleur 2), la formule =couleur_cellule(A1) retournerait la valeur 2 (valeur du code couleur de remplissage de la cellule A1 )

Merci pour votre aide.

Bien cordialement,

Vincent_C

Answer 1

Bonsoir,

Il est possible de créer une formule VBA qui fasse le travail. A cette différente que le changement de couleur ne provoquera pas le recalcul de la fonction. Celui-ci sera donc faux jusqu'au prochain recalcul de la feuille.

Function Couleur_Cellule(C As Range) As Integer

Application.Volatile

If C.Count = 1 Then

Couleur_Cellule = C.Interior.ColorIndex

End If

End Function

Cordialement.

Daniel

Answer 2

Merci beaucoup Daniel.

Bonne journée.

Bien cordialement,

Vincent_C