Discussion :

[mejmej]

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

[Touffe54]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
 
for i= 20 to 50
 
    range("D" & i & ":G" & i).select
    etc...
 
next

[mejmej]

que devient la 4 ligne?

[Touffe54]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
ActiveChart.SetSourceData Source:=Range( _
        "'synthese'!$D$9:$H$9;'synthese'!$D$" & i & ":$G$" & i)