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

[tchi456]

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:

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

 

[Iznogood1]

Bonjour,
C.EntireRow.Font.Color = IIf(C.Font.Color = vbRed, vbBlack, vbRed)

 

[tchi456]

Bonjour Iznogood1,

Merci pour votre aide.

Bonne journée à vous.