Discussion :

[NZL0401]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci de votre aide.

Amaury

[joe.levrai]

Bonjour,

à coller dans le module de la feuille concernée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[NZL0401]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

J'ai édité mon code …

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