boucle avec checkbox(i) dans userform VBA

Question

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 !

Zoul67 · Answer

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

mister_t9 · Answer

Merci pour ta réponse je vais essayer tout ca !

lermite222 · Answer

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 SubA+

Boucle avec checkbox(i) dans userform VBA

3 réponses

Discussions similaires

Newsletters