Cocher une cellule sur Excel

[Fermé]
Signaler
Messages postés
23
Date d'inscription
lundi 5 décembre 2011
Statut
Membre
Dernière intervention
25 mai 2012
-
Messages postés
23
Date d'inscription
lundi 5 décembre 2011
Statut
Membre
Dernière intervention
25 mai 2012
-
Bonjour tout le monde !

Je travaille actuellement sur excel 2010 et je souhaiterais cocher les cellules de mon choix sans passer par l'insertion des cases à cocher que je ne trouve pas très esthétiques. Ainsi, les cellules seraient vides quand je ne fais rien, et cochées (par une croix par exemple) lorsque je double-cliquerai dessus.

En regardant sur Internet, j'ai cru comprendre qu'il était possible d'insérer un code dans une macro pour arriver au résultat que je souhaite. Malheureusement, je n'y connais strictement rien en macro donc si l'un d'entre vous avait la gentillesse de m'expliquer la procédure complète et détaillée pour que j'y arrive, ce serait top de chez top !

J'attends vos réponses, merci beaucoup !

4 réponses

Messages postés
23
Date d'inscription
lundi 5 décembre 2011
Statut
Membre
Dernière intervention
25 mai 2012
2
J'ai trouvé sur ce site un document où une personne a réussi à faire ce que je veux: cocher les cellules par un X lorsque l'on double-clique dessus.

Mais je n'arrive pas à comprendre comment il a fait même en ouvrant le fichier et en allant dans les macros...

Si quelqu'un peut jeter un coup d'oeil, ça me serait d'une grande grande aide !

Voici le lien: https://www.excel-downloads.com/threads/tableau-avec-cellules-a-cocher.77581/

Merci !
Messages postés
15870
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
28 août 2021
1 525
Bonjour,

Quelques commentaires qui vous aiderons a mieux comprendre ce qui se passe dans l"exemple que vous avez recupere

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim DerLigTab As Integer
' Fait quelques tests pour sortir de la proc au cas ou
If Target.Count > 1 Then Exit Sub
'Derniere ligne du tableau definie par
'la premiere cellule de la Plage de cellule nommee Total (L74 à L79)
' ici : 74
DerLigTab = Range("Total").Row
' Vérifie que le double clique est bien dans la plage souhaitée
' ici D4 à F73 (74-1)
If Intersect(Range("D4:F" & DerLigTab - 1), Target) Is Nothing Then Exit Sub
' Si oui on continue
'si cellule double-cliquee vide
If Target.Value = "" Then
'ecriture X
Target.Value = "X"
Else
'Efface contenu de la cellule double-cliquee
Target.ClearContents
End If
End Sub



Bonne suite
Messages postés
24161
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
13 août 2021
6 868
Bonjour,

sinon tu peux déposer un exemple de ton fichier en disant précisément ce que tu souhaites.
cjoint.com et coller ici le lien fourni

eric
Messages postés
23
Date d'inscription
lundi 5 décembre 2011
Statut
Membre
Dernière intervention
25 mai 2012
2
Finalement j'ai mis des cases à cocher dans chaque cellule et ça rend pas si mal que ça donc je vais rester là dessus!

Mais merci une nouvelle fois pour tes réponses Eric, je garde tes conseils dans un coin et ça pourra certainement me servir pour une prochaine fois ;)