insertion de variables

[Reeaz]

Bonjour,

je suis en train de créer un graph et je l'ai fait à l'enregistreur de macros et tout marche ss problème.
Seulement, ma plage de données sources est succeptible de varier notamment le nombre de ligne. J'ai donc crée deux variables fin et fin2 que je voudrais insérer ds ma macro. Mais je n'y arrive pas!
Voila le début du code, si qqun sait comment l'intégrer ds le code, peut il corriger ma macro?
Merci.

reeaz


Sub CreerGraphique()
'Création du graphique par répartition de la notation
'
fin = Range("I9").End(xlDown).Row
fin2 = Range("K9").End(xlDown).Row

Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=Sheets("TCD").Range("I9:I " & fin & ",K9:K" & fin2 & ""), _
PlotBy:=xlColumns
'ActiveChart.SetSourceData Source:=Sheets("TCD").Range("I9:I24,K9:K24"), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Repartition Par Notation"

etc...

 

[kiorys]

Slt Reeaz

un tit' pb de guillemets et d'espace...

ActiveChart.SetSourceData Source:=Sheets("TCD").Range("I9:I" & fin & ",K9:K" & fin2), _
PlotBy:=xlColumns