Ajouter un espace devant le % dans les graphRésolu/Fermé

Question

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 !

Configuration: Windows XP / Internet Explorer 7.0

tontong · Answer

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.

ccm81 · Answer

bonjour
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

moi35534 · Answer

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).

Ajouter un espace devant le % dans les graph

3 réponses

Discussions similaires

Newsletters