Discussion :

[kirikikoo]

Bonjour,

j'ai je crois bien compris la logique de l'event worksheet_change pourtant mon code ne fonctionne pas.
Il est censé lancer un macro si une cellule précise change:

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "d2" Then
run "okok"
End If
End Sub

j'ai essayé de mettre carrément la macro dedans (ca n'est que le solveur) mais toujours pas de réaction:

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "d2" Then
Range("I4").GoalSeek Goal:=0, ChangingCell:=Range("I3")
End If
End Sub

Il n'y a pas d'erreurs affichées, simplement aucune réaction.

merci d'avance

[tedo01]

Bonjour,
Essaie avec des références absolues, par exemple "$D$2" à la place de "D2".

[kirikikoo]

pas de réaction

[gFZT82]

Bonjour,

As-tu testé la valeur de la propriété Application.EnableEvents ?

Cordialement.

[fring]

Bonjour,

Tu modifies bien directement la valeur de la cellule D2 ?
Ou la modification de D2 résulte d'une formule ou d'un lien vers une autre cellule ?

[kirikikoo]

merci pour vos réponses.

ca ne marche toujours pas.

- j'ai rajouté application.enableevents=true
- je change réellement la valeur de la cellule, ca ne découle ni d'une formule ni d'une autre cellule. (je modifie le nombre d'année pour le calcul d'un produit financier)

aucune réaction.

[AlainTech]

Bonjour,

As-tu essayé cette proposition avec le D en majuscule?

Bonjour,
Essaie avec des références absolues, par exemple "$D$2" à la place de "D2".