VBA - exécuter automatiquement une macro

Bonsoir,

Quelqu'un peut-il me donner la formulation pour exécuter automatiquement une macro.
J'ai programmé la macro GoalSeek, mais au lieu de devoir cliquer sur un bouton, je voudrais que lorsque je modifie la cellule, ma macro GoalSeek tourne immédiatement.

Code:

---

1 2 3 4

Sub GoalSeek() Range("K66").GoalSeek Goal:=Range("E66").Value, ChangingCell:=Range("K62") End Sub

---

Merci de votre aide.

Amaury

Bonjour,

à coller dans le module de la feuille concernée

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range)   If Not Intersect(Target, Range("K66")) Is Nothing Then Range("K66").GoalSeek Goal:=Range("E66").Value, ChangingCell:=Range("K62") End If   End Sub

---

EDIT : y'a un message d'erreur "référence non valide", vu que je connais pas GoalSeek, je sais pas si ça vient du code ou du contenu des cellules

Bonjour,

utiliser l'évènement Change dans le module de la feuille : Les évènements dans la feuille de calcul Excel …

Code:

---

1 2 3

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$E$66" Then Range("K66").GoalSeek Target.Value, Range("K62") End Sub

---

_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

MERCI BEAUCOUP.
Mais ou dois-je coller cette formule? Avant ou après ma macro?

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub GoalSeek() Range("C10").GoalSeek Goal:=Range("E10").Value, ChangingCell:=Range("C8") End Sub Private Sub Worksheet_Change(ByVal Target As Range)   If Not Intersect(Target, Range("K66")) Is Nothing Then Range("C10").GoalSeek Goal:=Range("E10").Value, ChangingCell:=Range("C8") End If   End Sub

---

Ou ailleurs?

Amaury

J'ai édité mon code …

Ce n'est ni avant ni après mais en remplacement ! Voir aussi le tutoriel …