Re: sauvegarder valeur
Bonsoir M@mounette,le Forum
Si j'ai bien compris ta question ce petit code devrais faire ton affaire
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sel As Range
Set Sel = Range('a1:a3')
If Not Application.Intersect(Sel, Range(Target.Address)) Is Nothing Then
'si déplacement selection Bas
Range('d1').Value = Range('d1').Value + ActiveCell.Offset(-1, 0).Value
'si déplacement selection Droite
'Range('d1').Value = Range('d1').Value + ActiveCell.Offset(0, -1).Value
End If
End Sub
Yves