RECUPERER DES INFOS OU LES DONNÉES D'UN GRAPHIQUE SANS UTILISER LES EVENEMENTS DANS LES GRAPHIQUES

Option Explicit
Dim Passage As Boolean, Clique As Boolean

Private Sub CommandButton1_Click()
    Application.EnableEvents = False
    DoEvents
    On Error Resume Next
    Sheets.Item(1).Shapes("InfoBulle1").Visible = False
    DoEvents
    If Not GraphName = "" Then
        LetsGo
    Else
        MsgBox "Aucune courbe n'est selectionée ", vbExclamation
        Application.EnableEvents = True
    End If
End Sub
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, _
    ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    On Error Resume Next
    ActiveSheet.Shapes("InfoBulle1").Visible = True 'on allume l'info bulle
    If Passage = False Then 'ici on veut limite le lancement de la macro _
        QuelleCourbe a 1 fois par passage sur le bouton
        Passage = True 'la limitation ce fait ici
        QuelleCourbe
    End If
End Sub

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single) 'ce Label sert a detecter le curseur de souris apres _
son passage sur le bouton CommandButton1. Ceci pour autoriser a nouveau le lancement de la macro QuelleCourbe
    ActiveSheet.Shapes("InfoBulle1").Visible = False 'on eteint l'info bulle
    GraphName = ""
    Passage = False 'on est sortie du bouton donc on autorise a nouveau le _
    lancement de la macro QuelleCourbe
End Sub