Dimensionnement multipages dans un formulaire

Bonjour;

J’utilise un formulaire avec multipages qui fonctionne bien. Les deux pages ne sont pas de la même grandeur. Pour la première page pas de problème je peux dimensionner mon formulaire, mais j’aimerais que quand je travaille sur la deuxième page la grandeur du formulaire s’adapte à la page. Ce n’est que pour une question d’esthétique et je ne sais même pas si cela est possible.

Peut-être que quelqu’un pourra m’aider.

Je joins un fichier

Bonjour,

Tu peux rajouter cette macro dans ton UserForm :

Private Sub MultiPage1_Change()
If Me.MultiPage1.Value = 1 Then
    Me.MultiPage1.Width = 446
    Me.Width = 436
Else
    Me.MultiPage1.Width = 336
    Me.Width = 346
End If
End Sub

Nota : Un Workbook_Open comme suit ferait aussi bien l'affaire !

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Feuil1.Activate  'procédure permettant de selectionner la feuille"Donnéesorties"
ActiveWindow.ScrollRow = [Tbl_Donnéesorties].Rows.Count
Feuil1.Cells([Tbl_Donnéesorties].Rows.Count, 1).Activate
UserForm1.Show  'Pour afficher le formulaire à l'ouverture du classeur
End Sub

A+

Rechercher des sujets similaires à "dimensionnement multipages formulaire"