VBA : Mettre les "datalabels" au-dessus des colonnes dans un graphique

Question

Bonjour à tous

Je suis toujours dans la création via VBA d'un graphique.

Je butte sur un problème qui me semblait simple à première vue…

Dans un graphique en colonnes, mettre les étiquettes de valeurs des données en haut (au-dessus des colonnes)

J'ai fait cela dans mon code mais cela plante systématiquement sur la ligne de position….

With .SeriesCollection(1)

.XValues = wd.Range("plg_grph_sem")

.HasDataLabels = True

.DataLabels.Font.Size = 8

.DataLabels.NumberFormat = "##.##"

'.DataLabels.Position = xlLabelPositionAbove 'ça coince là !

End With

Si besoins, j'ai déposé un fichier exemple complet de test ici : https://www.cjoint.com/c/IJxoycRSZUU

Un nouveau petit coup de pouce des pros  peut être ? ;o)

Merci

Figueroles83

Answer 1

Bonjour,

Deux problèmes. Ton graphique est un histogramme superposé. Dans ce cas, tu ne peux pas utiliser la position haut. Vérifie manuellement.

Mets donc, puisque tu n'as qu'une série :

.ChartType = xlColumnClustered

Ensuite, comme ça plante toujours, enlève simplement la ligne en erreur.

Cordialement.

Daniel

Answer 2

Bonjour Daniel,

Et oui évidement, je m'en veux de ne pas avoir vu ça ! 

Merci pour cette réponse rapide et ton oeil averti ! ;o)

Ça marche parfaitement maintenant 

figueroles83