salutations à chacun(e)
Dans les archives de Papy, j'ai trouvé ceci, mais comme je n'y connais rien, je transmet à toute fin utile.
Attribute VB_Name = 'NomCouleurCellules3'
'retrouver le nom de la couleur de fond ou de la police d'une cellule à partir de son index
Function CouleurCell(Cell, Optional TypeCouleur As Integer = 0) As String
'Alain Vallon, mpfe
'TypeCouleur 1 -> Couleur de la police
'N'importe quelle autre valeur -> Couleur de fond
Dim x As Long
Application.Volatile
Select Case TypeCouleur
Case 1: x = Cell.Font.ColorIndex
Case Else: x = Cell.Interior.ColorIndex
End Select
If x < 0 Then
CouleurCell = '(Aucune)'
Else
CouleurCell = Switch(x = 1, 'Noir', x = 2, 'Blanc', x = 3, 'Rouge', _
x = 4, 'Vert brillant', x = 5, 'Bleu', x = 6, 'Jaune', x = 7, 'Rose', _
x = 8, 'Turquoise', x = 9, 'Rouge foncé', x = 10, 'Vert', x = 11, _
'Bleu foncé', x = 12, 'Marron clair', x = 13, 'Violet', x = 14, _
'Bleu-vert', x = 15, 'Gris-25%', x = 16, 'Gris-50%', x = 33, _
'Bleu ciel', x = 34, 'Turquoise clair', x = 35, 'Vert clair', _
x = 36, 'Jaune clair', x = 37, 'Bleu moyen', x = 38, 'Rose saumon', _
x = 39, 'Lavande', x = 40, 'Brun', x = 41, 'Bleu clair', x = 42, _
'Vert d'eau', x = 43, 'Citronvert', x = 44, 'Or', x = 45, 'Orange clair', _
x = 46, 'Orange', x = 47, 'Bleu-gris', x = 48, 'Gris-40%', x = 49, _
'Bleu-vert foncé', x = 50, 'Vert marin', x = 51, 'Vert foncé', x = 52, _
'Vert olive', x = 53, 'Marron', x = 54, 'Prune', x = 55, 'Indigo', _
x = 56, 'Gris-80%')
End If
End Function
En te souhaitant bon courage et bon dimanche
