Redimensionner un Frame en fonction d'une condition

Question

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

Maurice · Answer

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

Redimensionner un Frame en fonction d'une condition

1 réponse

Votre réponse

Discussions similaires

Newsletters