Autres (RESOLU)Redimensionner USF selon la valeur de Textbox

[chaelie2015]

Bonsoir Forum
Je souhaite redimensionner Mon USF selon la valeur de Texbox2
exemple : si Textbox2 = 1 alors afficher que textbox3
si Textbox2 = 2 alors afficher que textbox3 et textbox4
si Textbox2 = 3 alors afficher que textbox3 et textbox4 et textbox5
si Textbox2 = 4 alors afficher que textbox3 et textbox4 et textbox5 et textbox6
si textbox2= "" masquer toutes les textbox (3 ; 4 5 et 6)
merci

 

[chaelie2015]

Bonsoir Charlie
ce que j'ai mis !

Private Sub TextBox2_Change()
With Me
             .TextBox3.Visible = False
             .TextBox4.Visible = False
             .TextBox5.Visible = False
             .TextBox6.Visible = False
 With .TextBox2
    Select Case .Value
           Case 1
           Me.TextBox3.Visible = True
           Case 2
            Me.TextBox3.Visible = True
            Me.TextBox4.Visible = True
           Case 3
            Me.TextBox3.Visible = True
            Me.TextBox4.Visible = True
            Me.TextBox5.Visible = True
           Case 4
           Me.TextBox3.Visible = True
           Me.TextBox4.Visible = True
           Me.TextBox5.Visible = True
           Me.TextBox6.Visible = True
     End Select
 End With
End With
End Sub

à tester
Bonne fin de Soirée
Jean marie

Bonsoir jean marie
Merci pour la réponse; mais je souhaite redimensionner mon USF
a+

 

[ChTi160]

re
je n'ai rien compris a tes explications qui sont Claires sur ce Sujet !
excuses !
Bonne fin de Soirée
Jean marie

 

[chaelie2015]

re
je n'ai rien compris a tes explications qui sont Claires sur ce Sujet !
excuses !
Bonne fin de Soirée
Jean marie

Bonsoir jean
encore une fois désolé ,ci rattaché le fichier avec la solution .
merci

 

[job75]

Bonsoir chaelie2015, ChTi160,

Il n'y a pas à se préoccuper de la visibilité des TextBoxes, elles doivent être toujours visibles :

Private Sub TextBox2_Change()
Select Case TextBox2
    Case 1: Me.Height = 168
    Case 2: Me.Height = 201
    Case 3: Me.Height = 236
    Case 4: Me.Height = 270
    Case Else: Me.Height = 133
End Select
End Sub

A+

 

[chaelie2015]

Bonsoir chaelie2015, ChTi160,

Il n'y a pas à se préoccuper de la visibilité des TextBoxes, elles doivent être toujours visibles :

Private Sub TextBox2_Change()
Select Case TextBox2
    Case 1: Me.Height = 168
    Case 2: Me.Height = 201
    Case 3: Me.Height = 236
    Case 4: Me.Height = 270
    Case Else: Me.Height = 133
End Select
End Sub

A+

Bonsoir ChTi160 , JOB
merci pour la réponse , c'est parfait et plus simple.
a+

 

[mapomme]

Bonsoir à tous

Un autre code:

Private Sub TextBox2_Change()
   If TextBox2 >= 1 And TextBox2 <= 4 Then
      UserForm1.Height = 35 + Me.Controls("textbox" & (TextBox2 + 2)).Top + Me.Controls("textbox" & (TextBox2 + 2)).Height
   Else
      UserForm1.Height = 35 + TextBox2.Top + TextBox2.Height
   End If
End Sub

nota : la valeur 35 est à adapter à votre Windows.