Comment ajouter 1 à la valeur d'une cellule en double-cliquant dans Excel ?

Cet article vous montrera une méthode pour ajouter automatiquement 1 à la valeur d'une cellule en la double-cliquant dans Excel.

Utiliser le double-clic pour augmenter la valeur de la cellule de 1 avec un code VBA

Utiliser le double-clic pour augmenter la valeur de la cellule de 1 avec un code VBA

Le code VBA suivant vous guidera à travers les étapes pour ajouter 1 à la valeur de la cellule A1 en double-cliquant dessus. Veuillez suivre ces instructions.

1. Faites un clic droit sur l'onglet de la feuille où vous devez ajouter 1 à la valeur de la cellule A1 en double-cliquant. Ensuite, cliquez sur Affichage du code dans le menu contextuel.

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

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
      Range("A1").Value = Range("A1").Value + 1
      Cancel = True
    End If
End Sub

Remarque : Dans le code, A1 est la cellule où 1 sera ajouté à chaque double-clic. Vous pouvez l'ajuster selon vos besoins.

3. Appuyez simultanément sur les touches Alt + Q pour fermer la fenêtre Microsoft Visual Basic for Applications.

Maintenant, un double-clic sur la cellule A1 ajoutera 1 à la valeur existante, comme illustré dans la capture d'écran ci-dessous.

Articles connexes :

• Comment ajouter automatiquement/entrer la date/heure actuelle dans une cellule en double-cliquant dans Excel ?
• Comment ajouter une coche dans une cellule en double-cliquant dans Excel ?