Ajouter un espace devant le % dans les graph
Résolu
moi35534
-
moi35534 -
moi35534 -
Bonjour,
Quelqu'un sait comment on pourrait programmer une macro Excel de manière à ajouter un espace devant le pourcent dans les étiquettes de données ?
Merci !
Quelqu'un sait comment on pourrait programmer une macro Excel de manière à ajouter un espace devant le pourcent dans les étiquettes de données ?
Merci !
A voir également:
- Excel afficher + devant pourcentage
- Liste déroulante excel - Guide
- Afficher le 0 devant un nombre dans excel - Guide
- Excel camembert pourcentage - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
3 réponses
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.
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).
