XL 2010 Ouvrir les feuilles d'un classeur avec des dimensions différentes.

[DAVID-44-]

Bonjour à tous,
Je souhaiterais intégrer des codes VBA afin d'ouvrir les feuilles d'un classeur avec des dimensions différentes.
Est-il possible de réaliser cela ?

Les noms des feuilles sont : Maison - Charges - Véhicules...

Dans "ThisWorkbook", j'ai ce code :

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.WindowState = xlNormal
Application.Width = 720 ' définit la largeur
Application.Height = 780 'définit la hauteur
ActiveWindow.Zoom = 92
End Sub

Merci de votre aide.
Bonne journée.
Cordialement.
David.

 

[job75]

Bonjour DAVID-44-,

Utilisez une macro Private Sub Workbook_SheetActivate(ByVal Sh As Object).

Et suivant la feuille donnez les dimensions que vous voulez à la fenêtre Excel :

If Sh.Name = "Maison" Then

A+

 

[DAVID-44-]

Bonjour job75,
Je mets le code dans la feuille "Maison"

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Maison" Then
Application.WindowState = xlNormal
Application.Width = 720 ' définit la largeur
Application.Height = 780 'définit la hauteur
ActiveWindow.Zoom = 92
End Sub

Comme ça ?

Merci de votre aide.
Bonne journée.
Cordialement.
David.

 

[job75]

Le code doit être dans ThisWorkbook et bien sûr avec plusieurs tests If..Then...ElseIf...Then...End If.

 

[DAVID-44-]

Bonjour job75,

J'ai fait plusieurs tests mais aucun fonctionne !

Merci de votre aide.
Bonne journée.
Cordialement.
David.

 

[DAVID-44-]

Bonjour job75,

OOOOPPPPSSSS ça fonctionne !

Merci de votre aide.
Bonne journée.
Cordialement.
David.