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

Bonsoir à toutes et tous

Bonsoir François

Est-ce comme l'image jointe que tu aimerais ?

A te lire

Eric

Avec le fichier !!

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

Oui c'est exactement ce que je souhaiterais :)

Comment as-tu fait?

Bonjour à toutes et tous
Bonjour François

En formule, je ne sais pas faire. Je te propose une solution en VBA. Dans le fichier texte joint, il y a ce qu'il faut saisir (copier/coller) et où.

Je me suis permis 2 modifications : 

-1- j'ai mis la formule dans la cellule "AD1" (tu peux la mettre ailleurs si tu veux, mais il faudra adapter le code) pour ne récupérer que le résultat dans la cellule "AD15". 

-2- Pour une question pratique, je me suis permis d'ajouter un espace à 2 endroits, ne les enlève pas. Prends la formule ci-dessous (cela ne change en rien au résultat "calcul" et "aspect") :

=CONCATENER("Coût Moyen / Semaine [CHF] :"&" "&CAR(10)&"Rempl. :"&" "&TEXTE((SOMME(Q13:Q54)-LIREDONNEESTABCROISDYNAMIQUE("Coût NC";$N$13;"Raison";"Remplacement"))/NB(N13:N54);"#'##0");""&"       "&"Déchet : "&TEXTE((SOMME(O13:O54)-LIREDONNEESTABCROISDYNAMIQUE("Coût NC";$N$13;"Raison";"Déchet"))/NB(N13:N54);"#'##0");""&"  "&CAR(10)&"Solde PF :"&" "&TEXTE((SOMME(U13:U54)-LIREDONNEESTABCROISDYNAMIQUE("Coût NC";$N$13;"Raison";"Solde PF"))/NB(N13:N54);"#'##0");""&"       "&"SAV : "&TEXTE((SOMME(S13:S54)-LIREDONNEESTABCROISDYNAMIQUE("Coût NC";$N$13;"Raison";"SAV"))/NB(N13:N54);"#'##0");""&"  "&CAR(10)&"Total :"&" "&TEXTE((SOMME(W13:W54)-LIREDONNEESTABCROISDYNAMIQUE("Coût NC";$N$13))/NB(N13:N54);"#'##0"))

Dis moi si j'ai loupé quelque chose. J'adapterai si possible.

A te lire
Eric

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

Bonsoir à toutes et tous

Bonsoir François

Tu trouveras dans le fichier joint des explications plus claires, j'espère. Il te reste à faire les adaptations si tu changes de cellules. 

Après, il suffit seulement de modifier le TCD et le résultat se met à jour. 

A te lire
Eric

Salut Eric

Je te remercie pour ton aide... ça marche nickel... Par contre je vais t'embêter encore un peu:

Sur mon graphique j'ai une zone de texte qui représente la cellule AD15. J'aimerais que cela soit celle-ci qui ai les couleurs (Graphique= indicateurs installé dans les ateliers)

PS: Où se trouve le bouton résolu pour la conversation?

Bonjour à toutes et tous
Bonjour François

".... ça marche nickel ..." c'est toujours agréable de lire cela 

Pour la zone de texte, c'est possible, mais laisse moi un petit peu de temps .....  Auras tu également besoin du résultat dans la cellule "AD15" ou "153" ou .... ?

Pour le bouton "résolu" regarde ce lien :
http://www.mdf-xlpages.com/modules/smartfaq/faq.php?faqid=29

A+
Eric