Graphique nuage de points avec ourbes lissées

Bonjour,

J’ai essayé de créer un graph nuage de points avec courbes lissées sur une nouvelle feuille. Avec la fonction d’enregistrement de macro, il ne mémorise pas bien toutes les options choisies, ça bug tout d epartout.

De plus il faut que je gère le nombre de courbes aléatoire, le nombre de lignes de données aléatoire, et que chaque courbe s’appuie sur ses propres données pour l’axe X et pour Y, là je ne sais pas comment m’y prendre.

Les résultats que j’essaye d’atteindre à l’aide d’une macro se trouvent sur la feuille (1).

Merci d’avance pour votre aide.

J'avance doucement et je rencontre une difficulté:

Je cherche à faire varier "D" dans cette ligne, je ne sais pas comment faire pour le changer en variable.

ActiveChart.FullSeriesCollection(2).Values = "=Data!$D$5:$D$10000"

J'ai essayé de faire comme ci-dessous, mais sans succès:

variable = 4

ActiveChart.FullSeriesCollection(2).Values = Sheets("Data").Range(Cells(variable, 5), Cells(variable, 10000)).Value

Quelqu'un peut-il m'aider svp.

Trouvé ça et ça fonctionne bien:

ActiveChart.FullSeriesCollection(2).XValues = Sheets(2).Range(Sheets(2).Cells(5, variable), Sheets(2).Cells(10000, variable))