Tester la couleur du texte

Y

Yves

Guest
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
 
M

Michel_M

Guest
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
 
O

omicron

Guest
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.
 

Fichiers joints

Y

Yves

Guest
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas