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

Usine à gaz

XLDnaute Barbatruc
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

  • TestAdapteFeuillesEcran.xlsm
    15.5 KB · Affichages: 27

Usine à gaz

XLDnaute Barbatruc
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: 36
Dernière édition:

Roland_M

XLDnaute Barbatruc
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:

Discussions similaires

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