Changer style case à cocher Fermé

Question

Bonjour, 

Je recherche sans résultat sur google une chose plutôt simple : changer le style de mes cases à cocher. Actuellement j'ai un symbole plutôt moche et pixelisé et j'aimerais changer ce symbole par un X par exemple.

Version excel : pro 2019

Merci d'avance

Configuration: Windows / Firefox 70.0

JCB40 · Answer

Bonjour,
Un exemple de votre fichier avec explications serait le bienvenu.
Pour transmettre un fichier, 
Veillez à ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES 
il faut passer par un site de pièce jointe tel que cjoint.com 

Allez sur ce site : https://www.cjoint.com/ 
Clic sur parcourir, 
Cherche ton fichier, 
clic sur ouvrir, 
Clic sur "Créer le lien cjoint", 
Copier le lien, 
Revenir ici le coller dans une réponse... 
Cordialement

Noo · Answer

Bonjour,

Voici en image : https://www.cjoint.com/c/IKct64U2ICZ

Et s'il faut une croix à cocher en excel : https://www.cjoint.com/c/IKcuabqbXbZ

Je cherche simplement à remplacer le "symbole" (je ne sais pas comment le nommer) qui se trouve à l'intérieur de la case lorsqu'elle est cochée par autre chose comme un X par exemple.

Noo · Answer

Bonjour,

Microsoft traite du sujet et explique comment faire sur son site : https://support.office.com/fr-fr/article/remplacer-les-cases-%C3%A0-cocher-par-un-x-par-une-coche-6e72246b-4c4a-489d-8e6e-17298d0e0cf4

Quand vous dites "pas possible", c'est sur ma version ? car je ne trouve pas l'option décrite par Microsoft, le seul endroit ou ce serait possible : https://www.cjoint.com/c/IKduYDCJhSZ mais la partie du bas, appelé "flèche" reste grisé

Frenchie83 · Answer

Bonjour,

Impossible de modifier une cas à cocher, par contre vous pouvez créer vos propres cases à cocher.
Créez des "zones de textes", donnez-leur les dimensions d'une case à cocher, et appliquez une petite macro individuelle qui mettra un "X" ou l'enlèvera à chaque clic.

Exemple pour 2 cases à cocher faites maison, il n' y a plus qu'à reproduire pour chaque objet créé
Sub ZoneTexte1_Clic()
    With ActiveSheet.Shapes("ZoneTexte 1").TextFrame.Characters
        If .Text = "X" Then .Text = "" Else .Text = "X"
    End With
End Sub

Sub ZoneTexte2_Clic()
    With ActiveSheet.Shapes("ZoneTexte 2").TextFrame.Characters
        If .Text = "X" Then .Text = "" Else .Text = "X"
    End With
End Sub


Avec le fichier en exemple
https://mon-partage.fr/f/MSUPv9fS/

Cdlt

Changer style case à cocher

4 réponses

Discussions similaires