UserForm checkBox sur VBA

Bonjour à tous,

Sur mon userform où je n'ai que des checkbox, il y en a une qui permet de (dé)cocher toutes les autres. Ca marche très bien.

J'aimerai pouvoir tester et corriger l'erreur suivante dans une autre macro. Si checkALL est coché mais que l'utilisateur a décoché une des cases alors on décoche checkALL.

j'ai tenté un If... And For each mais évidement ça ne marche pas.


Merci pour votre aide.

Macro

''' permet de cocher toutes les cases d'un seul coup
Private Sub ALL_Click()

Dim ctl As Control

If ALL.Value = True Then
For Each ctl In Frame1.Controls
If TypeName(ctl) = "CheckBox" Then
ctl.Value = True
End If
Next
Else
For Each ctl In Frame1.Controls
If TypeName(ctl) = "CheckBox" Then
ctl.Value = False
End If
Next
End If
End Sub