Note: The other languages of the website are Google-translated. Back to English

Comment ajouter une coche dans une cellule en double-cliquant dans Excel?

Normalement, pour insérer une coche dans une cellule, vous devez accéder à la boîte de dialogue Symbole, trouver le symbole de coche et l'insérer manuellement. Mais il n'est pas si facile de trouver le symbole de coche dans la boîte de dialogue Symbole car il y a de nombreux symboles répertoriés à l'intérieur. Comment ajouter rapidement une coche dans une cellule dans Excel? Cet article vous montrera une méthode VBA pour ajouter facilement une coche dans une cellule en double-cliquant uniquement.

Double-cliquez pour ajouter une coche dans une cellule avec le code VBA


Double-cliquez pour ajouter une coche dans une cellule avec le code VBA

Le code VBA suivant peut vous aider à ajouter une coche dans une cellule avec un double-clic. Veuillez faire comme suit.

1. Ouvrez la feuille de calcul dont vous avez besoin pour ajouter une coche dans la cellule, puis cliquez avec le bouton droit et sélectionnez Voir le code dans le menu contextuel.

2. dans le Microsoft Visual Basic pour applications fenêtre, copiez et collez le code VBA ci-dessous dans le Code fenêtre.

Code VBA: double-cliquez pour ajouter une coche dans une cellule

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

Notes: Dans le code, B1: B10 est la plage dans laquelle vous allez ajouter une coche en double-cliquant. Veuillez le modifier en fonction de vos besoins.

3. appuie sur le autre + Q touches pour fermer le Microsoft Visual Basic pour applications et revenez à la feuille de calcul.

Maintenant, double-cliquez sur n'importe quelle cellule de la plage B1: B10, la coche sera entrée automatiquement. Et en double-cliquant à nouveau sur la cellule, la coche insérée sera supprimée.

Si vous avez besoin d'utiliser fréquemment les coches dans votre travail quotidien Excel, je recommande ici le Texte automatique Utilité de Kutools pour Excel. Avec cette fonctionnalité, vous pouvez enregistrer une coche en tant qu'entrée de texte automatique, puis la réinstaller à l'avenir en un seul clic dans Excel, comme illustré ci-dessous.
Téléchargez et essayez-le maintenant! (30-journée sentier libre)


Articles connexes:


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2021 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
bas de cabine
Commentaires (12)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
como eu faço pra inserir a marca de seleção na célula, porém sem deletar o número que estiver digitado nela ou seja, a marca sairia na frente do número quando eu der duplo clique... e quando eu quizer apagar a marca, eu dou duplo clique novamente ea célula voltaria ao normar (continuaria apenas o número).
Ce commentaire a été minimisé par le modérateur sur le site
Ola Luiz, tente essa alteracao. Ira funcionar nas cellulas A2:A10 et D2:D5, altere conforme sua necessidade.

tadao


Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean)
Si ce n'est pas Intersection(Cible, Union(Plage("A2:A10"), Plage("D2:D5"))) N'est rien alors
Application.EnableEvents = False
Si Gauche(ActiveCell.Value, 1) = ChrW(&H2713) Alors
ActiveCell.Value = Droite(ActiveCell, Len(ActiveCell) - 1)
ActiveCell.HorizontalAlignment = xlRight
autre
ActiveCell.Value = ChrW(&H2713) & ActiveCell.Value
Si fin
Annuler = Vrai
Si fin
Application.EnableEvents = True
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Existe-t-il un moyen de boucler ce code pour qu'il figure sur de nombreuses feuilles de calcul dans un classeur?
Ce commentaire a été minimisé par le modérateur sur le site
Salut leoflute, après avoir appuyé sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre, veuillez double-cliquer Ce classeur ouvrir le Ce classeur (code) fenêtre, puis copiez le code ci-dessous dans la fenêtre de code. N'oubliez pas de modifier les noms des feuilles et la plage de cellules dans le code. Private Sub Workbook_SheetBeforeDoubleClick (ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
'Mis à jour par Extendoffice 20201012
Dim xStrRg, xStrWs, xStrWsName As String
Dim xEEBol, xWSNBol, xBol comme booléen
Dim xArrWs
Dim xArrRg
Dim xI, xJ en tant qu'entier
Feuille de travail Dim xWs As
Dim xRg As Range

xStrWs = "Feuille5, Feuille1, Feuille2" 'Les noms de feuilles de calcul spécifiques
xStrRg = "B3: B10" 'La plage de cellules dans laquelle vous insérerez des coches
xArrWs = Split(xStrWs, ",")
xArrRg = Split(xStrRg, ",")

xEEBol = Application.EnableEvents
Application.EnableEvents = False
On Error Resume Next
xStrWsName = Sh.Name
xBol = Faux
xWSNBol = Faux
Pour xI = 0 Vers UBound(xArrWs)
Si xStrWsName = xArrWs(xI) Alors
xWSNBol = Vrai
Sortie pour
Si fin
Prochain xI

Si xWSNBol Alors
Définir xWs = Application.Worksheets.Item(xArrWs(xI))
Pour xJ = 0 Vers UBound(xArrRg)
Set xRg = Sh.Range(xArrRg(xJ))
Si non l'intersection (cible, xRg) n'est rien alors
xBol = Vrai
Sortie pour
Si fin
xJ suivant
Si fin

Si xBol Alors
Si ActiveCell.Value = ChrW(&H2713) Alors
ActiveCell.ClearContents
autre
ActiveCell.Value = ChrW(&H2713)
Si fin
Annuler = Vrai
Si fin
Application.EnableEvents = xEEBol
End Sub

Ce commentaire a été minimisé par le modérateur sur le site
Bonjour à tous! Que dois-je ajouter au code ci-dessus pour que la cellule change de couleur lorsque la case à cocher est ajoutée ?
Ce commentaire a été minimisé par le modérateur sur le site
salut cristal
existe-t-il un moyen d'avoir des coches dans A1:A10 avec B3:B10 ?
Ce commentaire a été minimisé par le modérateur sur le site
Comment puis-je répéter cela pour plusieurs colonnes? 
Par exemple, j'en ai besoin dans les éléments suivants :
E, F, I, J, M, N, Q, R, U, V, Y, Z, AC, AD, AG, AH, AK, AL, AO, AP, AS, AT, AW, AX
Ce commentaire a été minimisé par le modérateur sur le site
Eu gostaria de saber se é possível adicionar a marca com apenas um clique ao invés de dois.
Ce commentaire a été minimisé par le modérateur sur le site
Salut Ulisses Nonato,
Si vous souhaitez ajouter une coche à une cellule en un seul clic de souris, le code VBA suivant peut vous rendre service.
Vous devez cliquer sur le bouton droit de la souris bouton pour activer le code.
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    'Updated by Extendoffice 20220714
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Comment puis-je faire en sorte qu'il ajoute un horodatage sur la cellule adjacente après le double-clic ?
Ce commentaire a été minimisé par le modérateur sur le site
Salut Sora,
Le code VBA suivant peut vous rendre service. Veuillez essayer. Merci.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20221125
    Dim xRight As Range
    Dim KeyCells As Range
    Set KeyCells = Range("B1:B10")
    Set xRight = Target.Offset(0, 1)
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        xRight.Value = Now()
    End If
Application.EnableEvents = True
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,

Une fois ces cas cochées, j'aimerais qu'une cellule x m'ajoute les chiffres d'une certaine colonne, est-ce possible ?

Merci à vous, bonne soirée
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL