Position/couleur multipage dans userform

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.

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
 

Pièces jointes

  • QUESTIONNAITRE RPS.xlsm
    26.1 KB · Affichages: 84

Discussions similaires

Réponses
0
Affichages
197

Statistiques des forums

Discussions
312 841
Messages
2 092 708
Membres
105 514
dernier inscrit
Hébera