Discussion :

[babybell]

Amis du Forum bonjour

Existe-t-il un moyen de calculer, dans un graphique standard, la hauteur des barres, style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

hauteur = ActiveChart.SeriesCollection(2).Top

afin de pouvoir y mettre un commentaire étant en variable.

Merci de votre aide

[Qwazerty]

Salut
Je te ferais la même réponse que je t'ai déjà faite sur un autre post

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Essai()
'a adapter pour pointer ton graphique
With Feuil1.ChartObjects(1).Chart.SeriesCollection(1)
    'On affiche les etiquette de données (on les crée même)
    .ApplyDataLabels
    'On modifie le texte qui est placé au dessus de la premiere barre
    .DataLabels(1).Caption = "Essai" ' a toi de faire une boucle sur tous les element de la collection DataLabels
 
End With
End Sub

Pourquoi se prendre la tête à vouloir refaire ce qui existe déjà, en utilisant les datalabels tu as une petite étiquette que tu peux personnaliser et qui se place juste au dessus des points placés sur ton graphique.

Si tu observes l'objet Serie, il n'a pas de notion de placement dans l'espace, l'objet Point non plus. Donc je présume qu'il faudrait tenir compte de la valeur de la donnée qui place le point ainsi que l’échelle du graphique (Axis te donne une notion de placement dans l'espace) et enfin faire un prorata des deux, mais encore une fois, je n'en vois vraiment pas l’intérêt.

[Edit]
http://www.developpez.net/forums/d10...ble-graphique/

Dans les 2 méthodes qui t'ont été données à l'époque, on utilise les datalabels, soit directement dans mon exemple, soit indirectement dans le code de Mercatog pour avoir l'info de position dans l'espace. Qu'est ce qui ne te convient pas avec les DataLabels? Explique nous, il serait peut être plus simple de les modifier pour répondre à ton besoin.
[/Edit]
++
Qwaz

[babybell]

Merci Qwazerty, c'est déjà avec ton explication que j'ai travaillé. Cela fonctionne bien, mais je n'arrive pas à inscrire les pourcentages au dessus de chaque colonne comme cela devrait être. J'arrive bien à mettre ceux-ci tout en haut, ou à une hauteur imposée, mais pas comme le fait Excel lorsqu'il met des valeurs, c'est-à-dire toujours au même intervalle par rapport au haut de la barre.
Je voudrais bien envoyer une image de ce que j'ai fait, pour que tu comprennes, mais je ne sais comment la mettre dans mon post.

[Qwazerty]

Salut
Pour les images tu peux utiliser ce site.

++
Qwaz

[babybell]

Bonjour Qwazerty



Comme tu peux le constater dans l'image, les barres correspondent aux colonnes B et C(Nb bdx LS et Nb bdx pers), mais les chiffres que je désire faire apparaitre, aux bonnes hauteurs sont ceux de la colonne E(%).

[Qwazerty]

Salut
Tu as mis le lien de ton profil ImageShake au lieu du lien vers l'image.
[Edit]
Je n'ai pas accès à Excel, mais même sans l'image aux vues des info que tu donnes, je dirais qu'il faut faire une boucle sur chaque éléments DataLabels et mettre la propriété Caption à la valeur correspondante colonne E

'A ajouter a mon code précédent

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim aDataLabel as DataLabel 
 
For each aDataLabel in .DataLabels
   aDataLabel.caption = ...Cells(aDataLabel.Index + x,"E") ' à toi d'adapter, je suis pas sur pour le aDataLabel.Index
Next

Un truc dans le genre, x representant un décalage qui permet de de dire l'élément 1 des DataLabels correspond a la cellule index du dataLabel + x cellules.

Si il n'existe pas de propriété Index (ou équivalent) tu fais une boucle For Next et tu utilises le terme variable de la boucle qui représente ton Index de DataLabel pour lui faire correspondre la bonne ligne de ton tableau.

[/Edit]

++
Qwaz