userform modifiable en vbaRésolu

Question

bonjour

comment puis je afficher 5 textbox dans une deuxieme userform en selectionnant le chiffre 5 dans une premiere userform, et afficher 3textbox en selectionnant le chifre 3 et ainsi de suite.

merci d'avance

valtrase · Accepted Answer

Lut,
Une m&#233;thode parmis tant d'autres .......

Si tu as un bouton dans ta UserForm1
Private Sub CommandButton1_Click()
   UserForm1.Tag = TextBox1.Text
   Load UserForm2
   UserForm2.Show
End Sub

En mode desing de ta UserForm2 tu donnes &#224; la propri&#233;t&#233; .Tag de ton premier TextBox la valeur 1, 2 pour ton deuxi&#232;me, etc........
tu mets tous les .Visible des textBox &#224; False
Et dans le code de ta UserForm2
Private Sub UserForm_Initialize()
Dim MyObject
For Each MyObject In UserForm2.Controls
    If Val(MyObject.Tag) <= Val(UserForm1.Tag) Then
        MyObject.Visible = True
    End If
Next
End Sub

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

valtrase · Answer

Re,
Et si tu as d'autres controles sur ta UserForm2

Private Sub UserForm_Initialize()
Dim MyObject


For Each MyObject In UserForm2.Controls
    If TypeName(MyObject) = "TextBox" Then
        If Val(MyObject.Tag) <= Val(UserForm1.Tag) Then
            MyObject.Visible = True
        End If
    End If
Next
End Sub

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

treza88 · Answer

ok 


je viens de tester &#231;a marche au poil.


merci pour le coup de pouce

par contre comment dois jefaire pour indiquer que mon post est resolu merci de me l'indiquer

valtrase · Answer

tu cliques sur le petit bouton &#224; gauche du post  r&#233;ponse accept&#233;e

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Userform modifiable en vba

4 réponses

Discussions similaires