Gestion du dernier onglet.

  • Initiateur de la discussion Initiateur de la discussion SophieM
  • Date de début Date de début

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 !

SophieM

XLDnaute Nouveau
Bonsoir à tous,

J'utilise une routine qui doit mettre en page chaque onglet :

Sub MEF()
Dim Feuil as Object
For each Feuil in Workbooks
With ActiveSheet.PageSetup
....
End With
Next Feuil
ActiveSheet.Next.Select
End Sub

Problème : Avec l'instruction "With", le "Next" est neutralisé. Pour compenser, je rajoute l'instruction "ActiveSheet.Next.Select". Mais de ce fait, j'ai un souci quand le dernier onglet est atteint. Il cherche le suivant ! Logique.

Comment résoudre ce casse-tête ?

P.S. Info. : Avec des noms d'onglets aléatoires (du fait de traitements successifs) je ne peux utiliser l'instruction :
Sheets(Array("Nom_Onglet","Nom_Onglet",...

À vot' bon coeur.
 
Re : Gestion du dernier onglet.

Bonsoir,
il est rarement nécessaire de sélectionner une feuille
avec ce code, je définis l'orientation "paysage" sur chaque feuille :

PS : regarde In Sheets, et non For each Feuil in Workbooks

Code:
Sub MEF()
Dim Feuil As Object
For Each Feuil In Sheets
With Feuil.PageSetup
        .Orientation = xlLandscape
End With
Next Feuil
End Sub
 
Re : Gestion du dernier onglet.

Bonsoir,
il est rarement nécessaire de sélectionner une feuille
avec ce code, je définis l'orientation "paysage" sur chaque feuille :

PS : regarde In Sheets, et non For each Feuil in Workbooks

Code:
Sub MEF()
Dim Feuil As Object
For Each Feuil In Sheets
With Feuil.PageSetup
        .Orientation = xlLandscape
End With
Next Feuil
End Sub

Hélas, solution non satisfaisante. Merci quand même.
Par contre, j'ai trouvé deux solutions alternatives que je pourrais expliciter, au besoin.
 
- 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
Retour