Bonjour,
je recherche un code ou une fonction qui permet de changer automatiquement la couleur des nouveaux textes dans une cellule sans changer la couleur de l'ancien texte.
Exemple d'un texte de cellule:
21.10.13: Bonjour a tous
22.10.13: Le temps est pourri aujourd'hui
Mon Code fonctionne sauf que la dernière lettre de l'ancien texte change egalement de couleur. Je n'ai pas réussi a résoudre ce probleme!
Quelqu'un aurais-t-il une idée comment améliorer mon code?
Merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 sub couleur() Dim y as Integer y=Len(ActiveCell) With ActiveCell.Characters(Start:=y).Font .Color=250 End With End Sub
Partager