Cocher une cellule sur Excel

Question

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 !

ThePeteSampras · Answer

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 !

f894009 · Answer

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

eriiic · Answer

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

ThePeteSampras · Answer

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 ;)

Cocher une cellule sur Excel

4 réponses

Discussions similaires

Newsletters