bonjour,
je desire faire une boucle for next avec le code suivant:
de i=20 à i=50 en faisant varier D20:G20 à D50:G50 par pas de 1
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
Merci
Partager