bonjour,
je desire faire une boucle for next avec le code suivant:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub graph2()
'
' graph2 Macro
'
'
    Range("D9:H9,D20:G20").Select
    Range("D20").Activate
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range( _
        "'synthese'!$D$9:$H$9;'synthese'!$D$20:$G$20")
    ActiveChart.ChartType = xlColumnStacked
    ActiveChart.Parent.Delete
    Range("K13").Select
End Sub
de i=20 à i=50 en faisant varier D20:G20 à D50:G50 par pas de 1

Merci