Récupérer le code d'une couleur

[Magic_Doctor]

Bonjour à tous,

Je tourne un peu en rond en voulant retrouver, grâce à une macro, le code de la couleur de la police d'une cellule de la feuille.
J'ai essayé, utopiquement mais sans grande conviction :

[e44].Value = [b49].Font.ColorIndex.Value

Et j'ai lamentablement échoué !!

Merci à celui qui m'aidera`à rectifier le tir

Bonne fin de journée à tous.

 

[fanfan38]

Re : Récupérer le code d'une couleur

Bonjour
Le value est de trop
Range("e44").value = Range("b49").Font.ColorIndex

A+ François

 

[jp14]

Re : Récupérer le code d'une couleur

Bonjour

Une fonction personnalisée qui donne la couleur

Function couleur2(celluleaveccouleur As Range)
Application.Volatile
Dim couleur As Long
couleur = celluleaveccouleur.Font.ColorIndex
couleur2 = couleur
End Function

JP

 

[Magic_Doctor]

Re : Récupérer le code d'une couleur

Merci pour vos réponses, mais j'ai dû mal m'exprimer.
Je voudrais en E44 récupérer le numéro qui correspond à la couleur de la police de la cellule B49. Si cette police est ROUGE, le numéro devra être 3.

Merci et @+

 

[Magic_Doctor]

Re : Récupérer le code d'une couleur

Merci jp14, c'est exactement ce que je désirais

Très bonne fin de journée