J'ai pas trouvé mieux pour trouver l'ordonnée d'un point sur un graphique excel.
Pour y parvenir il faut connaitre la hauteur de la zone de traçage, l'échelle de l'axe des ordonnées et la valeur du point dont on veut trouver l'ordonnée ...
Si vous avez mieux pour le même résultat, je suis preneur !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 'Trouver l'ordonnée (Y) d'un point. Dim YValMin As Double Dim YValMax As Double Dim HPlotArea As Double Dim PointVal As Variant Dim WkBookName As String Dim WkSheetName As String Dim SRange As String 'Remplir les variables WkBookName = "MonClasseur.XLSM" ' Représente le nom du classeur excel WkSheetName = "MaFeuil1" ' Représente le nom de la feuille de calcul Excel SRange = "A1" ' Représente la cellule où est stockée la valeur du point dont on souhaite l'ordonée sur le graphique 'Lire la valeur minimum de l'axe des ordonnées. YValMin = ActiveChart.Axes(xlValue).MinimumScale 'Lire la valeur maximum de l'axe des ordonnées. YValMax = ActiveChart.Axes(xlValue).MaximumScale 'Lire la hauteur intérieur de la zone de traçage. HPlotArea = ActiveChart.PlotArea.InsideHeight 'Lire la valeur du point dont on souhaite trouver l'ordonnée dans le graphique : se référer à la feuille Excel PointVal = Workbooks("EURIBOR.XLS").Worksheets(WkSheetName).Range(SRange).Value 'Formule de l'ordonnée y = (HPlotArea / (YValMax - YValMin)) * PointVal MsgBox "Votre point " & SRange & " de valeur " & PointVal & " est à l'ordonnée " & y & " sur le graphique "
Partager