Case à cocher : macro select toute ou zéro

[Totor]

Bonjour à tous,

J'ai sur une pages dix cases à cocher. Je souhaite faire deux macros associées à deux boutons
1) 1 macro sélectionne les 10 cases à cocher
2) 1 macro les deselectionnne toutes.

Je ne sais pas comment m'y prendre.

Merci du coup de pouce.

Bon week end à XLD

Ciao

Totor

 

[Creepy]

Bonsoir le Forum, Totor,

Plutôt que de faire deux macros, je fais un toggle bouton. Le toggle bouton s'enfonce quand tu cliques dessus et 'ressort' quand tu re-cliques dessus. Enfoncé valeur = true, sinon false

Je prends la valeur de mon toggle pour l'appliquer à mes item de ma liste.

Voila le code :

Private Sub TgbSelectAll_Click()
Dim Valeur As Boolean
Dim Nb_List As Integer

Valeur = TgbSelectAll.Value ' je stocke la valeur de mon bouton
Nb_Liste = ListGraph.ListItems.Count ' je cherche dans ma liste combien j'ai d'Items

For I = 1 To Nb_Liste ' pour chauqe items
        ListGraph.ListItems(I).Checked = Valeur ' j'applique la valeur du toggle
Next I
End Sub

@+

Creepy

 

[Totor]

Creepy,

Merci pour ton coup de main, mais en voyant ton code je suis tombé de ma chaise.

Sache que je suis un mauvais de VB.

J'ai réussi à créer le bouton toggle (c'est déjà pas mal)

J'ai insérer ton code au bouton mais ça plante au niveau de 'valeur'. Tu me diras : c'est normal.

Que dois je mettre à la place?
Y a t il d'autres modif à faire dans ton code?

Merci creepy

Totor

 

[Creepy]

Bonsoir,

Petite explication :

Valeur= REMPLACE_PAR_LE_NOM_DE_TON_TOGGLE.Value

Idem pour le listegraph, c'est le nom de ma zone de liste !

@+

Creepy

 

[Totor]

Bonojour,

Je voudrais faire un toggle button qui selectionnne ou déselectionnne toutes les checkbox de ma page.

Pour l'instant le toggle ne marche que sur la check 1 et pas la 2.

Avez vous une idée pour résoudre ce problème?

Mon fichier est joint

Merci

Totor [file name=selectall.zip size=11647]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/selectall.zip[/file]

 

[totor]

J'ai oublié de préciser que j'utilise maintenant des checkbox et pas de cases à cocher