bouton reset "case à cocher"

[lamaphil57]

Bonjour à tous,

Je suis débutant en macro et je voudrais savoir comment réaliser un bouton permettant de décocher toutes les case à cocher d'un feuille. Merci d'avance pour votre aide.

 

[Myta]

Salut lamaphil57

si des checkbox de la boite a controles

Sub reset()

Dim OLEObj As OLEObject

For Each OLEObj In ActiveSheet.OLEObjects
If TypeOf OLEObj.Object Is MSForms.CheckBox Then
OLEObj.Object = True
End If
Next OLEObj

End Sub

Mytå

 

[Myta]

re le forum

Petite erreur de frappe remplace True pas False

Mytå

 

[lamaphil57]

Merci pour cette réponse aussi rapide, bon il me fait encore des erreurs sur la ligne "If TypeOf OLEObj.Object Is MSForms.CheckBox Then" mais je pense que je vais finir par le faire marcher.

Merki

 

[@+Thierry]

Bonjour Mytå, Lamaphil, le Forum

      http://perso.monaco377.com/TEygenraam/XLDGifs/DangerFlash.gif][b]Attention il semble qu'il y ait confusion !!![/b]

En reprenant cette macro, Mytå a pourtant bien précisé que c'était pour des CheckBox de la barre d'Outils Contrôles (2)... C'est à dire des Contrôle ActiveX (OLEObject quand ils sont sur une Feuille). Il est important de préciser que ces nouveaux objects sont bien plus puissants et vont remplacer tôt au tard les autres anciens controls de la barre Formulaire (existants depuis Excel 4)

Si tu as un plantage sur la ligne que tu décris, il semblerait que ce soit plutôt la barre Formulaire (1)



...

Avec la barre 1, donc sans ActiveX, c'est beaucoup plus aléatoire de boucler sur ces anciens contrôles....

Tu peux essayer ceci :
Sub TheCheckBoxFormulaire()
Dim i As Byte

For i = 1 To 10
'attention subordonné à la présence de 10 CheckBox nommées "Check Box 1", "Check Box 2", etc...
ActiveSheet.Shapes("Check Box " & i).Select
Selection.Value = False
Next
End Sub

Bonne Fin de Journée
[i][b]@+Thierry[/b][/i]

 

[lamaphil57]

Ca marche, génial, je vous remercie beaucoup.
Bon si je planne encore pour certaines fonctions, je reviens vous voir

Bon début de journée.