Couleur texte par defaut

James007

XLDnaute Barbatruc

• 11 Décembre 2008

• #2

Re : Couleur texte par defaut

Salut,

dans le module de ta feuille,

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Font.ColorIndex = 3
End Sub

A +

 

Vote positif 0 Vote négatif

GGPS58

XLDnaute Occasionnel

• 11 Décembre 2008

• #3

Re : Couleur texte par defaut

Question subsidiaire.
Est ce que je peux lancer cette macro à partir d'un raccourci clavier ?
et si oui comment ?

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 11 Décembre 2008

• #4

Re : Couleur texte par defaut

Non ...
Il s'agit d'une macro évènement qui démarrre toute seule ...
Il faut la copier dans le module de la feuille ...

Alt F11
Double Click sur le nom de la feuille ...

A +

 

Vote positif 0 Vote négatif

GGPS58

XLDnaute Occasionnel

• 11 Décembre 2008

• #5

Re : Couleur texte par defaut

Mouais alors cela ne correspond pas à ce que je cherche à faire.
J'aimerais passer en couleur rouge uniquement si je le désire, pas systématiquement. Par exemple je fais "Ctrl + R" et là tout ce que j'écris est écrit en rouge. Avec un "Ctrl + N" je repasse en noir ... par exemple.
Je vais donc chercher à le faire d'une autre façon.
Merci quand meme de votre aide.

 

Vote positif 0 Vote négatif