Affichage d'un libellé dans un graphique

Bonjour,

je recherche (car je l'ai vu mais n'arrive pas à le retrouver) une macro qui permet d'afficher à chaque point d'un graphique un libellé figurant dans un troisème champ (x,y, libellé)

Merci d'avance

Salut le forum

C'est facile à faire mais je dois passer par proxy pour venir donc bonne chance.

Mytå

Bonjour à vous,

DP, veux-tu un affichage ou une affectation permanente d'une étiquette de donnée à un point précis du graphique?

Peux-tu également joindre un bout de fichier pour mieux illustrer ta demande?

Voila ce que je voudrais obtenir :

https://www.excel-pratique.com/~files/doc2/Libelle_etiquette.xls

@+

Bonjour

Regarde si c'est cela que tu recherche??

https://www.excel-pratique.com/~files/doc2/GLibelle_etiquette.xls

Merci,

mais ça c'est le standard. Ce que je cherche c'est afficher à chaque point du nuage un libellé contenu dans un troisième champ (c'est du data mining pour par exemple visualiser des regroupements en affichant cette étiquette texte)

RE

Si tu arrive à faire cela en standard, explique comment tu fais car pour l'exemple que je te propose j'ai deux séries.

Je te joints de nouveau le fichier avec les étiquettes sur une autre colonne.

https://www.excel-pratique.com/~files/doc2/GLibelle_etiquette.zip

En fait, ça y est : c'est ça que je voulais faire :

https://www.excel-pratique.com/~files/doc2/Affiche_etiquettes_libelles.xls

Le code est certainement perfectible mais ça marche.

Bonjour DP,

Chez moi la macro ne marche pas complètement, est-ce normal?

Edit : Voici une version fonctionnelle. J'ai également enlevé un bout de code qui ne me semble pas utile : voir Fichier

Bonjour

Tu peux essayer cel:

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim choix As Range
   Dim efface As Chart
   On Error Resume Next
   Set efface = ActiveSheet.ChartObjects(1).Chart
   efface.SeriesCollection(1).HasDataLabels = False
   ActiveSheet.ChartObjects(1).Activate
   Set choix = Application.InputBox(prompt:="Plage pour les légendes de données ?", Type:=8)
   choix1 = ActiveChart.SeriesCollection(1).Points.Count
   For i = 1 To choix1
    With ActiveChart.SeriesCollection(1).Points(i)
        .HasDataLabel = True
        .DataLabel.Text = choix(i)
    End With
   Next i

End Sub

Merci beaucoup à tous