XL 2010 Affichage de "Case à cocher"

[dadu35]

Bonjour,

sur une page Excel j'utilise les "Cases à cocher" en tête de chaque ligne de ma liste d'adhérents.
Mon souci est que le "nom" de la "Case à cocher" apparait à l'écran.

Je ne trouve pas l'origine de cette anomalie.

Merci pour une aide potentielle.

Cordialement.

 

[Phil69970]

Bonjour @dadu35

Il est possible de faire quelque chose comme ça, cela t’intéresse t'il ?

Mais pour cela il faut avoir le fichier entier ET surtout répondre pour indiquer si le fichier corresponde à tes attentes mais tu ne l'a JAMAIS fait sur toutes tes demandes précédentes alors est ce utile de se décarcasser pour toi ?

Bonne lecture

 

[fanfan38]

Bonjour et bienvenu sur le forum
Perso je suis contre ce genre de case à cocher...
Pourquoi pas, tout simplement, un X

A+ François

 

[mapomme]

Bonjour @dadu35🙂, @Phil69970😉, @fanfan38😉,

Comme @fanfan38 et sans doute aussi @Phil69970 , je n'ai jamais aimé les cases à cocher (sauf avec O365). Je les remplace par deux caractères en police Windings.

Tout ce passe dans le module de la feuille "Adhérentes" et dans le module "Module1"

• "Module1' contient les constantes pour les cases (cochée et pas cochée) et deux fonctions utilisables aussi sur les feuilles de calcul renvoyant Vrai ou Faux suivant l'état de la case à cocher (voir utilisation en colonne U)
• Le module de la feuille "Adhérentes" traite les évènements de changement de sélection (pour basculer les pseudo cases à cocher) et les évènements de changement de valeur pour savoir si on doit mettre ou non une case à cocher en fonction de la présence ou non d'un nom en colonne C

C'est un tout tout petit plus compliqué que d'utiliser un "X" mais c'est un peu plus joli🤪. On n'a rien sans rien!

 

[sylvanu]

Bonjour tout le monde,
Ou encore cette macro qui efface tous les textes des CheckBox :

Sub EffaceTexteCheckBox()
    Dim Sh As CheckBox
    For Each Sh In ActiveSheet.CheckBoxes
        Sh.Text = ""
    Next Sh
End Sub

 

[mapomme]

Bonjour @Phil69970😀,

Mais pour cela il faut avoir le fichier entier ET surtout répondre pour indiquer si le fichier corresponde à tes attentes mais tu ne l'a JAMAIS fait sur toutes tes demandes précédentes alors est ce utile de se décarcasser pour toi ?

C'est vrai qu'en 2024, j'avais répondu dans le "vide" tout comme toi d'ailleurs...😉

 

[dadu35]

Bonjour @dadu35

Il est possible de faire quelque chose comme ça, cela t’intéresse t'il ?

Regarde la pièce jointe 1225719

Mais pour cela il faut avoir le fichier entier ET surtout répondre pour indiquer si le fichier corresponde à tes attentes mais tu ne l'a JAMAIS fait sur toutes tes demandes précédentes alors est ce utile de se décarcasser pour toi ?

Bonne lecture

Bonjour,
Merci pour cette solution que je vais mettre en place et me débarrasser des "case à cocher" qui m'ont posé bien d'autres pbs.
Bonne soirée
Cdt
Dadu

 

[dadu35]

Bonjour tout le monde,
Ou encore cette macro qui efface tous les textes des CheckBox :

Sub EffaceTexteCheckBox()
    Dim Sh As CheckBox
    For Each Sh In ActiveSheet.CheckBoxes
        Sh.Text = ""
    Next Sh
End Sub

Bonjour,

merci pour cette réponse. Je vais malgré tout me débarrasser des "cases à cocher" qui sont problématiques sur beaucoup de points de vue
Cdt
Dadu

 

[dadu35]

Bonjour et bienvenu sur le forum
Perso je suis contre ce genre de case à cocher...
Pourquoi pas, tout simplement, un X

A+ François

Bonsoir,

merci pour la réponse. Je me débarrasse des "cases à cocher".
Cdt
Dadu

 

[dadu35]

Bonjour et bienvenu sur le forum
Perso je suis contre ce genre de case à cocher...
Pourquoi pas, tout simplement, un X

A+ François

Bonsoir,

merci pour la réponse. je me conforme à la suppression des "cases à cocher".
Cdt
Dadu

 

[dadu35]

Bonjour @dadu35🙂, @Phil69970😉, @fanfan38😉,

Comme @fanfan38 et sans doute aussi @Phil69970 , je n'ai jamais aimé les cases à cocher (sauf avec O365). Je les remplace par deux caractères en police Windings.

Tout ce passe dans le module de la feuille "Adhérentes" et dans le module "Module1"

• "Module1' contient les constantes pour les cases (cochée et pas cochée) et deux fonctions utilisables aussi sur les feuilles de calcul renvoyant Vrai ou Faux suivant l'état de la case à cocher (voir utilisation en colonne U)
• Le module de la feuille "Adhérentes" traite les évènements de changement de sélection (pour basculer les pseudo cases à cocher) et les évènements de changement de valeur pour savoir si on doit mettre ou non une case à cocher en fonction de la présence ou non d'un nom en colonne C

C'est un tout tout petit plus compliqué que d'utiliser un "X" mais c'est un peu plus joli🤪. On n'a rien sans rien!

Bonsoir,

merci pour cette réponse;
Je vais simplement supprimer les cases et passer par une valorisation de cellule par Clic
Cdt
Dadu

 

[mapomme]

merci pour cette réponse;
Je vais simplement supprimer les cases et passer par une valorisation de cellule par Clic

👍C'est plutôt une bonne chose. La simplification gagne toujours à être mis en œuvre.

 

[dadu35]

👍C'est plutôt une bonne chose. La simplification gagne toujours à être mis en œuvre.

tout à fait.
bonne soirée