Discussion :

[atk_49]

Bonjour à tous,

Je souhaiterais que la hauteur d'un userform puisse changer en fonction du choix de l'onglet, exemple concret :

Hauteur correcte


Hauteur incorrecte que je souhaiterais pouvoir ajuster lorsque l'on sélectionne cet onglet.


Merci d'avance pour votre aide.

Excellente journée.

[Al__22]

Une excellente discussion à lire :
https://www.developpez.net/forums/d9...rols-userform/

[pijaku]

Bonjour,

Si le nombre de bouton par onglet et leur taille sont fixes, ce n'est pas vraiment du dynamique qu'il te faut.
Essaie ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub TabStrip1_Change()
    With Me
        Select Case .TabStrip1.Value
            Case 0
                .Height = 150
            Case 1
                .Height = 175
            Case 2
                .Height = 200
        End Select
        .Repaint
    End With
End Sub

[atk_49]

Merci à tous pour vos réponse, j'ai retenu celle de pijaku qui correspond parfaitement à ce que je cherchais.

Code final pour mon cas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub MultiPage1_Change()
   With Me
        Select Case .MultiPage1.Value
            Case 0
                .Height = 214
            Case 1
                .Height = 340
            Case 2
                .Height = 130
        End Select
        .Repaint
    End With
End Sub

[Sylvain DG]

Salut

Tout d'abord, au changement de page dans ton MultiPAges, il faut utiliser l'événement "Change" du MultiPages.
La page sélectionnée est présentée dans "MonMultiPages.SelectedItem", tu peux l'identifier par exemple avec "MonMultiPages.SelectedItem.Index" (page1 = 0), ou par le nom ".Name".

A partir de là, soit le nombre de contrôles boutons est fixe par page, soit il est variable.

S'il est fixe, tu peux calculer la hauteur à appliquer à ton MultiPages (MonMultiPages.Height) et à ta fenêtre (Me.Height) et fonction de la page et l'appliquer dans l'événement Change du MultiPages.

Si ton nombre de contrôles est variable, il faut parcourir la collection Controls du MultiPages, trouver le max des Top+Height pour trouver la limite basse, ajoute une marge, tu auras la taille à appliquer à ton MultiPages, ajoute la marge entre le bas du multipages et le bas de ta fenêtre et (monmultipages.top + monmultipages.height + marge sous le multipages) = hauteur de la fenêtre (me.Height).

En espérant que ça t'aide.

Sylvain