Texte de couleur variable

Bonjour,

Je cherche dans une cellule lorsque je tape du texte que les 4 premiers caractère soient vert, les 4 suivants jaune et les 4 derniers rouge.

merci beaucoup

Christophe

Bonjour

Un essai

Bonjour,

sur le même principe que Banzai:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

   Target.Cells.Characters(Start:=1, Length:=4).Font.ColorIndex = 4  'vert
       Target.Cells.Characters(Start:=5, Length:=8).Font.ColorIndex = 6  'jaune
           Target.Cells.Characters(Start:=9, Length:=12).Font.ColorIndex = 3 ' rouge
  Cancel = True

End Sub

Tu saisie le texte puis tu double clic dessus.

Question pour Banzai: tu peux expliquer If Target.Count > 1

Cordialement

Bonjour

patrick33 a écrit :

tu peux expliquer If Target.Count > 1

@patrick33

Enlèves cette instruction et fais le test suivant

Sélectionnes une plage multiple (au moins 2 cellules)

Tapes une chaîne de caractères ensuite tu fais Ctrl + Entrée (Sert à recopier dans toute la plage sélectionnée la valeur entrée dans la 1ère cellule)

Tu auras ta réponse

EDIT : Ou plus rapide, après avoir enlevé l'instruction, efface une plage de plus d'une cellule

Bonjour,

j'ai testé.... j'ai compris

Merci (avec un peu de retard)

Bonjour à tous

Je remonte ce message car je rencontre une difficulté:

Est-ce que ce code fonctionne si on met une formule? Je m'explique:

J'ai une fonction "=REPT("n";12) ce qui met la lettre "n" 12 fois dans la cellule.

Avec le code de Banzai, les lettres ne se colorient pas suivant le nombre de caractères dès que j'ai une formule à l'intérieur.

Pourriez-vous m'aider?

Merci

Je joins le fichier:

Bonjour

pass-pass a écrit :

Est-ce que ce code fonctionne si on met une formule?

tu as trouvé la réponse

Désolé mais pas d'autre idée

Bonjour,

Ba ça ne fonctionne pas...

Je vais tricher en faisant un copier collage spécial valeur

Merci