VBA + Graphique

Bonjour,

Le bout de code suivant me permet de generer des graph en VBA, cependant apres de multiples essais je n'arrive pas à les faire se disposer correctement (de preference 2 par ligne)

Sub generate_chart()

Dim chrt As ChartObject

Sheets("Main").Activate

For i = 2 To 5

Set chrt = Sheets("Main").ChartObjects.Add(Left:=10, Width:=270, Top:=10, Height:=210)
chrt.Chart.SetSourceData Source:=Sheets("Calc").Range("A1:T1,A" & i & ":T" & i)
chrt.Chart.ChartType = xlLine

Next i

End Sub

J'ai essayé en creeant des variable ( et en remplacant le left et le top, mais ca ne boucle jamais correctement...

Je vous remercie d'avance pour votre aide

Thierry

Bonjour,

Ceci:

Sub Generate_Chart()
    Dim chrt As ChartObject
    Dim Gauche As Long, Haut As Long, i As Long, j As Long
    Sheets("Main").Activate
    Haut = 10
    For i = 2 To 5
        Gauche = 10
        For j = 1 To 2
            Set chrt = Sheets("Main").ChartObjects.Add(Left:=Gauche, Width:=270, Top:=Haut, Height:=210)
            chrt.Chart.SetSourceData Source:=Sheets("Calc").Range("A1:T1,A" & i & ":T" & i)
            chrt.Chart.ChartType = xlLine
            Gauche = Gauche + 270
        Next j
        Haut = Haut + 210
    Next i
End Sub

Cdlt