Etiquette sur graphe

[m@tix]

Bonjour,

Je génère de façon automatisée un graphe à partir d'un tableau de données, qui se met à jour au fur et à mesure que ces données sont complétées. Il s'agit d'un histogramme "annuel", une barre de l'histogramme représentant un mois de l'année. Je souhaiterais qu'une étiquette de données soit présente pour la dernière barre affichée, et uniquement sur la dernière quand celle-ci se dessine à la mise à jour des données. Est-ce possible ?

Merci d'avance.

 

[Misange]

Re : Etiquette sur graphe

Bonjour
Pas sans VBA je pense.

 

[Pierrot93]

Re : Etiquette sur graphe

Bonjour,

essaye ceci... sans plus de détails...

Option Explicit
Sub test()
Dim p As Byte
With Feuil1.ChartObjects(1).Chart
    .ApplyDataLabels xlDataLabelsShowNone
    With .SeriesCollection(1)
        .Points(1).ApplyDataLabels xlDataLabelsShowValue
        .Points(.Points.Count).ApplyDataLabels xlDataLabelsShowValue
    End With
End With
End Sub

bon après midi
@+

 

[tototiti2008]

Re : Etiquette sur graphe

Bonjour m@tix, Bonjour Misange,

L'étiquette de donnée doit afficher le nombre concerné ?

Edit : Bonjour Pierrot,

un essai avec plages nommées, si j'ai compris

 

[m@tix]

Re : Etiquette sur graphe

Bonjour à tous, et merci pour vos réponses.

Bonjour
Pas sans VBA je pense.

Ok, ça me va quand même !

Bonjour,

essaye ceci... sans plus de détails...

Option Explicit
Sub test()
Dim p As Byte
With Feuil1.ChartObjects(1).Chart
    .ApplyDataLabels xlDataLabelsShowNone
    With .SeriesCollection(1)
        .Points(1).ApplyDataLabels xlDataLabelsShowValue
        .Points(.Points.Count).ApplyDataLabels xlDataLabelsShowValue
    End With
End With
End Sub

J'essaie ça tout de suite, je vous tiens au courant.

L'étiquette de donnée doit afficher le nombre concerné ?

un essai avec plages nommées, si j'ai compris

Oui en effet, il s'agit d'afficher le nombre concerné. J'ai ouvert ton fichier joint, je ne saisis pas.. Je ne vois pas d'étiquette.

Edit: ça fonctionne très bien Pierrot ! Merci beaucoup. 😉

 

[m@tix]

Re : Etiquette sur graphe

J'ai écrit trop vite en fait: le code de Pierrot m'affiche également une étiquette pour la première valeur de la série (janvier)..

 

[Pierrot93]

Re : Etiquette sur graphe

Re,

bah... supprime cette ligne :

.Points(1).ApplyDataLabels xlDataLabelsShowValue

 

[tototiti2008]

Re : Etiquette sur graphe

Re,

Oui en effet, il s'agit d'afficher le nombre concerné. J'ai ouvert ton fichier joint, je ne saisis pas.. Je ne vois pas d'étiquette.

Tapes une valeur pour décembre

 

[m@tix]

Re : Etiquette sur graphe

bah... supprime cette ligne :

.Points(1).ApplyDataLabels xlDataLabelsShowValue

C'est bon, encore merci Pierrot !

Tapes une valeur pour décembre

C'est sans effet, pas d'étiquette..

 

[Misange]

Re : Etiquette sur graphe

euh même en tapant une valeur, je ne vois rien ! tu écris à l'encre sympathique surement 🙂

 

[tototiti2008]

Re : Etiquette sur graphe

Re,

en effet, je l'ai fait sur 2003 et ça ne fonctionne que sur 2003....

une version sur 2007

Edit : Je me rend compte que je n'ai pas vraiment compris la même chose que Pierrot, doit être à côté de la plaque, désolé...

 

[tototiti2008]

Re : Etiquette sur graphe

Re,

Bon, comme je n'aime pas abandonner en cours de route....
Bien plus compliqué à mettre en place que la solution de Pierrot, mais sans VBA...

Edit : zut, trompé de fichier, devrais pas répondre aux questions le lundi, moi 🙂

 

[m@tix]

Re : Etiquette sur graphe

Ok tototiti, là c'est ok ! 🙂 Intéressant de voir une autre méthode aussi, j'aime bien. Par curiosité plus qu'autre chose, aurait-on pu afficher la valeur la plus haute déjà présente ?

 

[tototiti2008]

Re : Etiquette sur graphe

Re,

en colonne D (on peut se passer de la colonne C dans ce cas)

=SI(B1=MAX($B$1:$B$12);B1;"")

 

[m@tix]

Re : Etiquette sur graphe

Ok merci ! Et en VBA ?