Microsoft 365 Cases à cocher en série

[Thibault98]

Bonjour,

Je voudrais cocher les "cases à cocher" présentent dans la colonne "A" soit en cliquant dessus, soit en appuyant sur la barre espace en descendant vers le bas.
ou en décochant celles-ci avec la même méthode.

Je suis sur Microsoft 365 insider.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Range("A1:A31")) Is Nothing Then Exit Sub
Target.Value = IIf(Target.Value = false, true, false)
End Sub

Ci-joint un fichier sans le code.

Cordialement,
Merci et bonne soirée.

 

[wDog66]

Bonjour Thibault98

Mettre des cases à cocher dans une feuille n'est jamais une bonne chose à mes yeux 🙄
Mieux vaut utiliser un "X" plus simple à gérer

Quant à votre fichier... comment dire 🤔 ca ou rien, c'est pareil... franchement...

 

[Thibault98]

Merci et bonne journée.

 

[Phil69970]

Bonjour à tous

@Thibault98
Je te propose ce fichier
Fonctionne avec les flèches de direction ou avec la souris sur les cellules A1 à A31

Et je plussoie les 2 remarques

Mieux vaut utiliser un "X" plus simple à gérer

Quant à votre fichier... comment dire 🤔 ca ou rien, c'est pareil... franchement...

Merci de ton retour

 

[dysorthographie]

Bonjour,
Personnellement j'ai jamais compris en quoi un X voulait dire vrai ?

Pour ce qui concerne les cases à cocher je suis d'accord, c'est pas une bonne idée.
Mais Vrai/Faux est suffisant parlant pour ne pas gérer du texte.

Target.Value = Not Target.Value

 

[Phil69970]

@dysorthographie

Personnellement j'ai jamais compris en quoi un X voulait dire vrai ?

Pourtant l'utilisateur (pas le programmateur) sur des cases à cocher voit visuellement un X ou une absence de X dans la case à cocher, et il comprend tout de suite que si il coche la case c'est oui (Vrai) et si il ne la coche pas c'est non (Faux).
==> Visuellement pour l'utilisateur un X dans une cellule est aussi parlant qu'une croix dans une case à cocher ce n'est que "l'emballage" autour du X qui change vu de l'utilisateur

Et visuellement on est très proche

 

[dysorthographie]

La déférence c'est.

 If range("A1")="X" then
If range("A1") then 'si vrai/faux.
Range("A1")=iif(range("A1")="X","","X")
range("A1")= not range("A1") 'vrai/faux

Je préfère ce qui est booléen
Vrai/Faux, "X"/"", "Oui"/"Non" pourquoi pas "Yes"/"No"

Ceci dit ce n'est qu'un point de vue pas une obligation

Un jour mon chef m'a demandé si je pouvais écrire une macro sur un fichier excel existant.

Je lui est demander si c'était lui qui avait créé le fichier.

Quand il m'a répondu qu c'était lui j'ai répondu que c'était pas possible.

Après analyse il c'est avéré que j'avais raison.

Dans une société où j'intervenais comme prestataire une commerciale avait saisie en commentaire ne pas tenir compte.

Le client final recevait des lettres de mise en demeure avec la motion ne pas tenir compte.

Oui l'utilisateur du fichier peut écrire "X" mais il appartient au créateur et a sa hiérarchie de fixer les règles du jeu.

 

[wDog66]

Bonjour

Je préfère ce qui est booléen
Vrai/Faux, "X"/"", "Oui"/"Non" pourquoi pas "Yes"/"No"

Pas étonnant vu le pseudo 😜

 

[wDog66]

@dysorthographie pourquoi se fâcher 🤔
T'es sérieux là... il y a tellement plus grave dans la vie 😂

 

[Phil69970]

Re

@Thibault98

Merci de ton retour

Pas cool du tout !!! 🙃😠