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 :
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é.Code:
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
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 ?