Dans cet article, nous utiliserons avant l’événement de double-clic de la feuille de calcul pour cocher et décocher la cellule.

Les données brutes se composent de certains produits alimentaires. Nous voulons cocher les articles que nous avons achetés.

ArrowRawData

En double-cliquant sur une cellule, une coche y sera ajoutée. De la même manière, il peut être supprimé en double-cliquant à nouveau dessus.

ArrowOutput

Explication du code

Si Target.Column = 3 Then Le code ci-dessus est utilisé pour restreindre l’événement de double-clic à exécuter uniquement lorsque la cellule de la 3ème colonne est double-cliquée.

Cancel = True Le code ci-dessus est utilisé pour empêcher une cellule d’entrer en mode édition.

Target.Font.Name = « Marlett »

Le code ci-dessus est utilisé pour attribuer la police Marlett à la cellule cible.

Si cible = «  » alors cible = « a »

Else Target = «  »

End If Le code ci-dessus est utilisé pour insérer une coche et la supprimer également. Dans la police Marlett, «a» représente une coche et un blanc est utilisé pour supprimer la coche.

Veuillez suivre ci-dessous pour le code

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

'Checking whether target cell is in third column

If Target.Column = 3 Then



'Prevent cell going into Edit Mode

Cancel = True



'Changing font type of the cell

Target.Font.Name = "Marlett"



'Checking if target cell value is blank then inserting tick

If Target = "" Then

Target = "a"

Else

Target = ""

End If

End If

End Sub

Si vous avez aimé ce blog, partagez-le avec vos amis sur Facebook et Facebook.

Nous aimerions avoir de vos nouvelles, faites-nous savoir comment nous pouvons améliorer notre travail et le rendre meilleur pour vous. Écrivez-nous à [email protected]