Macro valeur cible

Bonjour le forum,

Dans un classeur Excel, j'utilise une macro "valeur cible" pour calculer le résultat d'une formule avec 3 variables. Mon problème est que le calcul ne se fait pas automatiquement si je change une variables, il que je ressaisisse la deuxième variable pour que le calcul se fasse.

Voici mon code :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If [K10] > 0 Then
If Not Intersect(Target, [J10,K10]) Is Nothing Then [H11].GoalSeek Goal:=0, ChangingCell:=[L10]
End If
Application.ScreenUpdating = True
End Sub

Dans l'exemple joint, lorsque je saisi la cellule H10 et qu'il y a déjà une valeur dans la cellule K10, la valeur de la cellule L10 ne change pas. Pour que cette valeur change il faut que je ressaisisse la valeur de la cellule K10.

Merci d'avance pour votre aide.

Bonjour,

Sans regarder ton fichier tu surveilles les cellules J10 et K10, pas H10

Intersect(Target, [J10,K10]) 

@+

Bonjour BrunoM45,

Merci beaucoup.