Autres (RESOLU)Redimensionner USF selon la valeur de Textbox

chaelie2015 · 8 Février 2022

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

job75 · 8 Février 2022

Bonsoir chaelie2015, ChTi160,

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

VB:

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 · 8 Février 2022

ChTi160 à dit:

Bonsoir Charlie
ce que j'ai mis !

VB:

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 · 8 Février 2022

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

chaelie2015 · 8 Février 2022

ChTi160 à dit:
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 · 8 Février 2022

Bonsoir chaelie2015, ChTi160,

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

VB:

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 · 8 Février 2022

job75 à dit:
Bonsoir chaelie2015, ChTi160,

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

VB:

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 · 8 Février 2022

Bonsoir à tous

Un autre code:

VB:

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.

Autres (RESOLU)Redimensionner USF selon la valeur de Textbox

chaelie2015

XLDnaute Accro

Pièces jointes

job75

chaelie2015

XLDnaute Accro

ChTi160

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Pièces jointes

job75

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

mapomme

XLDnaute Barbatruc

Discussions similaires