Je t'avais fait une petite vidéo mais tant pis... j'ai modifié en rouge les AD15 en AD 153 qui correspond à mon tableau réel.

Tu parle d'une formule dans AD1 mais je ne comprends pas à quoi correspond le AD1? Dois-je y mettre quelques chose?

Lorsque j'exécute le code j'ai :

Erreur d'exécution '9'

L'indice n'appartient pas à la sélection

Et quand je le fait pas à pas il plante à la ligne en vert.

Peux-tu m'envoyer le fichier excel d'où tu a prit le screen que t m'avais envoyé en premier avec les couleurs comme je le voulais?

Merci d'avance pour ton retour

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If val_cel = True Then val_cel = False: Exit Sub
lance
Application.ScreenUpdating = True
End Sub

Sub lance()
Dim tablo

' dechet bleu
' rempl vert
' sav rouge
' solde jaune
' violet total

If IsError(Range("AD1")) Then val_cel = True: Range("AD153").Value = "": Exit Sub  ' ligne pour tester si le resultat est "". Si oui, il n'y aura rien dans la cellule "AD153". A toi de voir.
tablo = Split(Range("AD1").Value, ":")
'prem_caract = Len(tablo(0))
tablo_01 = Split(Mid(Range("AD1"), Len(tablo(0)) + 3), "       ")
t0 = tablo_01(0)    ' rempl
tablo_02 = Split(tablo_01(1), "  ")
t1 = tablo_02(0)    ' dechet
t2 = tablo_02(1)    ' soldes
tablo_03 = Split(tablo_01(2), "  ")
t3 = tablo_03(0)    ' sav
t4 = tablo_03(1)    ' total

val_cel = True
Range("AD153") = Range("AD1").Value

Range("AD153").Characters(Start:=Len(tablo(0)), Length:=Len(t0) + 3).Font.ColorIndex = 50  ' rempl
Range("AD153").Characters(Start:=Len(tablo(0)) + Len(t0) + 10, Length:=Len(t1)).Font.ColorIndex = 41 ' dechet
Range("AD153").Characters(Start:=Len(tablo(0)) + Len(t0) + 10 + Len(t1) + 2, Length:=Len(t2)).Font.ColorIndex = 44 ' soldes
Range("AD153").Characters(Start:=Len(tablo(0)) + Len(t0) + 10 + Len(t1) + 2 + Len(t2) + 7, Length:=Len(t3)).Font.ColorIndex = 3 ' sav
Range("AD153").Characters(Start:=Len(tablo(0)) + Len(t0) + 10 + Len(t1) + 2 + Len(t2) + 7 + Len(t3) + 2, Length:=Len(t4)).Font.ColorIndex = 7 ' total
val_cel = False

End Sub

Oui c'est exactement ce que je souhaiterais :)

Comment as-tu fait?

L'image qui est joint est ce que j'ai actuellement et j'aimerais que cela vienne en rouge comme dans mon post

Bonjour,

J'ai un graphique avec une zone de texte représentant une autre cellule. Dans cette cellule se trouve une formule permettant de représenter un calcul de mon TCD.

J'aimerais savoir si il est possible d'avoir plusieurs police dans une même cellule qui possède des calculs?

Voici ma formule simplifiée (elle représente bien mon problème)

=CONCATENER("Coût Moyen / Semaine [CHF] :"&" "&CAR(10)&"Rempl. :"&" 50")

voilà comme s'affiche le résultat :

Coût Moyen / Semaine [CHF] :

             Rempl. : 50

Voilà comme j'aimerais qu'elle s'affiche:

Coût Moyen / Semaine [CHF] :

             Rempl. : 50

Existerait-il un moyen sans passer par de la programmation?  Je ne maîtrise pas du tout le code donc si il faut passer par là merci de me fournir une ébauche de code si possible...

PC : Excel 2007

Merci d'avance pour les réponses... Bonne journée à tous

François