Informations Couleurs

[Staple1600]

Bonsoir à tous,

Une fonction qui renvoie soit la couleur de fond (par defaut) d'une cellule ou sa couleur de police.

Function couleurs(r As Range, Optional I_F As Boolean = True)
Select Case I_F
Case True
couleurs = r.Interior.ColorIndex
Case False
couleurs = r.Font.ColorIndex
Case Else
End
End Select
End Function

Usage
=couleurs(A1)
-> renvoie la couleur de fond de A1

=couleurs(A1;FAUX) ou aussi =couleurs(A1;0)
-> renvoie la couleur de police de A1

 

[Staple1600]

Re

Une option de plus dans cette légére variante

Function couleurs(r As Range, Optional choix As Integer = 1) As String
Dim x, y
x = r.Interior.ColorIndex
y = r.Font.ColorIndex
Select Case choix
Case 1
couleurs = x
Case 2
couleurs = y
Case 3
couleurs = "Fond=" & x & " Police=" & y
Case Else
'
End Select
End Function

Usage
=couleurs(A1)
ou =couleurs(A1;2)
ou =couleurs(A1;3)

NB: Ces fonctions sont brutes de décoffrage.
Elles incluent donc de possible effets de bord.