Tracer graphique sans connaitre nombre colonnes

Bonjour,

Ma macro rassemble certaines donnees de plusieurs feuilles dans une feuille puis tracer un graphique.

Afin d'ameliorer mon code et de permettre aux utilisateurs d'ajouter des feuilles comme ils le souhaitent, je souhaiterais que ma macro trouve seule le nombre de colonnes remplies avant de tracer le graphe.

En gros, j'ai besoin que le graphe soit tracer pour les colonnes B a la derniere colonne.

J'ai donc procede ainsi mais cela ne fonctionne pas.

Voyez vous une erreur ?

num_col = Worksheets(x).Range("XFD1").End(xlToLeft).Column
 Columns("B:F").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=ActiveSheet.Range("$B:$F")
' etc... mise en forme du graphique

Merci !

Tuline a écrit :

Bonjour,

bonjour,

tu ne tiens pas compte de la variable num_col pour rendre variable ta dernière colonne de données.

set wsx=worksheets(x)
num_col = wsx.Range("XFD1").End(xlToLeft).Column

Set r = wsx.Range(Cells(1, 1), Cells(1, num_col)).EntireColumn

    wsx.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=r
' etc... mise en forme du graphique

ActiveChart.SetSourceData Source:=r

Merci !

Mais cette ligne la ne fonctionne pas...

Bonjour,

pourtant ce code fonctionne chez moi, ...

Desolee !

J'avais oublie le Set !

Merci beaucoup !