Tester la couleur du texte

[Yves]

Bonjour à tous,
Je recherche la possibilité de tester la couleur du texte d'une cellule (texte en rouge ou noir). Je n'ai trouvé aucune fonction d'Excel pour faire cela. En existe-t-il une que je n'ai pas vu ? ou est-ce possible via une macro en VBA ??
Merci pour votre aide.
Yves

 

[Michel_M]

Bonsoir Yves

Petite macro du Dimanche soir avant la soupe:

Option Explicit

Sub tester_couleur()

Dim numero As Long
Dim couleur As String

numero = ActiveCell.Font.ColorIndex
If numero = 1 Then
couleur = "noire"
Else
If numero = 3 Then
couleur = "rouge"
Else
couleur = "ni rouge, ni noire"
End If
End If

MsgBox "le texte est de couleur " & couleur

End Sub

Bonne semaine
Michel

 

[omicron]

Bonsoir Yves et Michel,

En complément de la réponse de Michel, voici un petit exemple qui pourra t'aider à trouver les codes utilisés pour représenter les couleurs.

NB:
Cette exemple utilise la propriété . color qui permet de représenter n'importe quelle couleur, alors que .colorindex (généralement suffisant) permet de ne représenter qu'une des couleurs présentes dans la palette Excel ...

Bonne soirée à tous.

Omicron.

 

[Yves]

Bonsoir les amis,
Merci à tous les deux pour ces macros; je ne pensais pas avoir une ou plusieurs réponses si vite....
Merci pour tout;
Yves