automatisation de graphique

[Elve]

Bonjour à tous,

J'ai besoin de votre aide pour automatiser la création d'un graphique.
Je crée les graphiques à partir d'une page comprenant plusieurs plages de données.
avril mai juin
ent 1 2 1 12
ent2 36 2 444
ent3 63 365 111
ent4 3 2 545
avril mai juin
ent1 1 2 23
ent2 2 36 22
ent3 5 252 22
ent4 2 2 214

mon souci se situe donc aux niveaux de la saisie des données.
voici le code

Charts.Add
ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
"Courbe - Histo. 2 axes"
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B2:E5"), PlotBy:= _
xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil2"

Il faudrait( je pense) que Range("B2:E5") ne soit pas fixe mais soit du style Range("case1:case2)
avec case1=A2 puis case1=A2+5 soit case1=A7
de même pour case2=E5 puis case2=E5+5 soit case2=E10

Voila si besoin est je peux vous fournir un exemple sous excel.
Je vous remercie tous par avance .
Elve

PS: le nombre de plage n'est pas fixe, la fonction devrait s'arreter lorsqu'il n'y a plus de valeur. J'ai bien pensé à faire un
"If case1<Activesheet.UsedRange.Rows.Count then go to repars "
avec repars le debut de la boucle, mais il me faut le champs"case1".

 

[Jean-Marie]

Bonjour Elve

Voici un lien qui t'aidera à faire ce que tu souhaites, sans pas par le VBA, et t'évitera de créer le graphique à chaque fois

Lien supprimé

Pour connaître le nombres d'éléments dans une liste NBVAL()

Bonne journée

@+Jean-Marie

 

[Elve]

Bonjour,

merci pour ta réponse mais je reste persuadée qu'une boucle reste la solution la plus adaptée.
en effet si j'utilise la fonction Nbval(A:A), hormis le fait qu'il faille enlevé toutes les lignes d'entete , j'obtiens mon nombre de graphique. Ensuite je pourrais effectivement dire à la macro de faire autant de graphique que la valeur trouvée ..
Je pense effectivement que Fabrice à le même souci que moi.