Probleme Macro pour tracer un graphique XY

Bonjour, je travaille sur Excel2007 et je souhaite faire une macro qui me trace un graphique en XY nuage de points a partir de 2 colonnes.

Pour cela, j'utilise l'enregistreur de macro, mais alors, quand je lance la macro, je n'ai pas un graphique XY mais 2 series (mes 2 colonnes) et en abscisse le numero de la case qui correspond...

Pourtant mon graphique se fait bien pendant l'enregistrement.

Savez vous d'ou peut venir le probleme ?

Voici le code de ma macro :

ActiveSheet.Shapes.AddChart.Select

ActiveChart.ChartType = xlXYScatterSmoothNoMarkers

ActiveChart.SeriesCollection.NewSeries

ActiveChart.SeriesCollection(1).XValues = "=Feuil1!$G$6:$G$33"

ActiveChart.SeriesCollection(1).Values = "=Feuil1!$H$6:$H$33"

J'ai un deuxieme probleme qui concerne cette macro, je veux en fait faire le graphique jusqu'à une ligne que je rentre dans une zone de texte useform.

J'ecris donc " a = (UserForm1.TextBox1.Text) " puis je remplace mon 33 par a, mais alors plus rien ne se fait, j'ai un message d'erreur.

Savez-vous d'où peuvent venir ces problèmes et comment les résoudre?

Merci d'avance

Salut le forum

Le plus simple Sébastien, serait de joindre un fichier compatible Excel97-2003.

Tu n'as qu'à cliquer sur ce lien : Joindre un fichier pour que l'on puisse t'aider, et recopier l'adresse sur ta ficelle.

A te relire

Joyeuses Fêtes à tous

Mytå

https://www.excel-pratique.com/~files/doc/traitement_de_donnee2.xls

J'ai trouvé la solution pour tracer le graph en XY, par contre, j'ai un probleme car j'aimerais qu'il se trace jusqu'à la derniere ligne non vide, comment puis-je faire ?

Merci d'avance

Probleme resolu, si ca peux aider quelqu'un :

ActiveChart.SeriesCollection(1 ).XValues = "=Feuil1!R6C7:R" & a & "C7"

ActiveChart.SeriesCollection(1 ).Values = "=Feuil1!R6C8:R" & a & "C8"

avec a la valeur de la derniere ligne.