|
Sujet : [VBA] fair la fonction valeu cible en VB |
| Ventilo |
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] |
