Discussion :

[kent010]

Bonjour, excuser moi si je fait des erreurs je post ici mon premier commentaire.

Je désire créer un graphique a partir d'une quantité variable de donné.
N'y connaissant rien en VBA j'ai activer l'enregistreur de macro puis j'ai sélectionné la taille voulus sur ma page Excel et j'obtiens le code suivant:

1 Range("A1:F30").Select
2 ActiveSheet.Shapes.AddChart.Select
3 ActiveChart.ChartType = xlLine
4 ActiveChart.SetSourceData Source:=Range("Feuil1!$A$1:$E$30")

Mon but est donc de modifier la ligne 4 pour obtenir le graphique d'une plage de donné variable appartenant a la Feuil1.
J'ai tenter de modifier de la façons suivante:

5 ActiveChart.SetSourceData Source:=Range("Feuil1!$A$1:$E$1.End(xlDown)")

Mais cela ne fonctionne pas. Si l'un de vous peux m'aider, Merci

[Kimy_Ire]

Bonjour kent010,

Ceci fonctionnera d'avantage, je pense :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
With Worksheets("Feuil1")
    .Range("A1:F30").Select
    .Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=.Range("A1", .Columns(5).Find("*", , , , , xlPrevious))
End With

/!\ Je n'utilise jamais de "Select" mais pour une première étape, ça pourra peut-être t'aider.

Cordialement,
Kimy

[kent010]

Un grand merci a toi
Sa marche nickel!!!!