Activer Une Macro Sur Changement De Valeur

[wonderboutin]

Je veux activer une macro sur un changement de valeur de la cellule A1.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
mymacro
End If
End Sub

Sub mymacro()
MsgBox "A1 has been changed"
End Sub


J'ai essayé cette macro mais tout fonctionne si je change la valeur de A1 directement sur la cellule mais si A1 est un calcule Exemple : Feuil2 !A2 + Feuil2 !A3, si je change la valeur de Feuil2 !A2, la valeur de ma cellule A1 est changé mais la macro ne s'active pas.

 

[Bernard_XLD]

Re : Activer Une Macro Sur Changement De Valeur

Bonjour wonderboutin, le forum

il faut que tu enregistres la valeur de la cellule dans une variable et que tu vérifie à chaque événement calculate ou change la valeur de la cellule.
utilises un code du genre

Private Sub Worksheet_Calculate()
If Range("A1").Value = valcel Then Else mymacro
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
mymacro
Else
valcel = Range("A1").Value
End If
End Sub

avec une déclaration
Public valcel

A+

 

[wonderboutin]

Re : Activer Une Macro Sur Changement De Valeur

J'adore ce forum.

Demandez et vous recevrez.

merci beaucoup !