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

[Usine à gaz]

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.

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,

 

[Roland_M]

re

as-tu vu ma réponse sur ton autre fil !

 

[Usine à gaz]

Tiens non, je ne l'ai pas vu .... j'y cours

 

[Usine à gaz]

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,

 

[Roland_M]

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 !

 

[Usine à gaz]

Merci Roland,
je ne sais plus koi te dire,
Amicalement,
Lionel,