Microsoft 365 Cases à cocher en série

Thibault98 · 7 Juillet 2024

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.

VB:

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.

Thibault98 · 8 Juillet 2024

Merci et bonne journée.

wDog66 · 8 Juillet 2024

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 · 8 Juillet 2024

Merci et bonne journée.

Phil69970 · 8 Juillet 2024

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

wDog66 à dit:
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 · 8 Juillet 2024

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.

Code:

Target.Value = Not Target.Value

Phil69970 · 8 Juillet 2024

@dysorthographie

dysorthographie à dit:
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 · 8 Juillet 2024

La déférence c'est.

Code:

 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 · 8 Juillet 2024

Bonjour

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

Pas étonnant vu le pseudo

wDog66 · 8 Juillet 2024

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

Phil69970 · 10 Juillet 2024

Re

@Thibault98

Phil69970 à dit:
Merci de ton retour

Pas cool du tout !!!

Microsoft 365 Cases à cocher en série

Thibault98

XLDnaute Occasionnel

Pièces jointes

Thibault98

wDog66

XLDnaute Occasionnel

Thibault98

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

Pièces jointes

dysorthographie

XLDnaute Accro

Phil69970

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

wDog66

XLDnaute Occasionnel

wDog66

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

Discussions similaires