[VBA] - compter le nombre de boutons dans un UF

[n0vocaine]

Bonjour à tous

Après quelques recherches je n'arrive pas à trouver de solution à mon problème. En effet, je souhaiterai connaître le nombre de "ToggleButton" comptenu dans mon "userform".

Question:

Quel est le code pour obtenir se paramètre?

Code essayé:

Code :

1
2
3
4
sub test()
dim a as integer
a = Me.ToggleButton.Controls.Count
end sub

Voila, merci à bientôt.

[LouiMz]

Bonjour,

Vous pouvez essayer cette methode :

Code :

1
2
3
4
5
6
7
8
9
10
Dim ctrl As Control, i As Integer
 
For Each ctrl In UserForm1.Controls
 
'Si le type du Controle est un ToggleButton on incrémente
    If TypeOf ctrl Is MSForms.ToggleButton Then
          i = i + 1
    End If
 
Next

Il me semble que ce point est déjà traité dans les tuto sur developpez.com

[gFZT82]

Bonjour,

Effectivement le sujet est traité sous
http://silkyroad.developpez.com/VBA/...serForm/#LII-G

Cordialement.

[n0vocaine]

Au vu de la structure de ton code 'LouiMz', il est vrai que le sujet à déjà du être traité. Probablement même dans le tuto qui concerne les boucles "Each", mais je n'ai pas pensé à faire le calcul sur cette base. Comme "Me.Frame1.controls.count" marche et donne le nombre de "controls" dans le "frame", je me suis dit qu'il devait y avoir une syntaxe pour avoir directement le nombre de togglecontrols dans l'UF.

Merci et désolé pour la redite.