Récupérer le code d'une couleur

fanfan38

XLDnaute Barbatruc

• 20 Décembre 2007

• #2

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

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 20 Décembre 2007

• #3

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

Bonjour

Une fonction personnalisée qui donne la couleur

Code:

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

JP

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 20 Décembre 2007

• #4

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 @+

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 20 Décembre 2007

• #5

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

 

Vote positif 0 Vote négatif