Usage d'une boucle

[kdpit]

Bonjour,
Je voudrais rendre des objets (commandbutton) visibles à partir d'un userform en fonction du nombre (d'objets à afficher) précisé par l'utilisateur. Ces objets sont invisibles sur le userform. Si l'utilisateur veut voir 20 objets (commandbutton), les 20 objets doivent apparâitre. S'il veut voir 50, je veux faire afficher par vague de 20.

Quelqu'un pourrait-il m'aider?
Merci.

 

[Pierrot93]

Re : Usage d'une boucle

Bonsoir kdpit

regarde le code ci-dessous si il peut t'aider, maintenant sans plus de détails et sans fichier, difficile de t'en dire plus :

Dim c As Control
For Each c In Me.Controls
    If TypeName(c) = "CommandButton" Then
        If CInt(Mid(c.Name, 14)) > 20 Then c.Visible = False
    End If
Next c

bonne soirée
@+