Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Comment récupérer la couleur de la police utilisée dans une celu le

Comment récupérer la couleur de la police utilisée dans une celu le

3 réponses
Avatar
stephan
Bonjour,
j'ai besoin de récupérer la couleur de la police utilisée dans une cellule.
Exemple, si une cellule a utilisé une police bleue, j'ai besoin de récupérer
bleu...
Je n'ai pas trouvé de moyen d'y arriver,
Merci pour l'aide éventuelle,
stephan
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Tu veux récupérer le mot "bleu" ou le numéro de la couleur ?
Daniel
"stephan" a écrit dans le message de
news:
Bonjour,
j'ai besoin de récupérer la couleur de la police utilisée dans une
cellule.
Exemple, si une cellule a utilisé une police bleue, j'ai besoin de
récupérer
bleu...
Je n'ai pas trouvé de moyen d'y arriver,
Merci pour l'aide éventuelle,
stephan


Avatar
papou
Bonjour
Une fonction perso à adapter à ton cas (équivalences des codes
couleurs/libellés couleurs à faire)
Function CodeCouleurPolice(cellule As Range)
Application.Volatile
x = cellule.Font.ColorIndex
If x < 0 Then
CodeCouleurPolice = 0
Else: CodeCouleurPolice = x: End If
End Function

Cordialement
Pascal

"stephan" a écrit dans le message de
news:
Bonjour,
j'ai besoin de récupérer la couleur de la police utilisée dans une
cellule.
Exemple, si une cellule a utilisé une police bleue, j'ai besoin de
récupérer
bleu...
Je n'ai pas trouvé de moyen d'y arriver,
Merci pour l'aide éventuelle,
stephan


Avatar
papou
Re
Complément : une fonction pour afficher le libellé.
Code ci-dessous à placer dans un module du classeur, puis formule à placer
dans la feuille :
=LibelleCouleur(A1)
Cordialement
Pascal

Function CodeCouleurPolice(Cellule As Range)
Application.Volatile
x = Cellule.Font.ColorIndex
If x < 0 Then
CodeCouleurPolice = 0
Else: CodeCouleurPolice = x: End If
End Function
Function LibelleCouleur(Cellule As Range) As String
Dim CodeCouleur As Long
CodeCouleur = CodeCouleurPolice(Cellule)
Application.Volatile
LesLibelles = Array("noir", "blanc", "rouge", "vert brillant", "bleu",
"jaune", "rose", "turquoise", "rouge foncé", _
"vert", "bleu foncé", "marron clair", "violet", "bleu-vert", "gris 25%",
"gris 50%", "bleu ciel", "turquoise clair", _
"vert clair", "jaune clair", "bleu moyen", "rose saumon", "lavande", "brun",
"bleu clair", "vert d'eau", "citron vert", _
"jaune d'or", "orange clair", "orange", "bleu-gris", "gris 40%", "bleu-vert
foncé", "vert marin", "vert foncé", _
"vert olive", "marron", "prune", "indigo", "gris 80%")
If IsError(CodeCouleur) Then LibelleCouleur = "Non disponible"
If CodeCouleur = 0 Then
LibelleCouleur = "Standard"
Else: LibelleCouleur = LesLibelles(CodeCouleur): End If
End Function

Cordialement
Pascal

"papou" <cestpasbon@çanonplus> a écrit dans le message de news:
eh$
Bonjour
Une fonction perso à adapter à ton cas (équivalences des codes
couleurs/libellés couleurs à faire)
Function CodeCouleurPolice(cellule As Range)
Application.Volatile
x = cellule.Font.ColorIndex
If x < 0 Then
CodeCouleurPolice = 0
Else: CodeCouleurPolice = x: End If
End Function

Cordialement
Pascal

"stephan" a écrit dans le message de
news:
Bonjour,
j'ai besoin de récupérer la couleur de la police utilisée dans une
cellule.
Exemple, si une cellule a utilisé une police bleue, j'ai besoin de
récupérer
bleu...
Je n'ai pas trouvé de moyen d'y arriver,
Merci pour l'aide éventuelle,
stephan