Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Décocher plusieurs cases en un clic.

Décocher plusieurs cases en un clic.

12 réponses
Avatar
Jeanti
Bonjour.

J'ai une liste d'épicerie dont les articles sont contenus dans la colonne A.
Dans la colonne B j'ai le nombre d'articles désirés.
Dans la colonne C j'ai une case à cocher qui indique les articles qui seront
imprimés dans la zne d'impression définie.
Ex:
A1: Pain baguette B1: 2 C1: case à cocher
A2: Litre de lait B2: 1 C2: case à cocher
etc...

J'aimerais pouvoir décocher toutes les cases cochées en un seul clic. Est-ce
possible?

Merci
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Jeanti
Merci Patrick.

Tu as trouvé la solution à mon problème. Ça fonctionne à merveille.

Merci aussi à ceux qui ont participé à la recherche. J'aprécie énormément.

Au plaisir...

Jeanti

"Patrick Penet" a écrit dans le message de
news: 451e4b8c$0$21150$
Je suppose que chk est une CheckBox, donc il faut
utiliser Set, et re-donc For... Each est incompétent !
Dim x As Integer
For x=1 To CheckBoxes.count
Set Chk=CheckBoxes(x)
Chk.Valueúlse
Next x

PP


"Jeanti" a écrit dans le message de news:

Encore une petite précision svp.

Quand je clique sur le bouton j'obtiens le message d'erreur '13
erreur d'exécution
Incompatibilité de type
et le déboggeur pointe sur la ligne
For Each chk In CheckBoxes
Où est mon erreur?

Merci

"michdenis" a écrit dans le message de news:

Tu fais un clic droit sur l'onglet de la feuille
dans le menu contextuel, tu choisis la commande : Visualiser le code
et dans la feuille blanche, tu colles l'un ou l'autre procédure.

Et dans ta feuille de calcul, tu peux ajouter un bouton émanant
de la boîte d'outils formulaire auquel tu affectes la macro.



"Jeanti" a écrit dans le message de news:
%
Merci pour la suggestion mais je peux difficilement modifier le
fonctionement de mon application.

Pour faire une histoire courte... ce classeur est utisisé par une
personne
sérieusement handicapée, pour qui l'utilisation de la souris est plus
simple
que le clavier. Donc toutes les actions qu'elle doit faire pour
compléter sa
liste sont exécutées via la souris... Histoire courte terminée.

Je suis quelque peu néophyte en Excel et je ne comprend pas comment
appliquer ta solution. Tu me dis de la copier dans le module feuille où
l'action se déroule. Pour moi ce n'est pas clair. Peux-tu être plus
explicite svp.

Merci

"michdenis" a écrit dans le message de news:
OCbxyq$
Le code proposé est à copier dans le module feuille où l'action se
déroule.


"Jeanti" a écrit dans le message de news:
%23pFJfY%
Bonjour.

J'ai une liste d'épicerie dont les articles sont contenus dans la
colonne
A.
Dans la colonne B j'ai le nombre d'articles désirés.
Dans la colonne C j'ai une case à cocher qui indique les articles qui
seront
imprimés dans la zne d'impression définie.
Ex:
A1: Pain baguette B1: 2 C1: case à cocher
A2: Litre de lait B2: 1 C2: case à cocher
etc...

J'aimerais pouvoir décocher toutes les cases cochées en un seul clic.
Est-ce
possible?

Merci



















Avatar
magic-dd
salut

tu peux essayer ca qui marche bien

Private Sub CommandButton2_Click()
Dim Ctrl As Control

For Each Ctrl In UserForm1.Controls
If TypeName(Ctrl) = "CheckBox" Then
Ctrl.Value = True
End If
Next
End Sub
1 2