incrémentation d'une cellule dans Microsoft Excel en cliquant sur il peut facilement être accompli en utilisant un événement de classeur. L'événement SheetSelectionChange se produit lorsque le changement de sélection dans une feuille de calcul. Vous pouvez ajouter votre code VBA à l'intérieur de cet événement pour augmenter la valeur d'une cellule particulière . Ce processus est utile si vous voulez enregistrer le temps à l'utilisateur de ne pas avoir à incrémenter manuellement une valeur lorsque vous utilisez votre application Excel . Instructions
1

Lancez Microsoft Excel, cliquez sur l'onglet "Developer " et cliquez sur " Visual Basic " pour lancer la fenêtre de l'éditeur VBA.
2

Double -cliquez sur " ThisWorkbook " dans le volet de l'Explorateur d'objets pour ouvrir un nouveau module. Ajoutez le code suivant pour incrémenter la cellule A1 par un lorsque l'utilisateur clique dessus:

Workbook_SheetSelectionChange Private Sub ( ByVal Sh As Object , ByVal Target Comme Range)

Si Target.Row = 1 et Target.Column = 1 alors

Range (" A1") . Value = Range (" A1") . Value + 1

End If End Sub

3

Revenez à Microsoft Excel et cliquez A1 pour l'incrémenter d'une unité.