Valeur d'une cellule avec Somme()

Bonjour,

En A8 : Somme(A2:A6)

Cas1: A2:A6 sont des valeurs saisies

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A2:A6], Target) Is Nothing And Target.Count = 1
Then
MsgBox "Modification A8"
End If
End Sub

Cas2:A2:A8 contient des formules

Private Sub Worksheet_Calculate()
If [A8] <> CDbl([mémo]) Then
MsgBox [mémo]
End If
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34 ) &
[A8] & Chr(34)
End Sub

Private Sub Workbook_Open()
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34 ) &
Sheets(2).[A8] & Chr(34)
End Sub

http://cjoint.com/?jhibOiNbbV

JB
http://boisgontierjacques.free.fr/


On 7 sep, 04:55, "Pierre-Yves Ste-Marie" <stemari...@videotron.ca>
wrote:

Bonjour.

Est-il possible de déclencher un code VBA lorsque la valeur d'une cellu le
qui contient la fonction Somme(..) change.
Merci à vous

Bonjour,

Oui, si le classeur est ouvert

utilise l'évennement Calculate

Cordialement.

lSteph

Bonjour.

Est-il possible de déclencher un code VBA lorsque la valeur d'une cellule
qui contient la fonction Somme(..) change.
Merci à vous