Activation de macro

[Michel C]

Bonjour à tous,

J'ai les codes suivants dans une feuille :
Sub Macro1()
Range("M17").GoalSeek Goal:=0, ChangingCell:=Range("B3")
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("m17")) Is Nothing Then
Macro1
End If
End Sub

Celles-ci fonctionnent bien à condition que je change moi-même la valeur dans la cellule M17.

Cependant, si je met une formule dans la cellule M17, cette dernière change de valeur mais n'active pas la macro.

Quelles sont les modifs que je dois apporter aux macros?

En vous remerciant,

Michel

 

[Chris401]

Re : Activation de macro

Bonjour

Remplace Worksheet_Change par Worksheet_SelectionChange.
De cette façon, la macro se déclenchera au click sur la cellule M17

Cordialement
Chris

 

[Michel C]

Re : Activation de macro

Merci beaucoup Chris401.

J"apprécie.

Michel

 

[Modeste]

Re : Activation de macro

Bonjour MichelC, chris401,

On pourrait aussi se contenter d'associer un raccourci clavier à la Macro1, non?