Changer style case à cocher

Signaler
-
Messages postés
2126
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
9 septembre 2020
-
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

4 réponses

Messages postés
2059
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
12 septembre 2020
339
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

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.
Messages postés
2059
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
12 septembre 2020
339
Bonjour

Pas possible désolé
Cordialement
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é
>
Messages postés
497
Date d'inscription
jeudi 18 juillet 2019
Statut
Membre
Dernière intervention
3 septembre 2020

En effet ... je vais devoir rester avec mes symboles moches :/

Et bien merci pour la précision
Messages postés
693
Date d'inscription
dimanche 15 novembre 2015
Statut
Membre
Dernière intervention
17 août 2020
110
Bonsoir,

Un exemple de votre fichier avec explications serait le bienvenu

Slts
>
Messages postés
693
Date d'inscription
dimanche 15 novembre 2015
Statut
Membre
Dernière intervention
17 août 2020

L'explication a été donnée par 2 fois et les fichier fournit également, n'avez vous pas lu ?
Messages postés
693
Date d'inscription
dimanche 15 novembre 2015
Statut
Membre
Dernière intervention
17 août 2020
110
Bonsoir, Noo

T'appelle ça un fichier https://www.cjoint.com/c/IKcuabqbXbZ cela ne me dit pas la raison de ton coche, il fait quoi?? de la décoration, aucune indication pour montrer son utilité sur ta feuille

Slts
>
Messages postés
693
Date d'inscription
dimanche 15 novembre 2015
Statut
Membre
Dernière intervention
17 août 2020

La question n'est pas de savoir ce que cela fait, la question était simple : comment changer de symbole !

Pour vous aider à comprendre, voici un fichier avec une coche en A1 et un texte en B1 disant "La case est cochée" ou "La case n'est pas cochée" selon qu'elle le soit ou pas, cela donnera une raison d'exister à cette malheureuse coche ;) https://www.cjoint.com/c/IKshufYtv60
Messages postés
2126
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
9 septembre 2020
281
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