1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
|
Option Explicit
Dim Valeur As Double
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
Application.EnableEvents = False
'évite l'erreur d'une valeur non numérique
On Error Resume Next
Target = Target + Valeur
On Error GoTo 0
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
On Error Resume Next
Valeur = Target
On Error GoTo 0
End If
End Sub |
Partager