Discussion :

[pourinfo]

Bonjour,

J'ai un code pour réduire le format d'une feuille à 75% ou l'agrandir à 100% mais lorsque dans la feuille on choisit le choix 1 ou choix 2, la transformation n'a pas lieu. Une msgbox indique : "Erreur de compilation, End Sub attendu" :

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
 
Private Sub OptionButton1_Click()
Sub bild75()
    ActiveWindow.Zoom = 75
    Sheets("Feuille1").Select
    ActiveWindow.Zoom = 75
    Sheets("Feuille2").Select
End Sub
Private Sub OptionButton1_Click()
Sub bild100()
    ActiveWindow.Zoom = 100
    Sheets("Feuille1").Select
    ActiveWindow.Zoom = 100
    Sheets("Feuille2").Select
End Sub

Le code est dans le Workbook, les deux boutons d'options dans une autre feuille. Faut-il cet emplacement ou faut-il mettre le code dans un module ? et pourquoi ?
Merci d'avance.

[Pierre Fauconnier]

Salut

Les lignes

Code :

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

Sub bild75()

et

Code :

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

Sub bild100()

sont de trop.

[pourinfo]

après suppression de Sub bild..., la transformation a lieu lorsque le code est dans Feuille 1.
Néanmoins, la transformation a lieu uniquement dans la feuille qui contient le code :

Code :

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

1
2
3
4
5
6
7
Private Sub OptionButton1_Click()
    ActiveWindow.Zoom = 75
    Sheets("Feuille1").Select
    ActiveWindow.Zoom = 75
    Sheets("Feuille2").Select
End Sub
...   -> la réduction a lieu en Feuille 1 puis la feuille active devient la Feuille 2 mais la réduction dans Feuille 2 ne se fait pas. Le curseur passe en Feuille 2 mais le format de cette feuille ne se réduit pas.

La réduction en "cascade" n'a donc pas lieu.
Si le code concernant la Feuille 2 est dans le vba de Feuille 2, il suffit pour que la réduction se fait, mais donc uniquement si la feuille contient son code respectif.

[Invité]

Bonjour,

Vous ne pouvez pas agir par le code sur une autre feuille, donc si j'ai bien compris, sur votre feuille affichant les boutons :

Code :

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

1
2
3
4
5
6
7
Private Sub OptionButton1_Click()
bild75
End Sub
 
Private Sub OptionButton2_Click()
bild100
End Sub

et dans un module :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub bild75()
    ActiveWindow.Zoom = 75
    Sheets("Feuille1").Select
    ActiveWindow.Zoom = 75
    Sheets("Feuille2").Select
End Sub
 
Sub bild100()
    ActiveWindow.Zoom = 100
    Sheets("Feuille1").Select
    ActiveWindow.Zoom = 100
    Sheets("Feuille2").Select
End Sub