Thibaud123
XLDnaute Nouveau
Bonjour à tous,
J'ai configuré un userform pour qu'il prenne directement la taille de l'écran et cache la barre superieure. Pour que mes boutons soient aussi au centre de l'écran, je les ai mis dans une frame invisible d'une taille fixe (la taille mini d'un écran de PC), à qui je demande d'être centrée dans mon userform.
Jusque là, ça fonctionne. Mais quand je lance le "questionnaire", j'arrive sur un nouvel userform avec une multipage. J'aimerai faire la même magouille, en demandant à cette mutlipage :
Avez vous une idée?
Thib
J'ai configuré un userform pour qu'il prenne directement la taille de l'écran et cache la barre superieure. Pour que mes boutons soient aussi au centre de l'écran, je les ai mis dans une frame invisible d'une taille fixe (la taille mini d'un écran de PC), à qui je demande d'être centrée dans mon userform.
Code:
Private Sub UserForm_Initialize()
AfficheTitleBarre Me.Caption, False 'suppresion barre titre
With Me 'userform en plein écran + couleur de l'userform
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
.BackColor = RGB(81, 98, 111)
End With
With Me.Frame1 'couleur et centrage de la frame
.Top = (Me.InsideHeight - Me.Frame1.Height) / 2
.Left = (Me.InsideWidth - Me.Frame1.Width) / 2
.BackColor = RGB(81, 98, 111)
End With
End Sub
Jusque là, ça fonctionne. Mais quand je lance le "questionnaire", j'arrive sur un nouvel userform avec une multipage. J'aimerai faire la même magouille, en demandant à cette mutlipage :
- De prendre automatique la taille de l'écran (ou la taille de mon second userform, vu que celui ci varie aussi selon l'écran)
- De positionner mes futurs frames qui seraient au centre des différentes pages de cette multipage.
Avez vous une idée?
Thib