Checkbox.all ???

[koko_spv89]

Salut à tous

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 :

Private Sub CommandButton1_Click()
CheckBox.all = False
End Sub

J'ai essayé ça marche pas vous savez ce qui peut faire cette meme fonction???

Merci

 

[Pierrot93]

Re : Checkbox.all ???

Bonsoir Koko

ce sont des checkbox crées avec la barre d'outils formuilaire où avec la boite à outils controles ?

 

[koko_spv89]

Re : Checkbox.all ???

Bonsoir Pierrot

Elles ont été crées par la boite à outils controles...

 

[Spitnolan08]

Re : Checkbox.all ???

Bonjour,

Tu peux, par exemple, faire :

Sub Macro1()
For Each ChB In ActiveSheet.Shapes
    ChB.delete
Next
End Sub

Cordialement

Edit : Salut Pierrot, pas rafraichi
Edit2 : et en plus j'ai lu détruire...

 

[RENAUDER]

Re : Checkbox.all ???

Bonjour,

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

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

 

[Pierrot93]

Re : Checkbox.all ???

Re, bonsoir Eric, Spitnolan

autre solution pour des checkbox placées ditrectement sur une feuille de calcul :

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

bonne soirée
@+

 

[koko_spv89]

Re : Checkbox.all ???

slt spitnolan08...

Ton code c'est qd je clique sur le bouton de commande?

@+

 

[koko_spv89]

Re : Checkbox.all ???

RE-bonsoir le fil...

Je vous joins le petit fichier en quesion qui n'est qu'une esquisse du projet... pour essais

@+

 

[Pierrot93]

Re : Checkbox.all ???

Re

essaye comme ci dessous :

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

 

[koko_spv89]

Re : Checkbox.all ???

nikel merci pierrot....ça fonctionne parfaitement

et merci à tous aussi d'etre aussi nombreux à aider les débutants comme moi et aussi rapideement

@+