Boucle avec checkbox(i) dans userform VBA

Fermé
mister_t9 - Modifié par mister_t9 le 17/12/2011 à 00:48
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 17 déc. 2011 à 22:29
Bonjour,

je souhaite faire une boucle du genre

for i = 1 to n
if checkbox(i).value=true then compteur=compteur+1
next i

seulement je ne trouve que des sujets où les checkbox sont dans une feuille et non dans une userform (donc pas de OLEobject).

Seulement je seche completement.... merci de votre aide !
A voir également:

3 réponses

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
17 déc. 2011 à 01:36
Bonsoir

A priori, tu peux utiliser une astuce de ce genre :
https://forums.commentcamarche.net/forum/affich-2943927-vba-excel-boucle-sur-checkbox

A+
0
Merci pour ta réponse je vais essayer tout ca !
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
17 déc. 2011 à 22:29
Bonjour,
Essaye avec..
Private Sub CommandButton1_Click()
Dim Ctl As Control, compteur As Integer
    For Each Ctl In Me.Controls
        'verifie s'il s'agit d'un checkBox
        If TypeOf Ctl Is MSForms.CheckBox Then
            compteur= compteur+ Abs(Ctl.Value)
        End If
    Next Ctl
End Sub
A+
0