Comment double-cliquer sur une cellule et ajouter 1 à cette valeur de cellule dans Excel?

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

Double-cliquez sur une cellule et ajoutez 1 avec le code VBA

Double-cliquez sur une cellule et ajoutez 1 avec le code VBA

Le code VBA suivant peut vous aider à ajouter 1 à une valeur de cellule après un double-clic. Veuillez faire comme suit.

1. Cliquez avec le bouton droit sur l'onglet de la feuille dont vous avez besoin pour ajouter les valeurs de cellule 1 en double-cliquant. Puis clique Voir le code dans le menu contextuel.

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

Code VBA: ajoutez 1 à une valeur de cellule en double-cliquant

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

Notes: Dans le code, A1 est la cellule à laquelle vous ajouterez le numéro 1 en double-cliquant.

3. appuie sur le autre + Q simultanément pour fermer la fenêtre Microsoft Visual Basic pour Applications.

Maintenant, double-cliquez sur la cellule A1 ajoutera 1 à la valeur existante comme illustré ci-dessous.

Articles connexes:

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