---Dans une UserForm, j'ai une Listbox alimentée par une liste de produits.
Lorsque je sélectionne un produit, son prix s'affiche automatiquement
dans une Texbox (TextBoxPrixUnit).
---J'ai également 2 autres Textbox. (TextBoxQuantite) et (TextBoxKilo).
---Pour finir, le prix s'affiche dans un Label. (LabelPrixTotal).
Je souhaiterai pouvoir faire:
TextBoxQuantite * TextBoxKilo * TextBoxPrixUnit le résultat se faisant dans
LabelPrixTotal.
Et non Isabelle; fais le test: MsgBox Evaluate(InputBox("valeur1") * InputBox("valeur2") * InputBox("valeur3")) en entrant uniquement des valeurs numériques du genre 12,3 ... (malgré que inputbox retourne des string cela fonctionne) par contre, si le textbox contient une valeur avec la virgule comme symbole décimal, la fonction Val ne marche pas puisqu'elle ne reconnait que le point. MP
"isabelle" a écrit dans le message de news:
bonjour Michel,
la méthode evaluate n'est pas risqué si une valeur texte en mit dans un texbox ?
exemple avec 3 texbox et 1 label valeur1 = 5 klg valeur2 = 5.00$ valeur3 = 2
Private Sub UserForm_Initialize() TextBox1 = InputBox("valeur1") TextBox2 = InputBox("valeur2") TextBox3 = InputBox("valeur3") 'Label1 = Evaluate(TextBox1 * TextBox2 * TextBox3) Label1 = Val(TextBox1) * Val(TextBox2) * Val(TextBox3) End Sub
isabelle
Salut Jipé; Cher à certains (attention au symbole décimal !): LabelPrixTotal = Evaluate(TextBoxQuantite * TextBoxKilo * TextBoxPrixUnit)
MP
"Jipé" a écrit dans le message de news:O$
Bonjour le Forum,
---Dans une UserForm, j'ai une Listbox alimentée par une liste de produits.
Lorsque je sélectionne un produit, son prix s'affiche automatiquement
dans une Texbox (TextBoxPrixUnit).
---J'ai également 2 autres Textbox. (TextBoxQuantite) et (TextBoxKilo).
---Pour finir, le prix s'affiche dans un Label. (LabelPrixTotal).
Je souhaiterai pouvoir faire:
TextBoxQuantite * TextBoxKilo * TextBoxPrixUnit le résultat se faisant dans
Et non Isabelle; fais le test:
MsgBox Evaluate(InputBox("valeur1") * InputBox("valeur2") *
InputBox("valeur3"))
en entrant uniquement des valeurs numériques du genre 12,3 ... (malgré que
inputbox retourne des string cela fonctionne)
par contre, si le textbox contient une valeur avec la virgule comme symbole
décimal, la fonction Val ne marche pas puisqu'elle ne reconnait que le
point.
MP
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:402E3B0F.DD22C0CF@videotron.ca...
bonjour Michel,
la méthode evaluate n'est pas risqué si une valeur texte en mit dans un
texbox ?
exemple avec 3 texbox et 1 label
valeur1 = 5 klg valeur2 = 5.00$ valeur3 = 2
Private Sub UserForm_Initialize()
TextBox1 = InputBox("valeur1")
TextBox2 = InputBox("valeur2")
TextBox3 = InputBox("valeur3")
'Label1 = Evaluate(TextBox1 * TextBox2 * TextBox3)
Label1 = Val(TextBox1) * Val(TextBox2) * Val(TextBox3)
End Sub
isabelle
Salut Jipé;
Cher à certains (attention au symbole décimal !):
LabelPrixTotal = Evaluate(TextBoxQuantite * TextBoxKilo *
TextBoxPrixUnit)
MP
"Jipé" <jean_pierre_rome@hotmail.com> a écrit dans le message de
news:O$8Iudw8DHA.696@tk2msftngp13.phx.gbl...
Bonjour le Forum,
---Dans une UserForm, j'ai une Listbox alimentée par une liste de
produits.
Lorsque je sélectionne un produit, son prix s'affiche
automatiquement
dans une Texbox (TextBoxPrixUnit).
---J'ai également 2 autres Textbox. (TextBoxQuantite) et
(TextBoxKilo).
---Pour finir, le prix s'affiche dans un Label. (LabelPrixTotal).
Je souhaiterai pouvoir faire:
TextBoxQuantite * TextBoxKilo * TextBoxPrixUnit le résultat se faisant
dans
Et non Isabelle; fais le test: MsgBox Evaluate(InputBox("valeur1") * InputBox("valeur2") * InputBox("valeur3")) en entrant uniquement des valeurs numériques du genre 12,3 ... (malgré que inputbox retourne des string cela fonctionne) par contre, si le textbox contient une valeur avec la virgule comme symbole décimal, la fonction Val ne marche pas puisqu'elle ne reconnait que le point. MP
"isabelle" a écrit dans le message de news:
bonjour Michel,
la méthode evaluate n'est pas risqué si une valeur texte en mit dans un texbox ?
exemple avec 3 texbox et 1 label valeur1 = 5 klg valeur2 = 5.00$ valeur3 = 2
Private Sub UserForm_Initialize() TextBox1 = InputBox("valeur1") TextBox2 = InputBox("valeur2") TextBox3 = InputBox("valeur3") 'Label1 = Evaluate(TextBox1 * TextBox2 * TextBox3) Label1 = Val(TextBox1) * Val(TextBox2) * Val(TextBox3) End Sub
isabelle
Salut Jipé; Cher à certains (attention au symbole décimal !): LabelPrixTotal = Evaluate(TextBoxQuantite * TextBoxKilo * TextBoxPrixUnit)
MP
"Jipé" a écrit dans le message de news:O$
Bonjour le Forum,
---Dans une UserForm, j'ai une Listbox alimentée par une liste de produits.
Lorsque je sélectionne un produit, son prix s'affiche automatiquement
dans une Texbox (TextBoxPrixUnit).
---J'ai également 2 autres Textbox. (TextBoxQuantite) et (TextBoxKilo).
---Pour finir, le prix s'affiche dans un Label. (LabelPrixTotal).
Je souhaiterai pouvoir faire:
TextBoxQuantite * TextBoxKilo * TextBoxPrixUnit le résultat se faisant dans
hé justement j'ai fait le test avec valeur1 = 5 klg valeur2 = 5.00$ valeur3 = 2 écrit tel quel. comme tu dit ça fonctionne seulement si les valeurs entrés sont numérique.
isabelle
Et non Isabelle; fais le test: MsgBox Evaluate(InputBox("valeur1") * InputBox("valeur2") * InputBox("valeur3")) en entrant uniquement des valeurs numériques du genre 12,3 ... (malgré que inputbox retourne des string cela fonctionne) par contre, si le textbox contient une valeur avec la virgule comme symbole décimal, la fonction Val ne marche pas puisqu'elle ne reconnait que le point. MP
"isabelle" a écrit dans le message de news:
bonjour Michel,
la méthode evaluate n'est pas risqué si une valeur texte en mit dans un texbox ?
exemple avec 3 texbox et 1 label valeur1 = 5 klg valeur2 = 5.00$ valeur3 = 2
Private Sub UserForm_Initialize() TextBox1 = InputBox("valeur1") TextBox2 = InputBox("valeur2") TextBox3 = InputBox("valeur3") 'Label1 = Evaluate(TextBox1 * TextBox2 * TextBox3) Label1 = Val(TextBox1) * Val(TextBox2) * Val(TextBox3) End Sub
isabelle
Salut Jipé; Cher à certains (attention au symbole décimal !): LabelPrixTotal = Evaluate(TextBoxQuantite * TextBoxKilo * TextBoxPrixUnit)
MP
"Jipé" a écrit dans le message de news:O$
Bonjour le Forum,
---Dans une UserForm, j'ai une Listbox alimentée par une liste de produits.
Lorsque je sélectionne un produit, son prix s'affiche automatiquement
dans une Texbox (TextBoxPrixUnit).
---J'ai également 2 autres Textbox. (TextBoxQuantite) et (TextBoxKilo).
---Pour finir, le prix s'affiche dans un Label. (LabelPrixTotal).
Je souhaiterai pouvoir faire:
TextBoxQuantite * TextBoxKilo * TextBoxPrixUnit le résultat se faisant dans
hé justement j'ai fait le test avec valeur1 = 5 klg valeur2 = 5.00$
valeur3 = 2
écrit tel quel. comme tu dit ça fonctionne seulement si les valeurs
entrés sont numérique.
isabelle
Et non Isabelle; fais le test:
MsgBox Evaluate(InputBox("valeur1") * InputBox("valeur2") *
InputBox("valeur3"))
en entrant uniquement des valeurs numériques du genre 12,3 ... (malgré que
inputbox retourne des string cela fonctionne)
par contre, si le textbox contient une valeur avec la virgule comme symbole
décimal, la fonction Val ne marche pas puisqu'elle ne reconnait que le
point.
MP
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:402E3B0F.DD22C0CF@videotron.ca...
bonjour Michel,
la méthode evaluate n'est pas risqué si une valeur texte en mit dans un
texbox ?
exemple avec 3 texbox et 1 label
valeur1 = 5 klg valeur2 = 5.00$ valeur3 = 2
Private Sub UserForm_Initialize()
TextBox1 = InputBox("valeur1")
TextBox2 = InputBox("valeur2")
TextBox3 = InputBox("valeur3")
'Label1 = Evaluate(TextBox1 * TextBox2 * TextBox3)
Label1 = Val(TextBox1) * Val(TextBox2) * Val(TextBox3)
End Sub
isabelle
Salut Jipé;
Cher à certains (attention au symbole décimal !):
LabelPrixTotal = Evaluate(TextBoxQuantite * TextBoxKilo *
TextBoxPrixUnit)
MP
"Jipé" <jean_pierre_rome@hotmail.com> a écrit dans le message de
news:O$8Iudw8DHA.696@tk2msftngp13.phx.gbl...
Bonjour le Forum,
---Dans une UserForm, j'ai une Listbox alimentée par une liste de
produits.
Lorsque je sélectionne un produit, son prix s'affiche
automatiquement
dans une Texbox (TextBoxPrixUnit).
---J'ai également 2 autres Textbox. (TextBoxQuantite) et
(TextBoxKilo).
---Pour finir, le prix s'affiche dans un Label. (LabelPrixTotal).
Je souhaiterai pouvoir faire:
TextBoxQuantite * TextBoxKilo * TextBoxPrixUnit le résultat se faisant
dans
hé justement j'ai fait le test avec valeur1 = 5 klg valeur2 = 5.00$ valeur3 = 2 écrit tel quel. comme tu dit ça fonctionne seulement si les valeurs entrés sont numérique.
isabelle
Et non Isabelle; fais le test: MsgBox Evaluate(InputBox("valeur1") * InputBox("valeur2") * InputBox("valeur3")) en entrant uniquement des valeurs numériques du genre 12,3 ... (malgré que inputbox retourne des string cela fonctionne) par contre, si le textbox contient une valeur avec la virgule comme symbole décimal, la fonction Val ne marche pas puisqu'elle ne reconnait que le point. MP
"isabelle" a écrit dans le message de news:
bonjour Michel,
la méthode evaluate n'est pas risqué si une valeur texte en mit dans un texbox ?
exemple avec 3 texbox et 1 label valeur1 = 5 klg valeur2 = 5.00$ valeur3 = 2
Private Sub UserForm_Initialize() TextBox1 = InputBox("valeur1") TextBox2 = InputBox("valeur2") TextBox3 = InputBox("valeur3") 'Label1 = Evaluate(TextBox1 * TextBox2 * TextBox3) Label1 = Val(TextBox1) * Val(TextBox2) * Val(TextBox3) End Sub
isabelle
Salut Jipé; Cher à certains (attention au symbole décimal !): LabelPrixTotal = Evaluate(TextBoxQuantite * TextBoxKilo * TextBoxPrixUnit)
MP
"Jipé" a écrit dans le message de news:O$
Bonjour le Forum,
---Dans une UserForm, j'ai une Listbox alimentée par une liste de produits.
Lorsque je sélectionne un produit, son prix s'affiche automatiquement
dans une Texbox (TextBoxPrixUnit).
---J'ai également 2 autres Textbox. (TextBoxQuantite) et (TextBoxKilo).
---Pour finir, le prix s'affiche dans un Label. (LabelPrixTotal).
Je souhaiterai pouvoir faire:
TextBoxQuantite * TextBoxKilo * TextBoxPrixUnit le résultat se faisant dans
le gamin vient jouer dans la cour des grands. Désolé si je ne suis pas à la hauteur, mais même si "LabelPrixTotal = Evaluate(TextBoxQuantite * TextBoxKilo * LabelPrixUnitUnit)" m'inspire, je ne sais pas quoi en faire. Dans mes essais infructueux, j'ai un message d'erreur concernant des variables non définies. Un complément là-dessus serait le bienvenu. Merci Jipé
"Michel Pierron" a écrit dans le message de news:
Et non Isabelle; fais le test: MsgBox Evaluate(InputBox("valeur1") * InputBox("valeur2") * InputBox("valeur3")) en entrant uniquement des valeurs numériques du genre 12,3 ... (malgré que inputbox retourne des string cela fonctionne) par contre, si le textbox contient une valeur avec la virgule comme symbole
décimal, la fonction Val ne marche pas puisqu'elle ne reconnait que le point. MP
"isabelle" a écrit dans le message de news:
bonjour Michel,
la méthode evaluate n'est pas risqué si une valeur texte en mit dans un texbox ?
exemple avec 3 texbox et 1 label valeur1 = 5 klg valeur2 = 5.00$ valeur3 = 2
Private Sub UserForm_Initialize() TextBox1 = InputBox("valeur1") TextBox2 = InputBox("valeur2") TextBox3 = InputBox("valeur3") 'Label1 = Evaluate(TextBox1 * TextBox2 * TextBox3) Label1 = Val(TextBox1) * Val(TextBox2) * Val(TextBox3) End Sub
isabelle
Salut Jipé; Cher à certains (attention au symbole décimal !): LabelPrixTotal = Evaluate(TextBoxQuantite * TextBoxKilo * TextBoxPrixUnit)
MP
"Jipé" a écrit dans le message de news:O$
Bonjour le Forum,
---Dans une UserForm, j'ai une Listbox alimentée par une liste de produits.
Lorsque je sélectionne un produit, son prix s'affiche automatiquement
dans une Texbox (TextBoxPrixUnit).
---J'ai également 2 autres Textbox. (TextBoxQuantite) et (TextBoxKilo).
---Pour finir, le prix s'affiche dans un Label. (LabelPrixTotal).
Je souhaiterai pouvoir faire:
TextBoxQuantite * TextBoxKilo * TextBoxPrixUnit le résultat se faisant
le gamin vient jouer dans la cour des grands. Désolé si je ne suis pas à la
hauteur,
mais même si "LabelPrixTotal = Evaluate(TextBoxQuantite * TextBoxKilo *
LabelPrixUnitUnit)"
m'inspire, je ne sais pas quoi en faire.
Dans mes essais infructueux, j'ai un message d'erreur concernant des
variables non définies.
Un complément là-dessus serait le bienvenu.
Merci
Jipé
"Michel Pierron" <michel.pierron@free.fr> a écrit dans le message de
news:evNS9Ax8DHA.1804@TK2MSFTNGP12.phx.gbl...
Et non Isabelle; fais le test:
MsgBox Evaluate(InputBox("valeur1") * InputBox("valeur2") *
InputBox("valeur3"))
en entrant uniquement des valeurs numériques du genre 12,3 ... (malgré que
inputbox retourne des string cela fonctionne)
par contre, si le textbox contient une valeur avec la virgule comme
symbole
décimal, la fonction Val ne marche pas puisqu'elle ne reconnait que le
point.
MP
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:402E3B0F.DD22C0CF@videotron.ca...
bonjour Michel,
la méthode evaluate n'est pas risqué si une valeur texte en mit dans un
texbox ?
exemple avec 3 texbox et 1 label
valeur1 = 5 klg valeur2 = 5.00$ valeur3 = 2
Private Sub UserForm_Initialize()
TextBox1 = InputBox("valeur1")
TextBox2 = InputBox("valeur2")
TextBox3 = InputBox("valeur3")
'Label1 = Evaluate(TextBox1 * TextBox2 * TextBox3)
Label1 = Val(TextBox1) * Val(TextBox2) * Val(TextBox3)
End Sub
isabelle
Salut Jipé;
Cher à certains (attention au symbole décimal !):
LabelPrixTotal = Evaluate(TextBoxQuantite * TextBoxKilo *
TextBoxPrixUnit)
MP
"Jipé" <jean_pierre_rome@hotmail.com> a écrit dans le message de
news:O$8Iudw8DHA.696@tk2msftngp13.phx.gbl...
Bonjour le Forum,
---Dans une UserForm, j'ai une Listbox alimentée par une liste de
produits.
Lorsque je sélectionne un produit, son prix s'affiche
automatiquement
dans une Texbox (TextBoxPrixUnit).
---J'ai également 2 autres Textbox. (TextBoxQuantite) et
(TextBoxKilo).
---Pour finir, le prix s'affiche dans un Label. (LabelPrixTotal).
Je souhaiterai pouvoir faire:
TextBoxQuantite * TextBoxKilo * TextBoxPrixUnit le résultat se
faisant
le gamin vient jouer dans la cour des grands. Désolé si je ne suis pas à la hauteur, mais même si "LabelPrixTotal = Evaluate(TextBoxQuantite * TextBoxKilo * LabelPrixUnitUnit)" m'inspire, je ne sais pas quoi en faire. Dans mes essais infructueux, j'ai un message d'erreur concernant des variables non définies. Un complément là-dessus serait le bienvenu. Merci Jipé
"Michel Pierron" a écrit dans le message de news:
Et non Isabelle; fais le test: MsgBox Evaluate(InputBox("valeur1") * InputBox("valeur2") * InputBox("valeur3")) en entrant uniquement des valeurs numériques du genre 12,3 ... (malgré que inputbox retourne des string cela fonctionne) par contre, si le textbox contient une valeur avec la virgule comme symbole
décimal, la fonction Val ne marche pas puisqu'elle ne reconnait que le point. MP
"isabelle" a écrit dans le message de news:
bonjour Michel,
la méthode evaluate n'est pas risqué si une valeur texte en mit dans un texbox ?
exemple avec 3 texbox et 1 label valeur1 = 5 klg valeur2 = 5.00$ valeur3 = 2
Private Sub UserForm_Initialize() TextBox1 = InputBox("valeur1") TextBox2 = InputBox("valeur2") TextBox3 = InputBox("valeur3") 'Label1 = Evaluate(TextBox1 * TextBox2 * TextBox3) Label1 = Val(TextBox1) * Val(TextBox2) * Val(TextBox3) End Sub
isabelle
Salut Jipé; Cher à certains (attention au symbole décimal !): LabelPrixTotal = Evaluate(TextBoxQuantite * TextBoxKilo * TextBoxPrixUnit)
MP
"Jipé" a écrit dans le message de news:O$
Bonjour le Forum,
---Dans une UserForm, j'ai une Listbox alimentée par une liste de produits.
Lorsque je sélectionne un produit, son prix s'affiche automatiquement
dans une Texbox (TextBoxPrixUnit).
---J'ai également 2 autres Textbox. (TextBoxQuantite) et (TextBoxKilo).
---Pour finir, le prix s'affiche dans un Label. (LabelPrixTotal).
Je souhaiterai pouvoir faire:
TextBoxQuantite * TextBoxKilo * TextBoxPrixUnit le résultat se faisant