VBA - Décocher toutes les cases à cocher

  • Initiateur de la discussion Initiateur de la discussion pepsi
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

pepsi

XLDnaute Occasionnel
Bonjour

Je voudrais intégrer un bout de code qui permet de décocher toutes les case à cocher des colonnes E et F

Les cases à cocher vont de E6 à E200 et de F6 à F200

Quelle serait la méthode ?

Merci d'avance
 
Re : VBA - Décocher toutes les cases à cocher

Bonjour,

Copiez le code suivant dans un module standard

Code:
Sub DecocheCheckBox()
Dim CB As Excel.CheckBox
Dim S As Worksheet
Dim i&
Dim col&
Set S = ActiveSheet
For i& = 1 To S.CheckBoxes.Count
  Set CB = S.CheckBoxes(i&)
  col& = CB.TopLeftCell.Column
  If col& = 5 Or col& = 6 Then CB.Value = False
Next i&
End Sub

Cordialement.

PMO
Patrick Morange
 
Re : VBA - Décocher toutes les cases à cocher

J'ai écrit ce code mais j'ai une erreur


Code:
Sub decoche()


Dim i As Integer
i = 6
While i < 200

Worksheets("feuil1").Range("E" + CStr(i)).Select
Selection.Value = False
Worksheets("feuil1").Range("F" + CStr(i)).Select
Selection.Value = False

i = i + 1
Wend

End Sub

J'ai l'erreur

" erreur d'exécution '1004' :
La méthode select de la classe Range a échoué


Pourquoi ?
 
Re : VBA - Décocher toutes les cases à cocher

Bonjour, moi j'ai fais sa il y a pas longtemps et sa marche nickel au cas où!

Private Sub CommandButton11_Click()
Sub RAZ() ' RAZ nom de la macro par exemple
For Each CheckBox In Sheets("nom_de_la_feuille_en_question").CheckBoxes
CheckBox.Value = 0
End Sub

par contre sa décoche toutes les case à cocher de la feuille pas seulement colonne E et F, sa je pourrais pas te dire !

Cordialement,
Bassist.
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
205
Réponses
15
Affichages
265
Réponses
18
Affichages
1 K
Réponses
12
Affichages
602
Réponses
2
Affichages
268
Retour