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

10 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
michdenis
Simple suggestion, tu aurais intérêt à utiliser un X dans une colonne
destinée à ce que tu désires....ce serait moins lourd pour ton application
et c'est aussi très facile à traiter.

Sinon : Pour décocher tes checkbox...

'-------------------------------
Sub test()
'Checkbox émanant boîte à outils formulaire

For Each chk In CheckBoxes
chk.Value = 0
Next
End Sub

'-------------------------------
Sub test2()
'Checkbox émanant boîte à outils Contrôle

On Error Resume Next
For Each Sh In Shapes
Set A = Sh.OLEFormat.Object.Object
If TypeName(A) = "CheckBox" Then
A.Value = 0
End If
Next

End Sub
'-------------------------------



"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
michdenis
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
Jeanti
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
michdenis
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
Jeanti
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
Patrick Penet
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
JB
Bonjour,

Pour décocher des cases à cocher de la BO Boites à outils:

http://cjoint.com/?jEnzhpgcZt

Sub essai()
For Each c In Sheets(1).OLEObjects
If Left(c.Name, 8) = "CheckBox" Then
c.Object.Value = False
End If
Next
End Sub

JB


Bonjour.

J'ai une liste d'épicerie dont les articles sont contenus dans la colon ne 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 s eront
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
MichDenis
Bonjour Patrick,

Les 2 procédures soumises ont été testées et fonctionnent bien
dans une feuille de calcul

Au dire du demandeur et ce sans qu'il précise le type de Checkbox utilisé,
l'erreur de retrouve à la première ligne du code:

| Incompatibilité de type
| et le déboggeur pointe sur la ligne
| For Each chk In CheckBoxes
| Où est mon erreur?

Cela ne génère aucune erreur sous Excel 2003.
Est-ce qu'il y a une limitation sous certaines versions d'excel ?

| Je suppose que chk est une CheckBox, donc il faut
| utiliser Set, et re-donc For... Each est incompétent !

Tu as plus d'informations sur le sujet ?


Salutations






"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
Patrick Penet
Tu as plus d'informations sur le sujet ?


Pas vraiment.

Je programme aussi sous XL2003.

Bien sûr le code : For Each chk In CheckBoxes
fonctionne impec.

Comme Jeanti ne nous a pas dit comment chk
est défini, la solution proposée contourne le
problème, car visiblement la collection
CheckBoxes existe.

C'est juste pour aider.

Amicalement.
PP





"MichDenis" a écrit dans le message de news: Op2o%
Bonjour Patrick,

Les 2 procédures soumises ont été testées et fonctionnent bien
dans une feuille de calcul

Au dire du demandeur et ce sans qu'il précise le type de Checkbox utilisé,
l'erreur de retrouve à la première ligne du code:

| Incompatibilité de type
| et le déboggeur pointe sur la ligne
| For Each chk In CheckBoxes
| Où est mon erreur?

Cela ne génère aucune erreur sous Excel 2003.
Est-ce qu'il y a une limitation sous certaines versions d'excel ?

| Je suppose que chk est une CheckBox, donc il faut
| utiliser Set, et re-donc For... Each est incompétent !

Tu as plus d'informations sur le sujet ?


Salutations






"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
Jeanti
Merci de vous intéresser à mon problème.

Effectivement je n'ai pas indiqué comment chk est défini car je ne le sais
pas....

Tout ce que je peux vous dire c'est j'utilise une version 2002 d'Excel.
Espérant que ça puisse vous aider.

Bonne journée.

"Patrick Penet" a écrit dans le message de
news: 451ea65d$0$21142$
Tu as plus d'informations sur le sujet ?


Pas vraiment.

Je programme aussi sous XL2003.

Bien sûr le code : For Each chk In CheckBoxes
fonctionne impec.

Comme Jeanti ne nous a pas dit comment chk
est défini, la solution proposée contourne le
problème, car visiblement la collection
CheckBoxes existe.

C'est juste pour aider.

Amicalement.
PP





"MichDenis" a écrit dans le message de news:
Op2o%
Bonjour Patrick,

Les 2 procédures soumises ont été testées et fonctionnent bien
dans une feuille de calcul

Au dire du demandeur et ce sans qu'il précise le type de Checkbox
utilisé,
l'erreur de retrouve à la première ligne du code:

| Incompatibilité de type
| et le déboggeur pointe sur la ligne
| For Each chk In CheckBoxes
| Où est mon erreur?

Cela ne génère aucune erreur sous Excel 2003.
Est-ce qu'il y a une limitation sous certaines versions d'excel ?

| Je suppose que chk est une CheckBox, donc il faut
| utiliser Set, et re-donc For... Each est incompétent !

Tu as plus d'informations sur le sujet ?


Salutations






"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
























1 2