Titre dans graph Excel
guyrobert
-
guyrobert -
guyrobert -
Bonjour à tous,
J'ai un tableau avec des valeurs calculées en pourcentage.
J'ai tapé une macro pour construire un graph à partir un tableau TCD.
Ensuite, je vais chercher la valeur en pourcentage dans le tableau pour ensuite l'intégrer dans le titre du graph.
Je souhaiterais avoir ce résultat : 86% par contre j'obtiens ce résultat lorsque je transfére la valeur du tableau dans le titre du graphique : 0,86
J'ai fait un collage spécial (Valeur) toujours le même résultat (0,86)
J'ai créé une variable : strVar1 = Sheet("Top10").range("B4").select toujours le même résultat (0,86)
Avez-vous une idée du code à taper?
Voici le code pour le titre du graphique :
'Titre du Graphique
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "1 - " & "Défaut Top 10 : " & Sheets("Graph Top10-Def").Range("IQ11") & _
" sur un total de " & Sheets("Graph Top10-Def").Range("IQ12") & Chr(10) & "Le Top 10 représente " & _
strVar & " des pannes" & Chr(10) & "Période du : " & _
Sheets("Graph Top10-Def").Range("IQ15") & " Au " & Sheets("Graph Top10-Def").Range("IQ14")
End With
Merci d'avance pour l'aide.
A bientôt
J'ai un tableau avec des valeurs calculées en pourcentage.
J'ai tapé une macro pour construire un graph à partir un tableau TCD.
Ensuite, je vais chercher la valeur en pourcentage dans le tableau pour ensuite l'intégrer dans le titre du graph.
Je souhaiterais avoir ce résultat : 86% par contre j'obtiens ce résultat lorsque je transfére la valeur du tableau dans le titre du graphique : 0,86
J'ai fait un collage spécial (Valeur) toujours le même résultat (0,86)
J'ai créé une variable : strVar1 = Sheet("Top10").range("B4").select toujours le même résultat (0,86)
Avez-vous une idée du code à taper?
Voici le code pour le titre du graphique :
'Titre du Graphique
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "1 - " & "Défaut Top 10 : " & Sheets("Graph Top10-Def").Range("IQ11") & _
" sur un total de " & Sheets("Graph Top10-Def").Range("IQ12") & Chr(10) & "Le Top 10 représente " & _
strVar & " des pannes" & Chr(10) & "Période du : " & _
Sheets("Graph Top10-Def").Range("IQ15") & " Au " & Sheets("Graph Top10-Def").Range("IQ14")
End With
Merci d'avance pour l'aide.
A bientôt
A voir également:
- Titre dans graph Excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
- Trier dans excel - Guide
2 réponses
bonjour
0.86 c'est bien 86% mais il faut que ta zone soit au format pourcentage tout simplement.
Format(strVar, "0%") devrait résoudre ton souci.
"Le Top 10 représente " & _
Format(strVar, "0%") & " des pannes" & Chr(10) & "Période du : " & _
0.86 c'est bien 86% mais il faut que ta zone soit au format pourcentage tout simplement.
Format(strVar, "0%") devrait résoudre ton souci.
"Le Top 10 représente " & _
Format(strVar, "0%") & " des pannes" & Chr(10) & "Période du : " & _
bonjour
Tu es sûr que ta ligne n'est pas en commentaire ?
Ta variable est documentée ?
Tu es sûr que ta ligne n'est pas en commentaire ?
Ta variable est documentée ?
Bonjour,
Après de vaines recherche j'ai trouvé un code qui fonctionne.
J'ai multiplié par 100 le chiffre. Ainsi j'obtiens pour 0,69145637 => 69,14637 ensuite j'effectue un collage spécial et j'utilise 2 variables pour transformer le chiffre en 69,1 %
Voici le code en question :
Dim strCode, strDetails As String
Range("IQ13").Select
With Selection
.Formula = "=SUM((IQ11/IQ12)*100)"
End With
Range("IQ13").Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
strCode = Range("IQ13").Value
strDetails = Mid(strCode, 1, 4)
Range("IQ13") = strDetails
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "1 - " & "Défaut Top 10 : " & Sheets("Graph Top10-Def").Range("IQ11") & _
" sur un total de " & Sheets("Graph Top10-Def").Range("IQ12") & Chr(10) & "Le Top 10 représente " & _
("Graph Top10-Def").Range("IQ13") & " % des pannes" & Chr(10) & "Période du : " & _
Sheets("Graph Top10-Def").Range("IQ15") & " Au " & Sheets("Graph Top10-Def").Range("IQ14")
Merci pour ton aide.
A bientôt
Après de vaines recherche j'ai trouvé un code qui fonctionne.
J'ai multiplié par 100 le chiffre. Ainsi j'obtiens pour 0,69145637 => 69,14637 ensuite j'effectue un collage spécial et j'utilise 2 variables pour transformer le chiffre en 69,1 %
Voici le code en question :
Dim strCode, strDetails As String
Range("IQ13").Select
With Selection
.Formula = "=SUM((IQ11/IQ12)*100)"
End With
Range("IQ13").Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
strCode = Range("IQ13").Value
strDetails = Mid(strCode, 1, 4)
Range("IQ13") = strDetails
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "1 - " & "Défaut Top 10 : " & Sheets("Graph Top10-Def").Range("IQ11") & _
" sur un total de " & Sheets("Graph Top10-Def").Range("IQ12") & Chr(10) & "Le Top 10 représente " & _
("Graph Top10-Def").Range("IQ13") & " % des pannes" & Chr(10) & "Période du : " & _
Sheets("Graph Top10-Def").Range("IQ15") & " Au " & Sheets("Graph Top10-Def").Range("IQ14")
Merci pour ton aide.
A bientôt
Merci pour ta réponse. J'ai introduit le code comme indiqué dans ton mail.
Le résultat donne dans la titre du graph :
1 - Défaut Top 10 : 17858 sur un total de 20804
Le Top 10 représente des pannes
Période du : 01/11/2008 Au 31/11/2008
Le pourcentage des pannes n'apparaît plus.
Je te remercie pour ton aide
A bientôt