Discussion :

[qwerty_213]

Bonjour,

Je souhaite effectuer un zoom (zmin;zmax) sur 10 courbes, mais mon programme VBA si dessous s'arrête !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Macro1()
'
' Macro1 Macro
 
 
 
'
zmin = 30000
zmax = 31000
 
 
For G = 1 To 10
 
ActiveSheet.ChartObjects("Graphique" G).Activate
    ActiveChart.Axes(xlCategory).Select
    ActiveChart.Axes(xlCategory).MinimumScale = zmin
    ActiveChart.Axes(xlCategory).MaximumScale = zmax
 
 
Next G
 
End Sub

une idée ?

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro1()
Dim Zmin As Long, Zmax As Long
Dim G As Byte
 
Zmin = 30000
Zmax = 31000
For G = 1 To 10
    With ActiveSheet.ChartObjects("Graphique " & G).Chart.Axes(xlCategory)
        .MinimumScale = Zmin
        .MaximumScale = Zmax
    End With
Next G
End Sub

[qwerty_213]

merci mercatog

à l’exécution cela me donne:

Erreur d'execution '5'
Argument ou appel de procédure incorrect

[mercatog]

Tes graphiques sont bien nommés Graphique 1, Graphique 2....

Regardes l'espace entre le mot Graphique et le chiffre qui le suit

"Graphique " & G

[qwerty_213]

c'est bon, ca marche