Macro zoom
Résolu
JCB40
Messages postés
3060
Date d'inscription
Statut
Membre
Dernière intervention
-
JCB40 Messages postés 3060 Date d'inscription Statut Membre Dernière intervention -
JCB40 Messages postés 3060 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai un code pour zoomer la feuil 1 de A à J ça fonctionne
je l'ai modifié pour zoomer la feuil 2 de A à O ça ne fonctionne pas
Voici le code
Sub Zoom()
' ------------------ Adaptation automatique à la résolution écran
On Error Resume Next
Application.ScreenUpdating = False
Call Deprotege_Feuill
[A1:J20].Select
ActiveWindow.Zoom = True
Application.ScreenUpdating = True
[A1].Select
Call Protege_Feuill
Call Deprotege_Feuil2
[A1:O20].Select
ActiveWindow.Zoom = True
Application.ScreenUpdating = True
[A1].Select
Call Protege_Feuil2
End Sub
Dites moi ce qui ne va pas merci pour votre aide
--
Commence par faire le nécessaire ,puis fait ce qu'il est possible de faire et tu réaliseras l'impossible sans t'en apercevoir. Saint François d'Assise
J'ai un code pour zoomer la feuil 1 de A à J ça fonctionne
je l'ai modifié pour zoomer la feuil 2 de A à O ça ne fonctionne pas
Voici le code
Sub Zoom()
' ------------------ Adaptation automatique à la résolution écran
On Error Resume Next
Application.ScreenUpdating = False
Call Deprotege_Feuill
[A1:J20].Select
ActiveWindow.Zoom = True
Application.ScreenUpdating = True
[A1].Select
Call Protege_Feuill
Call Deprotege_Feuil2
[A1:O20].Select
ActiveWindow.Zoom = True
Application.ScreenUpdating = True
[A1].Select
Call Protege_Feuil2
End Sub
Dites moi ce qui ne va pas merci pour votre aide
Configuration: Windows / Firefox 75.0
--
Commence par faire le nécessaire ,puis fait ce qu'il est possible de faire et tu réaliseras l'impossible sans t'en apercevoir. Saint François d'Assise
1 réponse
-
Bonjour,
il faut sélectionner la feuille2:
Sub Zoom() ' ------------------ Adaptation automatique à la résolution écran On Error Resume Next Application.ScreenUpdating = False Call Deprotege_Feuill [A1:J20].Select ActiveWindow.Zoom = True Application.ScreenUpdating = True [A1].Select Call Protege_Feuill Sheets("Feuil2").Select Call Deprotege_Feuil2 [A1:O20].Select ActiveWindow.Zoom = True Application.ScreenUpdating = True [A1].Select Call Protege_Feuil2 End Sub
