Checkbox variable

Bonjour,

Je cherche à simplifier une macro.

J'ai besoin de réinitialiser des checkbox.

(J'aimerais qu'elles soient toutes décochées)

J'utilise ce code :

CheckBox1.Value = False

CheckBox2.Value = False

CheckBox3.Value = False

CheckBox4.Value = False

J'en ai plus d'une centaine, donc un peu long !

J'ai essayé de créer une boucle afin d'avoir un code plus simple et plus rapide à rédiger.

Dim i As Byte

For i = 1 To 4

"CheckBox_" & i.Value= True

Next i

End Sub

Mais cela ne fonctionne pas.

J'ai cherché mais je n'ai rien trouvé.

Merci pour votre aide.

Bonjour,

Regardes cette ligne de code et adaptes :

Me.Controls("CheckBox_" & i).Value = True 'en présument que ce sont des contrôles ActiveX!

Bonjour,

Si on parle de contrôles ActiveX, essaie ceci :

Public Sub Reset_ChexkBoxes()
Dim Ctrl As OLEObject
    For Each Ctrl In ActiveSheet.OLEObjects
        If TypeOf Ctrl.Object Is MSForms.CheckBox Then
            Ctrl.Object.Value = False
        End If
    Next Ctrl
End Sub

Merci Jean-Eric.

J'avais trouvé cette macro, et je l'avais essayé et ça ne fonctionnait pas.

J'ai réessayé, et en fait, mes checkbox étaient groupées 3 par 3 pour des facilité de placement dans le tableau !

Une fois dissociées, ça marche !

Bilan : quelques heures de perdues !

encore merci pour votre réactivité.