XL 2019 Personnaliser la case a cocher

[Madoka]

Bonjour,
N'ayant aucune connaissance, pouvez-vous me dire comment je peux faire pour que mes cases a cocher change de couleur quand on coche et ou décoche ?
Je vous envoie un screen pour une explication plus simple.
Aussi, peut ton agrandir la case à cocher ?
S'il vous plait, notez bien que je n'ai aucune connaissance.
Merci par avance.

 

[fanch55]

Bonjour,
Les checkboxs de formulaire ou les checkboxs activex sur feuille conservent toujours la même taille de case à cocher , ils ne "grandissent" qu'avec le zoom de feuille .
On ne peut agir que sur la couleur ou la bordure du fond, pas de la case à cocher en elle-même.

Le contournement possible est de mettre les caractères þ et/ou ý de la police Wingdings.
ou des Textboxs avec les mêmes caractères et de faire un flip/flop à chaque fois qu'on clique dessus .

Cela va être délicat à mettre en œuvre si vous êtes néophyte en VB .
Si vous êtes partant, je peux vous fournir des exemples .

 

[riton00]

Bonjour,

Éventuellement mettre un fichier anonymisé à la dispo des intervenants cela permettrait de répondre plus précisément à ta question.

Slts

 

[fanch55]

Classeur à titre d'exemple

 

[Madoka]

Bonsoir,

J'ai réussi à me dépatouiller un peu partout sur le net avec la mise en forme conditionnelle.
Quand je coche, la cellule se remplit tout en vert et quand je décoche, la cellule est vierge.
Après j'aime beaucoup le modèle avec le zone de texte que vous m'avez envoyé.
Mais je serai intéressée par les 3 modèles afin d'avoir un rendu et me donner une idée du résultat
Si vous pouvez m'apprendre a le réaliser, je serais ravi.

Par la suite, j'ai besoin de cliquer juste sur une cellule que j'aurais choisi pour tout décocher avec seulement un click gauche..
Avez vous aussi cette solution a me donner ?

 

[Madoka]

J'ai trouvé ca. Je vais voir si j'arrive a suivre et comprendre...

https://fr.extendoffice.com/documents/excel/4302-excel-uncheck-all-checkboxes.html

 

[Madoka]

non j'ai pas compri...
J'ai copié-collé et ca fait rien.
Je pense que je dois choisir la cellule (A4 la mienne) mais je ne sais pas ou la placer dans ce code vba :
Sub clearcheckbox()
'Updateby Extendoffcie
Dim c As Object
For Each c In ActiveSheet.OLEObjects
If InStr(1, c.Name, "CheckBox") > 0 Then
c.Object.Value = False
End If
Next
End Sub

 

[Madoka]

Voici mon fichier excel avec les 3 cellules Réinitialiser pour les 3 plages de coches a décocher en un clic

 

[ChTi160]

Bonsoir Madoka
Peut-être avec ceux-ci !

Sub clearcheckbox()
'Updateby Extendoffcie
    Dim c As Object
    For Each c In ActiveSheet.Shapes
        If InStr(1, c.Name, "Check Box") > 0 Then
           c.DrawingObject.Value = False
        End If
    Next
End Sub

Bonne fin de Soirée
Jean marie

 

[Madoka]

Bonsoir Jean Marie,
Ca marche comme je le voulais sauf que je ne peux pas ouvrir tout le temps la fenêtre VB pour cliquer sur la lecture.
Serait il possible de placer votre nettoyage sur la cellule A4 svp ?

 

[riton00]

Bonsoir,

Autre essai

Slts

 

[Madoka]

Bonsoir Riton,

Merci pour ce travail mais le problème des couleurs sur les coches, j'ai réussi a fini.
Ce que je voudrai est que la cellule A4, qui en un click gauche, décoche toutes le coches de la plage de cellule C6 à E13

 

[ChTi160]

Bonsoir le Fil ,
Ton fichier adapté pour ce qui est de la Cellule "A1"
un Double Click sur "A1" et les Check Box se décochent ( Si cochées Lol )!
Bonne soirée
Jean marie

 

[fanch55]

Bonsoir à tous,

Dans le classeur joint,
il faut double cliquer sur une des cellules "RÉINITIALISER" pour décocher tous les checkboxes entre 2 "RÉINITIALISER" ou la fin de données.

 

[Madoka]

Bonsoir Chti160 et Fanch55,

Tout d'abord Grand Merci a vous tous pour votre aide sans oublier Riton00 !!!
J'ai fini de vous harceler !
Fanch55 a trouvé ce que je voulais ! Merciiiii beaucoup !!!!
Si vous passez sur Lost Ark, venez sur le serveur Trixion me faire un coucou 😛
Ceci dit, bonne soirée et portez vous bien.
Encore un GRAND MERCI pour tout !!!