Remise à zéro de checkbox

[Mapat]

Bonjour

J'ai 31 checkbox correspondant aux 31 jours d'un mois
Est-il possible de les décocher pour une remise à zéro, par
une macro
J'ai essayé en essayant de remettre la valeur false de chacun
mais ma syntaxe ne doit pas être bonne
Quelqu'un peut-il voir ça ?
Merci

 

[tototiti2008]

Re : Remise à zéro de checkbox

Bonjour Mapat,

un essai :

Sub Decoche()
Dim Ctrl as OLEObject
For each Ctrl in Feuil1.OLEObjects
If Typename(Ctrl.Object) = "CheckBox" then
Ctrl.Object.value = False
End if
Next
End Sub

 

[Papou-net]

Re : Remise à zéro de checkbox

Bonsoir Mapat,

Vois si ma solution te convient.

J'ai affecté l'adresse de chaque cellule (les 4 premières) aux checkbox correspondantes (propriété LinkedCell), et j'ai mis la couleur de ces cellules en blanc pour masquer leur valeur. Rien ne t'empêche d'affecter des cellules dans une colonne masquée.

Le bouton remet la plage de cellule à "FAUX", et donc décoche les checkbox.

On doit pouvoir agir directement sur les contrôles, mais je ne sais plus comment les désigner dans le code.

Espérant t'avoir aidé.

Cordialement.

Arghhh, grillé : tototiti a trouvé la solution que je recherchais. Félicitations, "l'excelleron".

 

[job75]

Re : Remise à zéro de checkbox

Bonsoir Mapat,

Sub RAZ()
Dim o As Object
For Each o In ActiveSheet.OLEObjects
If o.Name Like "CheckBox*" Then o.Object = False
Next
End Sub

Edit : salut tototiti, Papou-net, bien à la bourre 🙂

A+

 

[Mapat]

Re : Remise à zéro de checkbox

Re

Evidemment !!!
Ca a air de magie tout ceci !
Un grand merci a vous trois de ces réponses rapides
Ca fonctionne du feu de dieu
Bonne soirée à tous