XL 2010 VBA - Bouton texte en rouge et inversément

tchi456

XLDnaute Occasionnel
Bonjour,

J'ai ce code pour pouvoir modifier la couleur de mon texte (noir -> rouge et inversément) de la cellule sélectionnée.
Cependant je souhaiterai que ce ne soit pas uniquement la cellule sélectionnée mais toute la ligne qui change de couleur.

Voici le code en question:

VB:
Sub BoutonTexteCouleurRouge()
    Dim C As Range
    ActiveSheet.Unprotect Password:="."
    For Each C In Selection
        C.Font.Color = IIf(C.Font.Color = vbRed, vbBlack, vbRed)
    Next
    ActiveSheet.Protect Password:="."
End Sub

Pouvez-vous m'aider?

Meilleures salutations,

Thierry
 

Discussions similaires

Statistiques des forums

Discussions
312 938
Messages
2 093 757
Membres
105 811
dernier inscrit
alnrochu