Ken Hutchinson
XLDnaute Occasionnel
Hello le forum,
J'ai un graph en barre. C'est un diagramme de Gantt. Je veux qu'en cliquant sur une barre cela m'affiche un userform avec des données dedans.
J'ai donc fait un module de class et j'ai trouvé des codes à droite et à guache que j'adapte. J'arrive a faire apparaitre un userform vide en cliquant sur le graph.
Mais je n'arrive pas à récupérer ce qu'il y a écrit dans la barre (l'étiquette)...
Quelqu'un peut m'aider ?
Voici le code : évidement ça bug sur la ligne
Je précise que c'est de la récup de code... donc que je maîtrise pas beaucoup...
Merci de votre aide...
J'ai un graph en barre. C'est un diagramme de Gantt. Je veux qu'en cliquant sur une barre cela m'affiche un userform avec des données dedans.
J'ai donc fait un module de class et j'ai trouvé des codes à droite et à guache que j'adapte. J'arrive a faire apparaitre un userform vide en cliquant sur le graph.
Mais je n'arrive pas à récupérer ce qu'il y a écrit dans la barre (l'étiquette)...
Quelqu'un peut m'aider ?
Voici le code : évidement ça bug sur la ligne
Code:
Etiquette = ActiveChart.SeriesCollection(a).Points(b).Characters.Text
Je précise que c'est de la récup de code... donc que je maîtrise pas beaucoup...
Code:
Private Sub myChartClass_MouseDown(ByVal Button As Long, _
ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)
Dim IDnum As Long
Dim a As Long, b As Long
Dim Etiquette As String
' L'instruction suivante retourne une valeur pour
' IDNum, a et b
myChartClass.GetChartElement X, Y, IDnum, a, b
Etiquette = ActiveChart.SeriesCollection(a).Points(b).Characters.Text
' L'utilisateur a-t-il cliqué sur une série ?
USF_Data.Label1.Caption = Etiquette
USF_Data.Show
Range("A1").Select
End Sub
Merci de votre aide...