Bonjour à tous, une nouvelle fois je viens demander votre aide si précieuse. Je souhaite intégrer dans une macro VB la fonction valeur cible.

La valeur à atteindre est rentrée dans une cellule.

Voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Prime()
 
If Range("C22").Value = Range("C12").Value Then
Range("C32").GoalSeek Goal:=Cells(31, 8).Value, ChangingCell:=Range("D28")
Else: Range("D28").Value = ""
End If
 
If Range("D22").Value = Range("C12").Value Then
Range("C33").GoalSeek Goal:=Cells(31, 8).Value, ChangingCell:=Range("E28")
Else: Range("E28").Value = ""
End If
 
If Range("E22").Value = Range("C12").Value Then
Range("C34").GoalSeek Goal:=Cells(31, 8).Value, ChangingCell:=Range("F28")
Else: Range("F28").Value = ""
End If
 
If Range("F22").Value = Range("C12").Value Then
Range("C35").GoalSeek Goal:=Cells(31, 8).Value, ChangingCell:=Range("G28")
Else: Range("G28").Value = ""
End If
 
End Sub
Et voilà, il y'a un problème dans mon code que je n'arrive pas à résoudre depuis hier, pas faute d'avoir cherché.
En fait, j'ai intégrer le code à un bouton de commande, mais je suis obligé de cliquer deux fois dessus avant d'avoir le résultat escompté, sinon avant il me met des valeurs toutes bizarres... Ai-je fait une erreur ?