VBA Excel recuperer des coordonnées pt

Mick -  
 Mick -
Bonjour,

Je cherche à recuperer la coordonné en x et y d'un point qui est selectionné dans un graphique nuage de point, et je souhaite que 2 variables prennent la valeur de ces coordonnés.

merci pour votre aide

1 réponse

  1.
    eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour,

    ici tu trouveras ta réponse.

    eric
    0
    1. Mick
       
      J'ai besoin de recuperer l'adresse du point qui a été selectionné precisement sur le graphique.

      exemple : je selectionne le point 10 par un clique gauche et je souhaite ensuite lancer une macro qui récupere les coordonnées en x et y

      merci
      0
    2. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      C'est bien ce que j'avais compris...
      Tu cliques sur le lien bleu que je t'ai mis, tu lis, et tu télécharges le fichier exemple.
      eric
      0
    3. Mick
       
      Ci joint la solution, si ca peut aider quelqu'un ...
      Cordialement


      Sub etiquetteG1()

      ' Pour graphique excel 2010 nuage de point xy
      ' Selectionner 1 pt par un clique gauche et lancer la macro ci dessous pour obtenir les coordonnées du pt en x et y dans les variables : valeurY et valeurX


      Dim valeurY, valeurX
      Dim val2
      Dim nbcarractere


      Selection.MarkerSize = 6 'dimension du marker
      With Selection
      .MarkerBackgroundColorIndex = 3 'marker en rouge
      End With


      With Selection.ApplyDataLabels 'faire apparaitre le label
      End With
      Selection.DataLabel.Select
      Selection.ShowCategoryName = 0 'si = 0 : Y visible si = -1 : X et Y visible
      Selection.Separator = " "
      Selection.Font.Size = 8

      valeurY = Selection.Characters.Text
      val2 = Selection.Name 'renvoie : "Texte S1P158" (serie1 point 158)
      nbcarractere = Len(val2) 'nombre de carractere : Texte S1P158 = 12
      nbcarractere = nbcarractere - 9 ' = 3 , pour isoler le N° de point 158
      valeurX = Right(val2, nbcarractere) ' X = 158


      End Sub
      0