Cocher/décocher tout, en vba: j'y suis presque

[13GIBE59]

Bonjour le forum 🙂

Dans le fichier joint, mes deux macros fonctionnent très bien en boutons "formulaires".

Je voudrais les grouper en un seul bouton "active x", mais mon code fonctionne à moitié.

Quelqu'un pourrait-il m'aider, s'il vous plaît ?

Merci d'avance.

 

[Dull]

Re : Cocher/décocher tout, en vba: j'y suis presque

Salut GiBé🙂, le Forum

Peut-être comme cela

EDITION: Salut Skoobi 🙂

Bonne Journée

 

[skoobi]

Re : Cocher/décocher tout, en vba: j'y suis presque

Bonjour Jean-Bernard,

et comme ceci?

Private Sub CommandButton1_Click()
  For i = 2 To 24
      Cells(i, 1) = IIf(CommandButton1.Caption = "Décocher tout", "o", "þ")
  Next i
  CommandButton1.Caption = IIf(CommandButton1.Caption = "Décocher tout", "Cocher tout", "Décocher tout")
End Sub

Edit: salut Dull 🙂🙂, j'ai pas rafraichi

 

[13GIBE59]

Re : Cocher/décocher tout, en vba: j'y suis presque

Bonjour Dull. 🙂

Merci pour ta réponse, mais ton code ne correspond pas tout à fait à mon souhait, puisqu'il ne fait "qu'inverser" les valeurs de A2:A24.

Je voudrais simplement cocher toute la sélection ou la décocher en un clic.

Merci quand même.

edit : salut skoobi. Pas vu ton envoi. Je reviens.

 

[13GIBE59]

Re : Cocher/décocher tout, en vba: j'y suis presque

Merci beaucoup Skoobi, ça marche du tonnerre ! Exactement ce que je voulais. 😀

Bon week à vous deux. (Et à tout le forum, d'ailleurs). 😉