Discussion :

[nobue]

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

[Daniel.C]

Bonjour,

1. dans un module standard :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Res

2. Dans le module de la feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
    If Res <> "" Then
        Target.Characters(Len(Res) + 1).Font.Color = 250
    End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Res = Target.Value
End Sub

on peut limiter l'exécution de ces macros à une plage seulement.

[patrice084]

Le mieux est d'insérer un espace automatiquement à la fin du premier texte pour pouvoir démarrer la mise en forme à longeur + 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim y As Integer
ActiveCell.Value = ActiveCell.Value & " "
y = Len(ActiveCell)

[nobue]

Merci beaucoup Daniel, Patrice

@Patrice: ActiveCell.Value= ActiveCell.Value & " "
fonctionne pas dans mon code...

@Daniel: Avec ton code j'arrive exactement au résultat attendu par contre si je supprime l'ancien Texte des cellules la macro est bloquée...
Je ne comprends pas pourquoi... (la macro reste bloquee aussi si on supprime la condition "if"...
Aurais tu une idee pourquoi la macro reste bloquee?

Mecri d'avance

[Daniel.C]

Qu'est-ce que tu entends par "la macro est bloquée" ? Est-ce que tu as un message d'erreur ?

[nobue]

Bonjour Daniel,

Merci pour ta réponse.

Mon excel est malheureusement en allemand (desolee).
Le message d'erreur est le suivant:
Laufzeitfehler '13'
Typen unverträglich

Traduction:
Erreur de duree de vie
Typ incompatible.

Je me suis rendue compte que cette erreur arrive seulement si on supprime plus d'une cellule en même temps. J'ai remarquée également que la macro fonctionne seulement si on clique 2 fois sur la cellule; Si on écrit directement dans la cellule après 1 clique la macro ne fonctionne pas.

Merci d'avance de ton feedback.

[Daniel.C]

Est-ce qu'il y a une ligne de code surlignée en jaune ? si oui, laquelle. Qu'est-qu'il y a au début dans la cellule ? Décris ce que tu fais ensuite pour provoquer l'erreur ?