Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 !
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
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é
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 !
- 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