J'ai une série de 40 checkbox sur une page, j'aimerai qu'elles se décochent toutes d'un coup lorsque je clique sur un bouton de commande mais je sais pas si cette fonction là existe :
Code:
Private Sub CommandButton1_Click()
CheckBox.all = False
End Sub
J'ai essayé ça marche pas vous savez ce qui peut faire cette meme fonction???
Autant pour moi j'ai lu trop vite et pensé à un formulaire mais ça pourra servir pour une autre
********************************
Pas de moi mais ça peut-être t'aider
Code:
Sub InitialiseCheckBox()
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
autre solution pour des checkbox placées ditrectement sur une feuille de calcul :
Code:
Sub test()
Dim x As OLEObject, i As Byte
For Each x In Sheets("Feuil1").OLEObjects
If TypeOf x.Object Is MSForms.CheckBox Then x.Object.Value = False
Next x
End Sub
Private Sub CommandButton1_Click()
Dim x As OLEObject, i As Byte
For Each x In Sheets("Feuil1").OLEObjects
If TypeOf x.Object Is MSForms.CheckBox Then x.Object.Value = False
Next x
End Sub