bonjour
merci pour la reponse
j ai fini par trouver
en fait j ai pris ce modèle comme exemple afin de pouvoir colorier 4 chaines de caractères en couleur différentes dans la même cellule
mais de façon automatique
donc des que l utilisateur remplisse la cellule a1 et appuie sur enter que les 4 chaines de caractères soient automatiquement mis en couleur différentes
merci de l aide
pour l instant j essaye avec ceci
mais cela ne fonctionne pas et en plus je dois lancer la macro
Sub test()
For ligne = 1 To 3
'Contenu de la cellule
contenu = Cells(ligne, 1)
'Contenu divisé en un tableau de 3 parties
tab_contenu = Split(contenu, " ")
'Longueur de la partie 1
longueur_partie_1 = Len(tab_contenu(0))
'Longueur de la partie 2
longueur_partie_2 = Len(tab_contenu(1))
'Longueur de la partie 3
longueur_partie_3 = Len(tab_contenu(2))
'Partie 1 en orange
Cells(ligne, 1).Characters(1, longueur_partie_1).Font.ColorIndex = 12
'Partie2en bleu
Cells(ligne, 1).Characters(1, longueur_partie_2).Font.ColorIndex = 5
'Partie 3 en vert
Cells(ligne, 1).Characters(1, longueur_partie_3).Font.ColorIndex = 7
Next
End Sub