Graph dans userform

[Ken Hutchinson]

Bonjour amis du forum,


Je suis en train de construire un gros programme. Le fonctionnement : on passe la souris sur un graphique du type Diagramme de Gantt. Avec la fonction MouseMove je passe la souris sur ce graph, je récupère des coordonnées qui me permettent de repérer sur quoi passe la souris et donc de récupérer des infos.

Private Sub MyChart_MouseMove(ByVal Button As Long, ByVal Shift As Long, _
  ByVal x As Long, ByVal y As Long)
  
    Dim ElementId As Long
    Dim arg1 As Long, arg2 As Long
    
    MyChart.GetChartElement x, y, ElementId, arg1, arg2

    If ElementId = xlSeries Then

A ce moment un USF s'ouvre (merci MichelXLD pour le code)

Private Sub UserForm_Initialize()

 Dim Cht As Chart
 Dim C As Chart
 
 
    Set C = ChartSpace1.Constants
    Set Cht = ChartSpace1.Charts.Add
 

ChartSpace1.Charts.Add


 With ChartSpace1

  .HasChartSpaceTitle = True
  .ChartSpaceTitle.Caption = TitreGraph
  .HasChartSpaceLegend = True
  .ControlTipText = Tip

 End With
 
End Sub

Et c'est là que je ne sais plus faire. je voudrais donc faire un graph en fonction des coordonnées que je récupère (Arg1 et Arg2), il faudrait récupérer des données pour faire ce graph. Il y a bien des exemples sur le forum mais c'est un peu compliqué pour moi.

malheureusement je ne peux pas poster mon fichier qui aborde les 50mo...

Si quelqu'un pouvait m'expliquer comment batir ce graph sur des cellules fixes cela m'aiderait beaucoup déjà.... genre dans la feuil1 les I1:M1 pour le nom des données et I2:M2 pour les données.

merci de votre aide...