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

job75

XLDnaute Barbatruc

• 22 Janvier 2023

• #2

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+

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 22 Janvier 2023

• #3

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

VB:

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Janvier 2023

• #4

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

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 22 Janvier 2023

• #5

Bonjour job75,

J'ai fait plusieurs tests mais aucun fonctionne !

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

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 22 Janvier 2023

• #6

Bonjour job75,

OOOOPPPPSSSS ça fonctionne !

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

 

Vote positif 0 Vote négatif