Code en fonction du nb de feuille

WDAndCo · 24 Mars 2014

Bonjour le Forum

Pour effectuer une presentation automatique j'ai ce code sur une feuille qui presente les colonnes de A à M:

Code:

Private Sub Worksheet_Activate()

'A executer sur le maitre    
    Columns("A:M").EntireColumn.AutoFit
    Columns("A:M").Select
    Range("M1").Activate
    ActiveWindow.Zoom = True
    Range("B2").Select
    
'A executer sur le copier   
    'Columns("DA:DQ").Select
    'ActiveWindow.Zoom = True
    'Range("DA1").Select
    
End Sub

Puis cette feuille est copier avec le meme nom dans un nouveau fichier (jamais le meme nom) et la presentation doit etre de DA à DQ, comment rendre cela automatique.
J'ai penser au nombre de feuille car le maitre ou source en à plus cinq alors que le copier en a que deux.

Votre avis.

D'avance merci
Dominique

WDAndCo · 24 Mars 2014

Re : Code en fonction du nb de feuille

Re Bonjour, j'ai trouvé cela :

Code:

Private Sub Worksheet_Activate()
If Sheets.Count = 2 Then Columns("DA:DQ").Select: ActiveWindow.Zoom = True: Range("DA1").Select: Exit Sub
    Columns("A:M").EntireColumn.AutoFit
    Columns("A:M").Select
    Range("M1").Activate
    ActiveWindow.Zoom = True
    Range("B2").Select
        
End Sub

Il doit avoir quelque chose de plus académique surement.

Code en fonction du nb de feuille

WDAndCo

XLDnaute Impliqué

WDAndCo

XLDnaute Impliqué

Discussions similaires

Code en fonction du nb de feuille

WDAndCo

XLDnaute Impliqué

WDAndCo

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency