Macro zoom
Résolu
JCB40
Messages postés
3013
Date d'inscription
Statut
Membre
Dernière intervention
-
JCB40 Messages postés 3013 Date d'inscription Statut Membre Dernière intervention -
JCB40 Messages postés 3013 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
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
A voir également:
- Macro zoom
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Zoom appel video - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger zoom gratuit pour pc - Télécharger - Téléphonie & Visio
1 réponse
Bonjour,
il faut sélectionner la feuille2:
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
Merci pour ton aide
j'ai copié/collé ta macro j'ai un beug/Call Deprotege_Feuil2
Message Sub ou fonction non définie
Cordialement
essaie de mettre quand même ceci:
Call Deprotege_Feuil2 Sheets("Feuil2").Select@+
Cordialement