Macro zoom

Résolu/Fermé

JCB40 Messages postés 2967 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 28 décembre 2024 - 17 avril 2020 à 14:29
JCB40 Messages postés 2967 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 28 décembre 2024 - 17 avril 2020 à 18:18

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

Configuration: Windows / Firefox 75.0

A voir également:

Macro zoom
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro word - Guide
Zoom pour pc - Télécharger - Téléphonie & Visio
Zoom ecran pc - Guide
Jitbit macro recorder - Télécharger - Confidentialité

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
17 avril 2020 à 16:21

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

JCB40 Messages postés 2967 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 28 décembre 2024 465
Modifié le 17 avril 2020 à 17:15

Bonjour
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

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729 > JCB40 Messages postés 2967 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 28 décembre 2024
17 avril 2020 à 17:52

Cela provient de ta macro Deprotege_Feuil2

essaie de mettre quand même ceci:

Call Deprotege_Feuil2
Sheets("Feuil2").Select

JCB40 Messages postés 2967 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 28 décembre 2024 465 > cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024
17 avril 2020 à 18:18

Merci pour les conseils
Cordialement

Discussions similaires

faire une boucle sans VBA

erreur système(zoom) sur appareil photo numerique panasonic

Transformer un chiffre en lettres dans excel sans macro

recup couleur de cellule sans macro