J’aimerai trouver une formule pour cumuler les nombres taper dans une autre cellule :
Imaginons en A1, je tape « +2 »
En A2, « 2 » est affiché
En A1, je tape directement pardessus « +4 »
En A2, « 6 » est affiché
En A1, je tape pardessus « -1 »
En A2, « 5 » est affiché
Chaque fois que je change la valeur en A1, le cellule A2 ne change pas de valeur, mais cumule tous ce qui est tapé.
C’est pas une formule mais plutôt des lignes de code.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo fin
If Target = Range("A1") Then
Range("A2") = Range("A2") + Range("A1")
End If
fin:
End Sub
Super cela fonctionne, cependant j’aimerai que la cellule ne me multiplie pas par 2 lors de la première utilisation. (Quand je tape 2 dans A1, 4 est affiché en A2, or j’aimerai que 2 soit affiché)
Un instant je vais voir,
Essayer de l’changer par :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A1], Target) Is Nothing Then
Application.EnableEvents = False
Range("A2") = Range("A2") + Range("A1")
Application.EnableEvents = True
End If
End Sub