<<  < |    Page 4 of 4    | >  >>

' *******************************************************

' Permet via un bouton placé sur le formulaire de

' réinitialiser les contrôles Checkbox (Mise à False)

' *******************************************************

Private Sub CmdInitCheckBox_Click()

     Dim Ctrl As MSForms.Control

     ' Remise à False des cases à cocher

     For Each Ctrl In UserForm1.Controls

          If TypeOf Ctrl Is MSForms.CheckBox Then Ctrl.Value = False

     Next Ctrl

End Sub



<<  < |    Page 4 of 4    | >  <>>/b>