Ajouter un espace devant le % dans les graph
Résolu/Fermé
A voir également:
- Excel ajouter signe devant pourcentage
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Ajouter un compte gmail - Guide
- Aller à la ligne excel - Guide
3 réponses
tontong
Messages postés
2548
Date d'inscription
mercredi 3 février 2010
Statut
Membre
Dernière intervention
15 mars 2024
1 054
7 juin 2011 à 17:38
7 juin 2011 à 17:38
Bonjour,
Une macro n'est peut-être pas nécessaire.
On peut choisir un format personnalisé pour les étiquettes de données.
Par exemple: 0,00" "% si 2 décimales sont souhaitées. Attention il faut bien mettre l'espace entre guillemets.
Une macro n'est peut-être pas nécessaire.
On peut choisir un format personnalisé pour les étiquettes de données.
Par exemple: 0,00" "% si 2 décimales sont souhaitées. Attention il faut bien mettre l'espace entre guillemets.
ccm81
Messages postés
10851
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
16 avril 2024
2 404
7 juin 2011 à 17:41
7 juin 2011 à 17:41
bonjour
sans macro, il suffirait de le faire dans la feuille de calcul
avec macro quelque chose comme ça
bonne suite
sans macro, il suffirait de le faire dans la feuille de calcul
avec macro quelque chose comme ça
Public Sub EspaceDevantEtiquette()
Dim nbpts As Long, nupt As Long
Dim etiq As String
With ChartObjects(1).Chart.SeriesCollection(1)
nbpts = .Points.Count
For nupt = 1 To nbpts
etiq = .Points(nupt).DataLabel.Characters.Text
etiq = " " & etiq
.Points(nupt).DataLabel.Characters.Text = etiq
Next nupt
End With
End Sub
bonne suite
Oh yeah !
Merci ccm81, j'ai un peu modifié ta macro puisque l'espace devait être avant le % (qui se trouvait à la fin du texte des étiquettes, dans mon cas). Le code final donne ceci :
Sub EspaceDevantPourcent()
Dim nbpts As Long, nupt As Long
Dim etiq As String
With ActiveChart.SeriesCollection(1)
nbpts = .Points.Count
For nupt = 1 To nbpts
etiq = Left(.Points(nupt).DataLabel.Characters.Text, .Points(nupt).DataLabel.Characters.Count - 1)
etiq = etiq & " %"
.Points(nupt).DataLabel.Characters.Text = etiq
Next nupt
End With
End Sub
@tontong : je ne suis pas sûr que c'est possible, puisque Excel (2003) génère lui-même les pourcentages dans les graphiques à partir des tableaux de données (en nombre, dans mon cas, et non en déjà en pourcent).
Merci ccm81, j'ai un peu modifié ta macro puisque l'espace devait être avant le % (qui se trouvait à la fin du texte des étiquettes, dans mon cas). Le code final donne ceci :
Sub EspaceDevantPourcent()
Dim nbpts As Long, nupt As Long
Dim etiq As String
With ActiveChart.SeriesCollection(1)
nbpts = .Points.Count
For nupt = 1 To nbpts
etiq = Left(.Points(nupt).DataLabel.Characters.Text, .Points(nupt).DataLabel.Characters.Count - 1)
etiq = etiq & " %"
.Points(nupt).DataLabel.Characters.Text = etiq
Next nupt
End With
End Sub
@tontong : je ne suis pas sûr que c'est possible, puisque Excel (2003) génère lui-même les pourcentages dans les graphiques à partir des tableaux de données (en nombre, dans mon cas, et non en déjà en pourcent).
tontong
Messages postés
2548
Date d'inscription
mercredi 3 février 2010
Statut
Membre
Dernière intervention
15 mars 2024
1 054
7 juin 2011 à 18:56
7 juin 2011 à 18:56
je ne suis pas sûr que c'est possible
Mais moi oui. Les pourcentages générés restent des étiquettes de données et il est possible de choisir le format de ces étiquettes.
Mais moi oui. Les pourcentages générés restent des étiquettes de données et il est possible de choisir le format de ces étiquettes.
ccm81
Messages postés
10851
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
16 avril 2024
2 404
7 juin 2011 à 19:00
7 juin 2011 à 19:00
@tontong
salutations
il demandait une macro, alors ...
@moi35534
si tontong dit quelque chose au sujet des graphiques, il y a de fortes chances que ce soit correct.....
salutations
il demandait une macro, alors ...
@moi35534
si tontong dit quelque chose au sujet des graphiques, il y a de fortes chances que ce soit correct.....
