Graphique a base des donnees exportees via ACCESS

[Godzestla]

Re,

Pour la deuxième boucle
cela devrait donner un truc du genre (je tape direct dans le post et donc pas de test de syntaxe ni de compil....)

 
'generation des graphiques
For idx = 1 To offset
  'Le nom de l'activité est Activite_Nom(idx)
  'Les lignes a prendre en compte pour le range du grapgh sont:
  '   de Activite_from(idx)
  '   a  Activite_to(idx)
  
ChartS.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("GMS").Range("G" & Activite_from(idx) & ":G" & Activite_to(idx)), PlotBy:= _
        xlColumns
    ActiveChart.SeriesCollection(1).XValues = "=GMS!R" & Activite_from(idx) & "C2:R" & activite_to(idx) & "C2"
    ActiveChart.Location Where:=xlLocationAsObject, Name:="gra"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Tx Service Colis GMS " & Activite_nom(idx)
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "LB Ent"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Tx Service %"
    End With
Next idx
 

tu piges ?
reste à voir pour le positionnement des différents graphiques.

[Chikatilo]

oui merci , c'est gentil de ta part
j'en susi tres reconnaissant de ton aide , elle m'est tres utiles

D'apres ce que j'ai compris ,
la 1 boucle , cherche le nom de l'activité la par exple "Fraise" et il me permette de definir le nombre de ligne qui vont avec "indx"
est bien ca ?

[Godzestla]

la 1 boucle , cherche le nom de l'activité la par exple "Fraise" et il me permette de definir le nombre de ligne qui vont avec "idx"
est bien ca ?

Oui

Active_nom(idx) = nom (par exemple fraise)
Active_from(idx) = première ligne ou "fraise" apparait
Actite_to(idx) = dernière ligne ou "fraise" apparait

la boucle de 1 à offset traite les différentes activités.

[Chikatilo]

oui j'ai compris ,
sincerment respect Mr
mm un grand respect

[Godzestla]

sincerment respect Mr
mm un grand respect

Pas de quoi, c'est mon métier.
Mais merci pour la reconnaissance.

Et avec plaisir.

[Chikatilo]

tu pourra voir ton pm ?
j'ai besoin de ton experience