Code Réduire / Agrandir format

Version imprimable

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:

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.

19/06/2010, 22h11
Pierre Fauconnier

Salut

Les lignes

Code:

Sub bild75()

et

Code:

Sub bild100()

sont de trop.

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:

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.

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:

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:

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