Discussion :

[decour]

Bonjour,

Dans un formulaire, deux list box (lst_total_previsionnel & lst_total_actuel) affichent le résultat de deux requêtes.
Ce sont des nombres qui varient en fonction des éléments sélectionnés dans une combo box.

J'aimerais afficher quelque part le ratio de ces deux nombres. J'ai pensé utiliser une text box et le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim numerateur As Variant
Dim denominateur As Variant
Dim Quotient As Variant
numerateur = Me.lst_total_previsionnel.Value
denominateur = Me.lst_total_actuel.Value
Quotient = numerateur / denominateur
Me.txt_ratio.Value = Quotient

mais numerateur est "Null" tout comme denominateur.

Merci beaucoup de votre aide!!!

[zoom61]

Salut,

Pourquoi ne mets-tu pas un test "iif" pour savoir si l'un des champs est null, tu affiches null !!!

[decour]

Non, ce que je veux dire c'est qu'un nombre s'ffiche bien dans mes list box: les requêtes fo,ctionnent correctement.

Seulement avec le code que j'ai écrit, impossible de récupérer ces valeurs: on me renvoie "Null"

[zoom61]

Pourquoi ne travailles-tu pas directement avec les champs et pas avec des variables ???

[decour]

peux-tu préciser?
dans mon code j'ai
lstbox1.Rowsource=SQL1 (avec un where magasin=magasin sélectionné dans combo box)
et

lstbox2.Rowsource=SQL2 (avec un where magasin=magasin sélectionné dans combo box)

comment faire apparaître

valeur lstbox1/ valeur lstBox2 dans un text box?

[zoom61]

Voilà ce que je ferai :
Dans le champ "txt_ratio", je mettrais la formule suivant : "=lst_total_previsionnel / lst_total_actuel".

Simplement, et tu fais une mise à jour à chaque fois que tu changes une valeur dans ta "combo_box"

[decour]

Bonne idée mais cela ne marche pas: la text box reste vide.

J'ai même uniquement essayé = lst_total_previsionnel ou bien =lst_total_previsionnel.Value mais cela ne marche pas...

[zoom61]

Bonne idée mais cela ne marche pas: la text box reste vide.

J'ai même uniquement essayé = lst_total_previsionnel ou bien =lst_total_previsionnel.Value mais cela ne marche pas...

Tu devrais multiplier tes champs (ou valeurs) par 1, car je crois bien que les list_box prennent les valeurs en texte, et toi tu veux faire un calcul donc cela peut venir de là...
Essaye pour voir.

[decour]

Ca ne marche pas super... J'ai essayé d'écrire =lst_total_previsionnel *1 dans le control source de ma texte box

[zoom61]

As tu essayé de reprendre ton code du départ, et de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim numerateur As Variant 
Dim denominateur As Variant 
Dim Quotient As Variant 
numerateur = Me.lst_total_previsionnel.Value * 1
denominateur = Me.lst_total_actuel.Value * 1
Quotient = numerateur / denominateur 
Me.txt_ratio.Value = Quotient

Et de voir si cela donne quelque chose ?
Attention si tu n'as rien dans ce champs...

[decour]

Malheureusement, cela ne donne rien.
En faisant tourner le débogueur, je constate que

numerateur = Me.lst_total_previsionnel.Value * 1
denominateur = Me.lst_total_actuel.Value * 1
sont Null.

J'ai essayé avec ".Column" sans plus de résultats.

Que veux tu dire avec "Attention si tu n'as rien dans ce champs..." ?

D'autre part n'y a -t-il pas un pb avec le fait que la RowSource de ces list box soient une requête?

[zoom61]

Y-a-t-il des valeurs dans la "lst_total_previsionnel" et "lst_total_actuel", crée un bouton et avec la commande visualise la valeur (numérique ou texte) contenue, utilise la commande suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
msgbox forms!nom_formulaire!lst_total_previsionnel
msgbox forms!nom_formulaire!lst_total_actuel

Et vois les valeurs que tu recueilles !!!

[decour]

aïe: j'obtiens un message d'erreur: "invalid use of Null"

[zoom61]

Donc reprenons depuis le début :

Tu as dans ton formulaire des list_box, qui sont le résultat de deux requêtes !
Tu cliques sur les lignes contenues dans les list_box, et ensuite cela doit te faire le calcul dans un champ.

Ai-je bien compris !

[LeScandinave]

Salut,

voilà ce que j'obtiens avec 2 combobox cmb1 et cmb2 en faisant le ratio dans un champ Texte.

Il ne faut pas oublier le paramètre colonne pour extraire une donnée!

j'ai écrit ceci dans le champ Texte:

=Value(cmb2.Column(1))/Value(cmb1.Column(1))

où le contenu de la colonne peut être au format Texte vu qu'il y a les Value

J'espère t'avoir aidé

[Tofalu]

Tu es sur que quelque chose est bien selectionné dans les listes ?

[decour]

Merci pour toutes ces aides.
Dans l'ordre:
1) zoom: je ne veux pas avoir à cliquer sur mes listes: il faudrait que le résultat s'affiche tout seul

2) le scandinave: ce n'est pas des combo mais des list box: est-ce que la propriété column s'utilise aussi? je vais essayer

3) tofalu: effectivement, il est possible que ta réponse vienne me "casséééé" puisque je crois bien que rien n'est selectionné. Comment faire pour dire "le résultat que tu m'as donné, toi la requête, et bien je veux l'activer". Est-ce activate comma dans Excel?? J'essaye.

[Tofalu]

Une zone de liste sert à afficher plusieurs enregistrement et le but est de donner le choix à l'utilisateur d'en sélectionner un ou plusieurs...

Je ne comprend pas en fait ce que tu souhaites

Tu peux donner un exemple de contenu de tes zones de listes ? Et le résultat final

[decour]

J'ai utilisé des listes parce que je voulais placer ma requête dans la row source de la liste.

1) En gros l'utilisateur choisis un magasin dans une combo box

2) via un after update, je remplis
a) la rowsource de ma liste1 avec une requete 1 qui donne "chiffre d'affaire réel du magasin" WHERE nom magasin = celui sélectionné dans la combo box
b) la rowsource de ma liste2 avec une requete 2 qui donne "chiffre d'affaire prévisionnel du magasin" WHERE nom magasin = celui sélectionné dans la combo box

3) je veux afficher réel/prévisionnel quelque part dans mon formulaire.

Voilà, j'espère avoir été clair

[decour]

En cliquant sur le résultat des listes, puis en re-cliquant sur le même magasin, j'obtient le ratio qui s'affiche bien.

Comment éviter d'avoir à cliquer sur ces éléments? Comment les sélectionner? J'ai pensé à SetFcus mais cela ne fonctionne pas...