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.