Staple1600
XLDnaute Barbatruc
Bonsoir à tous,
Une fonction qui renvoie soit la couleur de fond (par defaut) d'une cellule ou sa couleur de police.
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
Une fonction qui renvoie soit la couleur de fond (par defaut) d'une cellule ou sa couleur de police.
VB:
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
=couleurs(A1)
-> renvoie la couleur de fond de A1
=couleurs(A1;FAUX) ou aussi =couleurs(A1;0)
-> renvoie la couleur de police de A1