Boucle avec checkbox(i) dans userform VBA

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 !

3 réponses

  1. Merci pour ta réponse je vais essayer tout ca !
    0
    1. Contributeur
      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