Discussion :

[Attila54]

Bonjour,

Voila, j'ai un probleme avec la mise en place de l'automatisation d'une procedure de calcul automatique de valeur.

J'explique le problème:
J'ai une listbox comprenant des valeurs comprises entre +1.00 et -2.00 au pas de 1/100. J'appelle les differentes valeurs "nombre"
J'ai un tableau qui me donne une valeur IDEALE a ateindre que j'appelle VIDEALE.

Quand je clique sur "nombre" cela me declence une serie de calculs que j'appelle pour simplifier "calculs", et au final, j'obtiens un résultat que j'appelle VCALCULEE

Le but est de trouver le "nombre" qui me donnera VCALCULEE = VIDEALE OU VCALCULEE = VIDEALE +- 1/00

Avec la listbox, je procède par affinage de "nombre" en cliquant jusqu'à obtenir VCALCULEE = VIDEALE OU VCALCULEE = VIDEALE +- 1/00 et, de la, je vois le nombre sur lequel j'ai cliqué.

Ca, je n'ai pas de probleme.

Ce que je voudrais :
Je crée un bouton "calcul automatique"
Lorsque je clique sur ce bouton, il lance automatiquement la sequence de calculs pour nombre = +1.00, compare VCALCULEE avec VIDEALE, et selon le resultat, il continue ainsi de suite jusqu'à obtenir VCALCULEE = VIDEALE OU VCALCULEE = VIDEALE +- 1/00

Une fois le "nombre" trouvé, il me l'affiche dans une Textbox et m'affiche un message "calculs terminés, la valeur idéale est "nombre"

Voila, et la, je sèche depuis deux jours, je n'ai pas trouvé la moindre ligne de prog pouvant faire cela (je ne sais même pas si je dois utiliser la listbox ou declarer mes "nombres" sous une autre forme pour ce calcul automatique .
Ce n'est pas, je crois, de mon niveau actuel et pourtant je dois le faire.

En vous remerciant pour vos lumières

[hunteshiva]

Bonjour,
je n'ai pas bien saisie ton probléme, *je pense qu'il faudrai que tu rentre un peut plus dans les détails*
quand tu dit:

J'ai un tableau qui me donne une valeur IDEALE

que contient ce tableau?

VCALCULEE = VIDEALE OU VCALCULEE = VIDEALE +- 1/00

en fait tu veut trouver une valeur qui est égale à ta valeur idéale (à +- 1/100) ?

[Attila54]

alors en ce qui concerne le tableau :
j'ai un tableau sous forme papier) qui me donne, pour un age donné, une valeur que j'appelle VIDEALE. Par exemple, pour 55 ans, j'ai VIDEALE = -0.65.
J'ai deja entre ce tableau dans le logiciel et donc quand j'entre les données, notament la date de naissance, un calcul d'âge se fait et une textbox m'affiche l'âge ideal (VIDEAL)

Je ne me suis peut être pas bien exprimé, alors

pour l'instant,
je clique sur une valeur de la listbox que j'appelle "nombre"
ce nombre me permet, après quelques calculs, d'obtenir une valeur que j'appelle VCALCULEE.

Parmis tous les "nombres" il y en a un qui me donnera VIDEAL au centieme près (donc VCALCULEE = VIDEAL ou VCALCULEE = VIDEAL +- 0.01)

C'est ce "nombre que je veux trouver automatiquement.

Exemple :
Age = 55 ans ==> VIDEAL = -0.65
Je clique sur -1.01 ("nombre") j'obtiens VCALCULEE = -0.86
Je clique sur -0.98 j'obtiens -0.74
Je clique sur -0.83 j'obtiens -0.65
j'ai VCALCULEE = VIDEAL donc "nombre" = -0.83
c'est ce nombre que je veux afficher dans une textbox

[hunteshiva]

En partant tu fait que tu ai VIDEAL,

l'idéale serrait de srcuter un tableau avec tout tes "nombres", *via une boucle for*
pour chaque nombre tu fait ton calcul
et tu regarde si le calcul = VIDEAL.

si c'est le cas tu affiche ton nombre.

[hunteshiva]

Un peut de code pour enlever tout ces abstraction faites

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
'Déclaration de variables
Dim AGE as Integer
Dim VIDEAL as Double
Dim VCALCULEE as Double
 
'Déclaration du tableau "Nombre"
'    ici je ne prend que 10 nombres
Dim Nombre[10] as Double
'Ajout des nombres
Nombre[0] = -1.01;
Nombre[1] = -0.98;
Nombre[2] = -0.83;
'...
 
'tu recherche quel nombre va bien
For ii as Integer = 0 to (Nombre.Lenght-1)
    VCALCULEE  = calcul(AGE,Nombre[ii])
     If VCALCULEE = VIDEAL Then
         MsgBox("Nombre:" & Nombre[ii])
         Exit For
     End If
Next

[Attila54]

merci pour ta r eponse rapide
et cette sequence fonctionne même si, en fait, "calcul" fait une bonne centaine de lignes et est bourré de boucles if qui s'entrecroisent partout ????

[Gurdil le nain]

Je comprends pas bien je crois.

Tu veux pouvoir cliquer sur un bouton, que derrière ça boucle sur tous les champs de ta listBox et que ça te retourne la valeur qui répond à ton test ?