Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Résolu par Roland : adapter à l'écran toutes les feuilles du classeur

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,

J'ai un code dans chaques feuilles de mon classeur qui me permet d'adapter à l'écran.
- les colonnes à afficher sont différentes pour toutes les feuilles.

Code:
Private Sub Worksheet_Activate()
ActiveWindow.DisplayHeadings = False
Range("A:X").Select 'adapter à l'écran à préciser
ActiveWindow.Zoom = True

J'aimerais ou j'ai besoin LOL que le code soit mis dans le thisworkbook et passe à l'ouverture du classeur toutes les feuilles en les adaptant à l'écran.

J'ai tenté de copier le code (1 par feuille avec ses colonnes à afficher) et ça ne marche pas.

Auriez-vous une idée ?
Je joins un classeur test.
Avec mes remerciements,
Amicalement,
Lionel,
 

Pièces jointes

Bonsoir Roland, le forum,

je suis désolé de t'embêter encore sur ce fil mais j'ai un souci.
Ton code fonctionne parfaitement avec le classeur test.

Mais quand je le mets sur mon classeur de travail, j'ai une erreur et ça bloque.
Erreur de compilation - variable non définie
je joins la photo.
Peux-tu encore m'aider ?
LOL, j'ai aussi un "petit" souci sur l'autre fil.

Vraiment Merci Roland,
Amicalement,
Lionel,
 

Pièces jointes

  • Sans titre.jpg
    163.1 KB · Affichages: 39
Dernière édition:
bonsoir,

effectivement tu as mis l'option Explicit il faut simplement la déclarer ?
tu rajoutes R$ à Dim
Dim Feuille as ..., R$

je vais voir sur ton autre fil j'ai vu que tu avais un souci à tout de suite !
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…