Conseil codage vba pour affichage centré

[ripou37]

Bonsoir forumeurs!

dans le cadre de mon boulot, j'ai conçu un outil auxquels plusieurs personnes auront accès. J'ai mis le classeur en plein écran avec une macro vba mais ce que je souhaite faire aussi, c'est centrer les feuilles sur les écrans des utilisateurs sachant que chacun d'entre eux ont des tailles d'écran différentes ...

Merci à vous!
ripou37

 

[jpb388]

Re : Conseil codage vba pour affichage centré

Bonjour

a tester

Private Sub UserForm_Initialize()
With Me
.Left = (ActiveWindow.Width - Me.Width) / 2
.Top = (ActiveWindow.Height - Me.Height) / 2
End With
End Sub

 

[ripou37]

Re : Conseil codage vba pour affichage centré

Merci jpmais ma demande ne concerne pas un userform mais l'affichage de toutes les feuilles du classeur ... aurais-tu une solution ? merci encore!

ripou37

 

[Evelynetfrancois]

Re : Conseil codage vba pour affichage centré

bonjour tout le monde ..
dans Private Sub Worksheet_Activate()
..............
Range("A1:F1").Select ( a1 f1 = la largeur de la page a afficher)
ActiveWindow.Zoom = True

E et F

 

[jpb388]

Re : Conseil codage vba pour affichage centré

Bonjour
si c'est le classeur tu mets l'instruction

Application.WindowState= ici la valeur qui te convient parmi les trois proposées

les feuilles suivront le classeur mais si tu veux être sur tu mets

ActiveWindow.WindowState = ici la valeur qui te convient parmi les trois proposées

personnellement ie ne vois pas autre chose