Est il possible de récupérer les coordonnées d'un point sur une courbe. En
fait c'est un nuage de point qui sont relié entre eux.
Lorsqueje clique sur ma courbe et sélectionne un point, Excel m'affiche les
X et les Y correspondant. en fait je voudrai renvoyer ces élement dans une
cellule par exemple en appuyant sur une touche pour pouvoir les travailler
après.
Je commence tout juste a regarder VBA dasn les graphique donc ........
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Francois L
Bonjour tous le monde
Est il possible de récupérer les coordonnées d'un point sur une courbe. En fait c'est un nuage de point qui sont relié entre eux.
Lorsqueje clique sur ma courbe et sélectionne un point, Excel m'affiche les X et les Y correspondant. en fait je voudrai renvoyer ces élement dans une cellule par exemple en appuyant sur une touche pour pouvoir les travailler après.
Je commence tout juste a regarder VBA dasn les graphique donc ........
Bonsoir,
Par exemple, la procédure qui suit va écrire dans les colonnes C et D de la feuille nommée Feuil1 les valeurs d'un graphique en nuage nommé Graph1. A adapter...
Sub recup()
Dim lngIndex As Long On Error Resume Next ActiveSheet.ChartObjects("Graph1").Activate Application.ScreenUpdating = False With ActiveChart.SeriesCollection(1) For lngIndex = 1 To .Points.Count a = Application.WorksheetFunction.Index(.XValues, lngIndex) b = Application.WorksheetFunction.Index(.Values, lngIndex) Sheets("Feuil1").Range("C" & lngIndex) = a Sheets("Feuil1").Range("D" & lngIndex) = b
Next End With Application.ScreenUpdating = True
End Sub
-- François L
Bonjour tous le monde
Est il possible de récupérer les coordonnées d'un point sur une courbe. En
fait c'est un nuage de point qui sont relié entre eux.
Lorsqueje clique sur ma courbe et sélectionne un point, Excel m'affiche les
X et les Y correspondant. en fait je voudrai renvoyer ces élement dans une
cellule par exemple en appuyant sur une touche pour pouvoir les travailler
après.
Je commence tout juste a regarder VBA dasn les graphique donc ........
Bonsoir,
Par exemple, la procédure qui suit va écrire dans les colonnes C et D de
la feuille nommée Feuil1 les valeurs d'un graphique en nuage nommé
Graph1. A adapter...
Sub recup()
Dim lngIndex As Long
On Error Resume Next
ActiveSheet.ChartObjects("Graph1").Activate
Application.ScreenUpdating = False
With ActiveChart.SeriesCollection(1)
For lngIndex = 1 To .Points.Count
a = Application.WorksheetFunction.Index(.XValues, lngIndex)
b = Application.WorksheetFunction.Index(.Values, lngIndex)
Sheets("Feuil1").Range("C" & lngIndex) = a
Sheets("Feuil1").Range("D" & lngIndex) = b
Est il possible de récupérer les coordonnées d'un point sur une courbe. En fait c'est un nuage de point qui sont relié entre eux.
Lorsqueje clique sur ma courbe et sélectionne un point, Excel m'affiche les X et les Y correspondant. en fait je voudrai renvoyer ces élement dans une cellule par exemple en appuyant sur une touche pour pouvoir les travailler après.
Je commence tout juste a regarder VBA dasn les graphique donc ........
Bonsoir,
Par exemple, la procédure qui suit va écrire dans les colonnes C et D de la feuille nommée Feuil1 les valeurs d'un graphique en nuage nommé Graph1. A adapter...
Sub recup()
Dim lngIndex As Long On Error Resume Next ActiveSheet.ChartObjects("Graph1").Activate Application.ScreenUpdating = False With ActiveChart.SeriesCollection(1) For lngIndex = 1 To .Points.Count a = Application.WorksheetFunction.Index(.XValues, lngIndex) b = Application.WorksheetFunction.Index(.Values, lngIndex) Sheets("Feuil1").Range("C" & lngIndex) = a Sheets("Feuil1").Range("D" & lngIndex) = b
