Redimensionner un Frame en fonction d'une condition

kikou93 Messages postés 416 Date d'inscription   Statut Membre Dernière intervention   -  
kikou93 Messages postés 416 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai créé un UserForm avec des textBox et des Frames.
J'ai besoin de redimensionner le "Frame1" en fonction d'une condition comme suit:
Si textBox1 =1 alros les dimensionnent de Frame 1 sont :
Hight = 90
Width = 140

Si textBox1 =2 alros les dimensionnent de Frame 1 sont :
Hight = 45
Width = 90

et ainsi de suite
esque c'est possible?, si c'est oui pouvez-vous me montrer.
et pendant qu'on y est est-ce que c'est possible de déplacer "textBox" et "Frame" dans UserForm vers le haut
aidez-moi s'il vous plaît
merci d'avance

1 réponse

Maurice
 
Bonjour
Voila pour le début
Private Sub TextBox1_Change()
   Select Case Val(TextBox1.Value)
      Case 1
         H = 90
         W = 140
      Case 2
         H = 45
         W = 90
      Case Else
         H = 0
         W = 0
   End Select
   With Frame1
      .Height = H
      .Width = W
   End With
End Sub


A+
Maurice
0
kikou93 Messages postés 416 Date d'inscription   Statut Membre Dernière intervention   1
 
Merci ça marche tu m'as beaucoup aidée.
à propos du déplacement de "TextBox" et des "Frames" en fonction d'une condition tu n'as pas une idée?
0