Comment ajouter une coche dans une cellule par double-clic 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 la coche et l'insérer manuellement. Cependant, il n'est pas facile de trouver le symbole de la coche dans la boîte de dialogue Symbole car de nombreux symboles y sont répertoriés. 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 simplement en double-cliquant.

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

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

Le code VBA suivant peut vous aider à ajouter une coche dans une cellule en double-cliquant. Veuillez procéder comme suit.

1. Ouvrez la feuille de calcul dans laquelle vous devez ajouter une coche dans la cellule, puis faites un clic droit et sélectionnez Affichage du code dans le menu contextuel.

2. Dans la fenêtre Microsoft Visual Basic for Applications, copiez et collez le code VBA ci-dessous dans la fenêtre Code.

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

Remarque : Dans le code, B1:B10 est la plage où vous ajouterez la coche en double-cliquant. Veuillez la modifier selon vos besoins.

3. Appuyez sur les touches Alt + Q pour fermer la fenêtre Microsoft Visual Basic for Applications et revenir à la feuille de calcul.

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

Découvrez la magie d'Excel avec Kutools AI

• Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
• Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
• Codage VBA : Écrivez et implémentez du code VBA sans effort.
• Interprétation des formules : Comprenez facilement des formules complexes.
• Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.

Améliorez vos capacités Excel avec des outils alimentés par l'IA. Téléchargez maintenant et découvrez une efficacité sans précédent !

Articles connexes :

• Comment incrémenter de 1 la valeur d'une cellule en double-cliquant dessus dans Excel ?
• Comment ajouter/entrer automatiquement la date/heure actuelle dans une cellule en double-cliquant dans Excel ?