Discussion :

[XceSs]

Bonjour, j'essaye de centrer un userform par rapport à l'emplacement et la taille d'une fenêtre excel mais sans succès...

connaître emplacement fenêtre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
    Application.Width
    Application.Height
    Application.Left
    Application.Top

Merci de votre aide

[JPierreM]

Bonsoir,

faire un essai avec : StartUpPosition

JP

[Excel_man]

Bonjour,
Tu as les différentes options dans les propriétés de ton usf.
Tu n'as plus qu'as les adapter a ton code.
a+

[XceSs]

merci de votre aide mais j'ai trouvé la solution à ma demande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 With Application
    LargeurFenêtre = .Width
    HauteurFenêtre = .Height
    PositionGauche = .Left
    PoisitionHaut = .Top
 End With
 With Me
  .Left = (PositionGauche + LargeurFenêtre) - ((LargeurFenêtre + .Width) / 2)
  .Top = (PoisitionHaut + (HauteurFenêtre / 2)) - .Height
 End With

[Frédéric_E]

Merci de cette aide , version un poil corrigée à insérer dans UserForm_Activate :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub UserForm_Activate()
 
With Application
    LargeurFenetre = .Width
    HauteurFenetre = .Height
    PositionGauche = .Left
    PositionHaut = .Top
 End With
 With Me
  .Left = (PositionGauche + LargeurFenetre) - ((LargeurFenetre + .Width) / 2)
  .Top = (PositionHaut + HauteurFenetre) - ((HauteurFenetre + .Height) / 2)
 End With
 
End Sub