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
153

Statistiques des forums

Discussions
312 223
Messages
2 086 402
Membres
103 200
dernier inscrit
pascalgip