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.
 

Pièces jointes

  • TestCouleur.zip
    29.5 KB · Affichages: 377
  • TestCouleur.zip
    29.5 KB · Affichages: 328
  • TestCouleur.zip
    29.5 KB · Affichages: 342

Discussions similaires

Statistiques des forums

Discussions
311 735
Messages
2 082 023
Membres
101 873
dernier inscrit
excellllll