Ajouter un espace devant le % dans les graph

Résolu/Fermé

moi35534 - 7 juin 2011 à 17:23
moi35534 - 7 juin 2011 à 19:13

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 !

A voir également:

Excel afficher + devant pourcentage
Liste déroulante excel - Guide
Excel camembert pourcentage - Guide
Excel afficher le 0 devant un nombre - Guide
Word et excel gratuit - Guide
Si et excel - Guide

3 réponses

Réponse 1 / 3

tontong Messages postés 2572 Date d'inscription mercredi 3 février 2010 Statut Membre Dernière intervention 14 mars 2025 1 062
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.

Réponse 2 / 3

ccm81 Messages postés 10907 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2025 2 430
7 juin 2011 à 17:41

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

Réponse 3 / 3

moi35534
7 juin 2011 à 18:47

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

tontong Messages postés 2572 Date d'inscription mercredi 3 février 2010 Statut Membre Dernière intervention 14 mars 2025 1 062
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.

ccm81 Messages postés 10907 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2025 2 430
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.....

moi35534
7 juin 2011 à 19:13

Haha, alors comment cela est-il possible ?

Discussions similaires

Barre de données en pourcentage (maintenir 100% comme max)

remettre toutes les colonnes et les lignes masquées