Problème Reset checkbox

[charlieddr]

Bonjour,

Je posséde une feuille (feuil1) exel avec 50 cases à cocher (controle formulaire) dans le cadre de mon QCM.
Les cases à cocher non pas de nom ni de numéro.
J'ai un code mais fonctionne pas, d'où vient le soucis?

Sub Reinitialiser()
For Each Obj In Worksheets("Feuil1").OLEObjects
If TypeOf Obj.Object Is MSForms.CheckBox Then
Obj.Object.Value = Not (Obj.Object.Value)
End If
Next Obj
End Sub

 

[James007]

Re : Problème Reset checkbox

Bonjour,

Quels sont les contrôles qui ont été utilisés ...? ( ActiveX ou Forms )

Si tu ne sais pas ... le plus simple est de poster ton fichier ...

A +
🙂

 

[MJ13]

Re : Problème Reset checkbox

Bonjour Charlie, James

A tester le fichier joint:

 

[charlieddr]

Re : Problème Reset checkbox

C'est de la mise en forme.

 

[MJ13]

Re : Problème Reset checkbox

Re

Quand on demande un fichier, c'est pas pour rien 😕.

Alors tu fais un effort, sinon ce sera pour 2012.

 

[charlieddr]

Re : Problème Reset checkbox

Désolé, voici le fichier joint

 

[MJ13]

Re : Problème Reset checkbox

Re

Merci pour le fichier.

Bon la je ne pourrais pas t'aider car je l'ai fait avec des controles activeX (ce que ton code préssentait) mais je ne sais pas faire avec des contrôles formulaires (j'ai du en faire il ya longtemps ).

Attendons que quelqu'un sache le faire, car cela m'intéresse (il faudrait trouver le nom en VBA de chaque contrôle).

 

[laetitia90]

Re : Problème Reset checkbox

bonjour tous
essai comme cela

Sub es()
    Dim i As CheckBox
    For Each i In Feuil1.CheckBoxes
    If i.Value = xlOn Then i.Value = xlOff
    Next i
End Sub

 

[James007]

Re : Problème Reset checkbox

Re,

Merci pour le fichier ...

La macro a l'air de fonctionner ...

A +
🙂

Edit : Coucou Laetitia 🙂

 

[laetitia90]

Re : Problème Reset checkbox

rebonsoir
james je connaissais pas cette methode de l'ecrire ?? bravo
passe une bonne soirée 🙂🙂

 

[Si...]

Re : Problème Reset checkbox

Salut

et avec les cellules liées (en K) ?

Sub Reinitialiser()
  Dim n As Byte
  For n = 13 To 28 Step 2
   If Cells(n, 11) = True Then Cells(n, 11) = False
  Next
End Sub

 

[charlieddr]

Re : Problème Reset checkbox

Un grand merci à tous !

 

[MJ13]

Re : Problème Reset checkbox

Bonjour à tous

Merci à tous pour vos codes et plus particulièrement à James.

Je mes suis aperçu que je n'avais jamais programmé les cases à cocher en VB mais en macro XL4, mais c'était plus délicat 😕.