Sous VBA, déselectionner des cases à cocher

[TontonJeje]

Bonjour

Sur une feuille Excel, j'ai créé un bouton qui permet de cocher plusieurs cases à cocher avec le code ci-dessous :

Sub Bouton255_Clic()
'
' Bouton255_Clic Macro
'
' Touche de raccourci du clavier: Ctrl+q
'
ActiveSheet.Shapes.Range(Array("Check Box 78", "Check Box 80", "Check Box 81", "Check Box 82", "Check Box 83", "Check Box 84", "Check Box 85", "Check Box 86")).Select
With Selection
.Value = xlOn
.LinkedCell = ""
.Display3DShading = True
End With

End Sub​

Mais quand les cases sont cochées après avoir cliqué sur le bouton, si j'ai besoin d'en décocher une, impossible. Comment résoudre ce problème ? 😕

Merci d'avance.

 

[Staple1600]

Re : Sous VBA, déselectionner des cases à cocher

Bonjour


If faudrait remanier ton code pour cocher tes checkboxs sans les sélectionner.
Essaie de t'inspirer du code que je proposais dans ce fil
https://www.excel-downloads.com/threads/case-a-decocher.189075/

 

[TontonJeje]

Re : Sous VBA, déselectionner des cases à cocher

Oui mais je n'ai pas trouvé justement...

 

[Staple1600]

Re : Sous VBA, déselectionner des cases à cocher

Re

Je viens d’éditer mon précédent message
Suis le lien tu trouveras un exemple à adapter 😉

 

[Pierrot93]

Re : Sous VBA, déselectionner des cases à cocher

Bonjour,

pour des cases à cocher de la barre d'outils formulaire placées sur une feuille de calcul, boucle sur toutes, code à utiliser dans le module de la feuille concernée :

Dim c As CheckBox
For Each c In CheckBoxes
    c.Value = xlOn
Next

bon après midi
@+

 

[TontonJeje]

Re : Sous VBA, déselectionner des cases à cocher

Merci pour vos réponse.
Si je comprends bien, le code que vous me proposez activera toutes les cases à cocher de la feuille ?
Or, dans mon cas, je ne veux activer que certaines cases à cocher.

 

[Pierrot93]

Re : Sous VBA, déselectionner des cases à cocher

Re,

bah... testes le nom....

Dim c As CheckBox, t() As Variant
t = Array("Check Box 1", "Check Box 2")
For Each c In CheckBoxes
    If Not IsError(Application.Match(c.Name, t, 0)) Then c.Value = xlOn
Next

A voir ensuite lesquelles sont les plus / moins nombreuses....

 

[TontonJeje]

Re : Sous VBA, déselectionner des cases à cocher

Ca bloque sur la ligne For Each c In CheckBoxes
Erreur d'exécution '424'
Objet requis

 

[Pierrot93]

Re : Sous VBA, déselectionner des cases à cocher

Re,

où est placé ton code ?

 

[Staple1600]

Re : Sous VBA, déselectionner des cases à cocher

Re, bonjour Pierrot93

Totojeje:
Juste pour savoir tu as bien vu ce message?
https://www.excel-downloads.com/threads/sous-vba-deselectionner-des-cases-a-cocher.190358/
Et suivi le conseil qui s'y trouvait?

EDITION: Bonjour leti 😉
"qui sont bosse courage" -> kesako? moi pas comprendre 😉

 

[laetitia90]

Re : Sous VBA, déselectionner des cases à cocher

bonjour tous 🙂🙂🙂
seulement pour saluer mes 2 amis Jean Marie & Pierrot qui sont "bosse" courage😎
bisous a+ leti

 

[Si...]

Re : Sous VBA, déselectionner des cases à cocher

salut

Si... tu as défini les "LinkedCell", un code du genre

Sub Bouton255_Clic()
  Dim n As Byte
  For n = 0 To 4
    Range("A" & Array(3, 5, 8, 9, 6)(n)) = 1
  Next
End Sub

permet de "cocher" seulement les 5 cases dont les cellules liées sont respectivement A3, A5, A8 ...