VBA - Sélection toutes feuilles d'un classeur pour mise en page

VBA - Sélection toutes feuilles d'un classeur pour mise en page - VB/VBA/VBS - Programmation

Marsh Posté le 17-08-2004 à 12:31:33    

:hello:  
 
Débutant dans la programmation, j'ai un petit problème.
 
Je souhaiterais, par le biais d'une macro sous EXCEL, appliquer la même mise en page (portrait, agrandir les marges...) à toutes les feuilles d'un même classeur.
Ces feuilles sont définies par l'option afficher les pages d'un tableau croisé dynanique, elles varient donc souvent..., raison pour laquelle je n'ai pas réussi par le biais de l'enregistreur... :fou:  
 
J'ai réussi à trouver le code pour que toutes les feuilles du classeur soient sélectionnées, mais la mise en page ne se fait que sur la premiére feuille (feuille active)...
 
Est ce qu'une personne pourrais me répondre (en me donnant le code) ?
 
Merci d'avance
En espérant être clair.  ;)

Reply

Marsh Posté le 17-08-2004 à 12:31:33   

Reply

Marsh Posté le 17-08-2004 à 13:49:45    

Slt,
 
Essaye de procédr avec une boucle.
Par exemple si tu as les 3 premières feuilles à mettre en page :
 
///////////////////////////////////
dim i as integer
 
i=1
 
'On parcours trois fois la procédure de mise en page
While i < 4
 
'Puis on traite pour la feuille actuelle. Pour cela, remplace dans ta procedure les ActiveSheet par "Sheets(i)" ou i est le numero de la feuille actuelle
 
'On passe à la feuille suivante
i=i+1
 
wend
///////////////////////////
 
Voilà...


Message édité par guzman le 17-08-2004 à 13:50:44
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed