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)

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.

Lire la suite... Téléchargement Gratuit... Achat...

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!

Lire la suite... Téléchargement Gratuit... Achat...

Commentaires (12)

Pas encore de notes. Soyez le premier à évaluer!

Luiz Carlos Dias

il ya environ 4 ans

#27122

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

Répondre

Tadao Kano Luiz Carlos Dias

il ya environ 4 ans

#27123

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

Répondre

Elizabeth

il ya environ 2 ans

#34106

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?

Répondre

Rapport

cristal Elizabeth

il ya environ 2 ans

#34107

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

Répondre

Rapport

CSherrod

il ya environ 1 an

#35215

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 ?

Répondre

Daniel

il ya environ 1 an

#36632

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 ?

Répondre

Michael

il ya environ 1 an

#36920

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

Répondre

Ulisses Nonato

mois environ, il ya 6

#38841

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.

Répondre

cristal Ulisses Nonato

mois environ, il ya 6

#38900

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

Répondre

Rapport

Sora

mois environ, il ya 2

#41276

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 ?

Répondre

cristal Sora

mois environ, il ya 2

#41491

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

Répondre

Rapport

anne

il y a environ 2 jours

#42923

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

Répondre

Il n'y a pas encore de commentaires postés ici

Laisser vos commentaires

Publier en tant qu'invité

Espace client

Nom (Obligatoire)

Email (Obligatoire)

Évaluez cet article:

Réinitialiser

0 Personnages

J'accepte les termes et conditions