Nad a écrit :
Re
Essaye avec ce code placé dans la feuille concernée :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
For Each c In Range("B1:B10")
c = c + Target.Value
Next c
End If
End Sub
Nad
Merci Nad, c'est exactement ce dont j'avais besoin !
Au risque d'abuser, j'ai une question subsidiaire
Penses tu qu'il soit possible de "moduler" la plage à incrémenter.
Par exemple cellules B1, B2, B5, B7 et B9 seulement.
Puis la fois d'après B5, B6, B7, B8 et B9 seulement.
Là j'y crois pas trop, mais le forum est plein de ressources