Couleur texte par defaut

[GGPS58]

Bonjour,
J'ai un fichier Excel dans lequel la police par défaut est de couleur noire.
J'aimerais lancer une macro qui me permette d'écrire mes nouvelles données en rouge (quelque soit l'endroit). Mais tout ce qui n'est psa nouveau reste en noir.
Aprés moultes recherches sur ce forum, je n'ai pas trouvé mon bonheur.
pourriez vous m'aider svp ?

 

[James007]

Re : Couleur texte par defaut

Salut,

dans le module de ta feuille,

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

A +

 

[GGPS58]

Re : Couleur texte par defaut

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

 

[James007]

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 +

 

[GGPS58]

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.