XL 2010 Macro pour décocher toutes les cases à cocher d'une feuille

[rosabelle]

Bonjour,

J'aurais besoin d'un coup de pouce :

Sur une feuille j'ai une multitude de cases à cocher.
Pour remettre à zéro cette feuille j'ai besoin entre autres de décocher toutes ces cases en une seule fois.
Quel serait le code qui chercherait toutes les cases à cocher de la feuille et les mettrai en "décoché" systématiquement que l'utilisateur les ait cochées ou pas.
J'ai tenté avec visual basic mais il ne se passe rien.
Merci par avance

 

[Staple1600]

Bonjour le fil

Issu des Discussions similaires en bas de page

Microsoft 365 - Code pour Excel pour cocher/décocher les cases d'une même colonne

Bonjour, J'aimerai pouvoir cocher une case et que celle-ci coche automatiquement toutes les cases de la colonne dessous mais pas celles de toute la feuille, seulement de la colonne sur Excel! En gros j'aimerai créer une case à cocher/décocher par colonne Est-ce possible? Pourriez-vous me...

www.excel-downloads.com

Et pour tout type de CheckBox

XL 2016 - Masquer toutes les cases à cocher via VBA

Bonjour à tous, Je suis en train de développer un Excel (forcément :D) avec des cases à cocher. J'en ai 150 et je souhaiterais savoir s'il y avait une formule pour masquer / afficher toutes les cases en une seule formule pour éviter ce genre de code : Sheets("Mise en service stations...

www.excel-downloads.com

 

[Staple1600]

Re

Pour commodité de lecture, je remets le code posté jadis dans la discussion citée dans celle-ci

Sub test_I()
'coche tous les types de CheckBox
Application.ScreenUpdating = False
Cochez True
End Sub
Sub test_II()
'décoche tous les types de CheckBox
Application.ScreenUpdating = False
Cochez False
End Sub

Private Sub Cochez(statut As Boolean)
Dim c As Object
With ActiveSheet
    .CheckBoxes.Value = statut
    For Each c In .OLEObjects
    If TypeName(c.Object) = "CheckBox" Then c.Object.Value = statut
    Next c
End With
End Sub

 

[rosabelle]

Re

Pour commodité de lecture, je remets le code posté jadis dans la discussion citée dans celle-ci

Sub test_I()
'coche tous les types de CheckBox
Application.ScreenUpdating = False
Cochez True
End Sub
Sub test_II()
'décoche tous les types de CheckBox
Application.ScreenUpdating = False
Cochez False
End Sub

Private Sub Cochez(statut As Boolean)
Dim c As Object
With ActiveSheet
    .CheckBoxes.Value = statut
    For Each c In .OLEObjects
    If TypeName(c.Object) = "CheckBox" Then c.Object.Value = statut
    Next c
End With
End Sub

Bonjour @Staple1600 ,

Merci pour ta réponse.
J'ai essayé de mettre :

Sub test_II()
'décoche tous les types de CheckBox
Application.ScreenUpdating = False
Cochez False
End Sub
dans mon fichier et ça me renvoie le message ci-dessous, je rappelle que je veux décocher uniquement toutes les cases à cocher que l'utilisateur a pu cocher :

Qu'est ce que je fais mal?

 

[Staple1600]

Re

Je viens de retester (sur Office 365)
Le code fonctionne

Testé sur feuille avec deux cases à cocher
(une issue de la BO Formulaire et une autre étant un contrôle ActiveX

Tu as copié tout le code VBA présent dans mon message ? (et ce dans un module standard ?)

 

[soan]

Bonjour rosabelle, Staple,

note que tes 4 cases à cocher sont cochées ; fais Ctrl d ➯
ça décoche tout, puis ça sauvegarde ton classeur.

---

@Staple1600 : je crois que rosabelle a uniquement besoin de décocher tout : c'est comme pour parvenir à un formulaire vierge ; elle pourrait aussi utiliser un classeur modèle .xltm où toutes les cases à cocher sont décochées à l'avance.​

---

code VBA de Module1 (6 lignes) :

Sub DécocherTout()
  'décocher toutes les cases à cocher
  Worksheets("Feuil1").CheckBoxes = 0
  'sauvegarder ce classeur
  ThisWorkbook.Save
End Sub

soan

 

[Staple1600]

Re

Pour tester le code de "cochage/décochage", voici une macro de test
(à exécuter sur une feuille vierge)

Sub Créér_Test_TOUT()
Dim c As Range, cc As Range, chkBox As CheckBox, ChBx As OLEObject
For Each c In Range("A2:A7")
Set chkBox = Range("A2:A7").Parent.CheckBoxes.Add(0, 1, 1, 0)
 With chkBox
.Top = c.Top + c.Height / 2 - chkBox.Height / 2
.Left = c.Left + c.Width / 2 - chkBox.Width / 2
.Caption = ""
End With
Set cc = c.Offset(, 3)
Set ChBx = ActiveSheet.OLEObjects.Add("Forms.CheckBox.1", Left:=cc.Left, Top:=cc.Top, Width:=cc.Width, Height:=cc.Height)
ChBx.Object.Caption = ""
Next c
End Sub

Cette macro insère des cases à cocher et des CheckBox
(case à cocher de type Formulaire et CheckBox Active X)

Ensuite lance la macro test_I
•Toutes les cases seront cochées
Puis lance la macro test_II
•Toutes les cases seront décochées

 

[Staple1600]

Re

soan
Ton code ne décoche que les cases à cocher
Le mien coche/décoche tout les types de case à cocher

NB: Comme c'est une question récurrente sur le forum, depuis le temps, je ne me laisse plus surprendre et je puise dans mes archives.

 

[soan]

@Staple1600

Ton code ne décoche que les cases à cocher
Le mien coche/décoche tout les types de case à cocher

effectivement, mon code ne décoche pas des cases à cocher de type OleObject, alors que le tien si ; mais comme j'ai téléchargé le classeur de rosabelle, j'ai vu que mon code suffit. (j'ai testé ma macro : c'est ok)

j'ai aussi laissé l'instruction de sauvegarde du classeur qui était à l'origine, à part que j'ai préféré mettre ThisWorkbook.Save plutôt que ActiveWorkbook.Save.​

soan

 

[Staple1600]

Re

soan
Je m'étais juste focalisé sur

Quel serait le code qui chercherait toutes les cases à cocher

Mais mon passage dans le fil était plus pour rappeler l'existence des Discussions similaires
et surtout ce point de la charte du forum

2.1 – Un outil de recherche sur le forum permet de voir si la question a déjà été posée.
Ne pas hésiter à l’utiliser.

Car la réponse à la question du message#1 dormait sous la poussière des archives du forum.

 

[Staple1600]

Re

=>rosabelle
Tu peux expliquer comment tu as testé le code du message#3, stp ?
Car je n'arrive pas à reproduire l'erreur que tu as mis en copie d'écran.

Sauf si il manque dans le module cette partie du code VBA

Private Sub Cochez(statut As Boolean)
Dim c As Object
With ActiveSheet
    .CheckBoxes.Value = statut
    For Each c In .OLEObjects
    If TypeName(c.Object) = "CheckBox" Then c.Object.Value = statut
    Next c
End With
End Sub

 

[rosabelle]

Bonjour rosabelle, Staple,

note que tes 4 cases à cocher sont cochées ; fais Ctrl d ➯
ça décoche tout, puis ça sauvegarde ton classeur.

---

@Staple1600 : je crois que rosabelle a uniquement besoin de décocher tout : c'est comme pour parvenir à un formulaire vierge ; elle pourrait aussi utiliser un classeur modèle .xltm où toutes les cases à cocher sont décochées à l'avance.​

---

code VBA de Module1 (6 lignes) :

Sub DécocherTout()
  'décocher toutes les cases à cocher
  Worksheets("Feuil1").CheckBoxes = 0
  'sauvegarder ce classeur
  ThisWorkbook.Save
End Sub

soan

@Staple1600

effectivement, mon code ne décoche pas des cases à cocher de type OleObject, alors que le tien si ; mais comme j'ai téléchargé le classeur de rosabelle, j'ai vu que mon code suffit. (j'ai testé ma macro : c'est ok)

j'ai aussi laissé l'instruction de sauvegarde du classeur qui était à l'origine, à part que j'ai préféré mettre ThisWorkbook.Save plutôt que ActiveWorkbook.Save.​

soan

Désolée , je viens de coller le code de @soan du post 6 dans mon fichier et ça ne fonctionne plus, mis dans un module , je suis nulle....
Dans mon fichier j'ai des cases de ce type:

J'ai mis ceci sur 1 module :

 

[Staple1600]

Re

=>rosabelle
En attendant que soan réponde à ta dernière question, tu peux répondre à la mienne de question, stp ?
(celle du message#11)

 

[soan]

@rosabelle

Désolée, je viens de coller le code de soan du post #6 dans mon fichier et ça ne fonctionne plus

alors c'est que tu dois avoir des cases à cocher de type OleObject !

dans ce cas, prends plutôt le code VBA de Staple1600.

soan

 

[Staple1600]

Re

soan
Peu importe le code qui sera choisi

Moi, je vais mal dormir, si cette contre-vérité reste publiée sur le forum
(Oui, je parle de celle qui "me nargue" depuis 10h07 ce matin)

Je sais mon code fonctionnel, je voudrais donc avant de me brosser les dents et d'enfiler mon pyjama que Rosabelle corrige le message#4 en l'éditant.
Pour enfin (après avoir copier/coller le bout manquant (là je suppute ) -> voir message#11) qu'elle arrive à faire fonctionner mon VBA.

Ainsi j'aurais le sommeil léger et le teint frais demain matin.