Rendre les combobox visble au même nombre que les textBox

[apdf]

Bonsoir,

J'ai USF pour inscrire des adhérents qui fonctionne très bien, mais j'aimerais lui faire une petite modification
J'ai 100 TextBox et 100 Combobox et j'ai un "combobox2" pour afficher le nombre de textbox désiré sur l'USF qui fonctionne très bien. mais j'aimerais lui faire une petite modification au niveau des combobox:

Voila si je rentre dans la "combobox2" le nombre de 10 textbox visible sur l'USF j'aimerais avoir le même nombre de combobox visible ?

Voici mon code:

'Nombre de joueurs  concour
Private Sub ComboBox2_Change()

Application.ScreenUpdating = False

For n = 1 To 100
  Me.Controls("TextBox" & n).Visible = False
   
  If n <= CInt(ComboBox2.Value) Then
    
    With Me
      .Controls("TextBox" & n).Visible = True
      
      .Height = IIf(n < 101, Me.Controls("TextBox" & n).Top + .Controls("TextBox" & n).Height + 40, _
      .Controls("TextBox49").Top + .Controls("TextBox49").Height + 40)
    End With
    
  End If
Next

Application.ScreenUpdating = True


End Sub

Je joint mon fichier se qui apporteras un peut plus de clarté

Merci d'avance pour votre aide.

Cordialement
Max

 

[Bebere]

Re : Rendre les combobox visble au même nombre que les textBox

bonjour apdf
dans UserForm_Initialize
tu les cachent sauf combobox2

For Each Ctrl In Me.Controls
If Mid(Ctrl.Name, 9) <> 2 Then Ctrl.Visible = False
Next Ctrl

ensuite dans ComboBox2_Change

For n = 1 To ComboBox2
For c = 1 To n
Me("TextBox" & c).Visible = True
Next
For c = 3 To n + 2
Me("ComboBox" & c).Visible = True
Next
Next

 

[apdf]

Re : Rendre les combobox visble au même nombre que les textBox

Bonsoir Bebere

Je te remercie et te souhaite une bonne soirée

@+

Max