[VBA] fair la fonction valeu cible en VB

Marsh Posté le 26-01-2002 à 17:57:12

ben voila , je voudrais crée en VB un truc pour pouvroir faire ça
quelqu'un peu m'aider :hello: ?

merci !

---------------
Les cons, ça ose tout. C'est même à ça qu'on les reconnaît.

Marsh Posté le 26-01-2002 à 17:57:12

Marsh Posté le 27-01-2002 à 14:47:17

UP !!

ça serait sympas !

---------------
Les cons, ça ose tout. C'est même à ça qu'on les reconnaît.

Marsh Posté le 27-01-2002 à 15:25:04

bha oui mais je comprends rien à ta question ... :??:
tu peux la reformuler stp ?

Marsh Posté le 27-01-2002 à 20:18:03

Lorsque vous connaissez le résultat souhaité d'une formule isolée, mais non la valeur d'entrée dont la formule a besoin pour déterminer le résultat, vous pouvez utiliser la fonction Valeur cible. Pendant la recherche de la valeur cible, Microsoft Excel fait varier la valeur d'une cellule déterminée jusqu'à ce que la formule dépendant de cette cellule renvoie le résultat souhaité.

c ce que dis EXCEL pour valeur cible
et c ça que je veuts faire , mais en code

merci !

---------------
Les cons, ça ose tout. C'est même à ça qu'on les reconnaît.

Marsh Posté le 27-01-2002 à 20:58:15

Hummm en VB?

disont a+b+c+d=e
si
a=1
b=-2
c=3
d=3
e = 10

alors il manque 5 pour faire 10...

en code

Code :

Function TrouveValeur(Reponse As Integer, ParamArray ValeurConnues())
Dim Total As Integer
Dim i As Integer
For i = LBound(ValeurConnues) To UBound(ValeurConnues)
Total = Total + ValeurConnues(i)
Next i
TrouveValeur = Reponse - Total
End Function

pour trouver la valeur qui manque pour arrivé à reponse tu fait :

Code :

MsgBox TrouveValeur(10, 1, -2, 3, 3)

qui trouve se qui manque à 1, -2, 3, 3 pour donner 10...

Franchement je vois pas a quoi sa peut servir mais bon

ya surment des bugs, jai fait ca vite ...

[edtdd]--Message édité par Ventilo--[/edtdd]

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *