récupérer les valeurs de trois textbox dans une userform

bonjour;



je souhaite faire un calcul avec trois integer récuperés dans 3 textbox d'une userform et rentrer le résultat du calcul au fur et à mesurer des saisies dans cellule.

je dois composer pour atteindre au minimum la valeur de " j'ai besoin de "; il faut donc que le calcul se fasse en direct, est-ce possible ?

Pièce jointe 595937


voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub calcul_commande() Dim e250, e1000, e2500 As Integer   e250 = TextBox1.Value e1000 = TextBox2.Value e2500 = TextBox3.Value   Sheets("Grammage").Range("D7").Value = e250 * 0.25 + e1000 * 1 + e2500 * 2.5     End Sub

---

Merci

Salut, si tu veux afficher le résultat en direct il faut ajouter un autre textbox qui s'actualise des que l'evenement change des autre textbox est détecté. Du genre :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub TextBox1_Change() TextBox4.Value = TextBox1.Value * 0.25 + TextBox2.Value * 1 + TextBox3.Value * 2.5 End Sub Private Sub TextBox2_Change() TextBox4.Value = TextBox1.Value * 0.25 + TextBox2.Value * 1 + TextBox3.Value * 2.5 End Sub Private Sub TextBox3_Change() TextBox4.Value = TextBox1.Value * 0.25 + TextBox2.Value * 1 + TextBox3.Value * 2.5 End Sub

---

Des que tu va changer les valeurs d'entrée tu va visualiser la valeur de ton enssemble dans la textbox4 (qu'il faut que tu rajoute)

Pour bloquer l'acces a cette textbox tu peux mettre la condition suivqnte dqns l'initialisation de l'USF :

Code:

---

TextBox4.Locked = True

---

Salut

Par exemple comme ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub TextBox1_AfterUpdate() Calcul End Sub   Private Sub TextBox2_AfterUpdate() Calcul End Sub   Private Sub TextBox3_AfterUpdate() Calcul End Sub   Sub Calcul() Dim t1 As Double, t2 As Double, t3 As Double   If TextBox1.Value <> "" Then t1 = CDbl(TextBox1.Value) * 0.25 If TextBox2.Value <> "" Then t2 = CDbl(TextBox2.Value) If TextBox3.Value <> "" Then t3 = CDbl(TextBox3.Value) * 2.5   txtTotal.Value = t1 + t2 + t3 End Sub

---

Citation:

---

Envoyé par Pierre Fauconnier

...

---

bonjour,
j'ai une erreur 424, objet requis !sur txtTotal.Value = t1 + t2 + t3 ?

tu dois remplacer TxtTotal par Sheets("Grammage").Range("D7").Value


Quel est l'intérêt de passer par un userform? Il me semble que tu te simplifierais la vie en faisant tout en Excel car, si ton besoin se limite à ce que tu as formulé dans ta demande initiale, une feuille Excel est amplement suffisante pour résoudre ce "cas" avec une formule toute bête qui s'appuie sur trois cellules. As-tu besoin de te compliquer la vie avec un userform et ce que cela suppose comme contrôles de saisie et autres joyeusetés?

Citation:

---

Envoyé par ChristianBosch

...

---

bonjour,et merci
j'ai une incompatibilité de type sur la ligne TextBox4.Value = TextBox1.Value * 0.25 + TextBox2.Value * 1 + TextBox3.Value * 2.5

Citation:

---

Envoyé par Pierre Fauconnier

tu dois remplacer TxtTotal par Sheets("Grammage").Range("D7").Value ----> ca marche , merci


Quel est l'intérêt de passer par un userform? Il me semble que tu te simplifierais la vie en faisant tout en Excel car, si ton besoin se limite à ce que tu as formulé dans ta demande initiale, une feuille Excel est amplement suffisante pour résoudre ce "cas" avec une formule toute bête qui s'appuie sur trois cellules. As-tu besoin de te compliquer la vie avec un userform et ce que cela suppose comme contrôles de saisie et autres joyeusetés?

---

oui tu as peut-être raison, j'y réfléchie, pour le moment comme il y a 3 possibilité de calcul ( soit produits frais , soit conserve, soit surgelés, je pensais plus propre avec des onglets..
mais tant que ce n'est pas clair dans ma tête ....

en tout cas merci beaucoup pour ton aide

Citation:

---

Envoyé par zek474

[...]j'ai une incompatibilité de type [...]

---

C'est le problème des textbox de userform. Leur saisie est toujours du texte qu'il faut tester avant de vouloir les convertir en données numérique. Donc, lorsque l'un des textbox est vide, sa valeur vaut "" (chaine vide) et il est donc impossible de réaliser l'addition. C'est pourquoi dans ma solution, je testais que les textbox n'étaient pas vides et que je passais par des variables As Double qui sont initialisées à 0.


C'est pour cela que je dis que tu te compliques peut-être la vie à passer par des userforms...

Salut Christian ;)

Citation:

---

Envoyé par ChristianBosch

[...]

Code:

---

TextBox4.Locked = True

---

---

Si c'est pour la mettre de cette manière (toujours à True sans condition), alors je préfère la mettre dans les propriétés du textbox lors de la conception du userform ;)

Salut Pierre, je me suis trompé, je voulais plutôt mettre :

Code:

---

textbox4.enable = false

---

(ça évite d'avoir le texte grisé)

Oui tu as raison on peut le définir dans les propriétés du textbox directement dans l'USF et ça évite de passer par du code, mais c'est plus facile a expliquer pour le coup quand on le mets dans le code :aie:

Citation:

---

bonjour,et merci
j'ai une incompatibilité de type sur la ligne TextBox4.Value = TextBox1.Value * 0.25 + TextBox2.Value * 1 + TextBox3.Value * 2.5

---

Attention il faut mettre des virgules sur le séparateur des décimales, si tu mets un point tu va bloquer sur les opérations mathématiques puisque VBA interprète par défaut comme un string. Soit tu le sait et tu te force a y penser, soit tu mets une condition a l’evenement change des textbox pour forcer le changement des points en virgules et le test numérique.

Citation:

---

Envoyé par ChristianBosch

[...]
Attention il faut mettre des virgules sur le séparateur des décimales, si tu mets un point tu va bloquer sur les opérations mathématiques puisque VBA interprète par défaut comme un string. Soit tu le sait et tu te force a y penser, soit tu mets une condition a l’evenement change des textbox pour forcer le changement des points en virgules et le test numérique.

---

Le problème ne vient pas (que) du séparateur décimal. Si un des textbox est vide, tu ne peux pas en multiplier la valeur: "" * 2 => incompatibilité de type. Or, on lance le calcul à chaque modif, donc aussi lorsque l'on remplit le premier textbox et que les autres sont vides.

D'accord je pensais que VBA interprétais les champs nuls comme un 0 quand on traitait les valeurs mathématiquement et que le dataType de la variable n'était pas précisé. Mais j'imagine que l'objet "textbox" vu son nom est considéré d'office comme un string.

Dans tous les cas que la solution de Pierre me parait plus adaptée a ton besoin vu que l'USF n'est pas nécessaire.

Toutefois si tu veux faire le test tu peux initialiser les valeurs des textbox a 0 avec l'evenement userform_initialize pour forcer le type de la valeur des objets en nombre:

Code:

---

1 2 3 4 5

private Sub UserForm_Initialize() textbox1.Value = 0 TextBox2.Value = 0 textbox3.Value = 0 End Sub

---

Par contre il est clair que si nous voulons quelque chose d'automatisable il faudrait mettre certaines conditions sur les saisies afin d'éviter l'inévitable erreur de type que l'utilisateur finira par rencontrer.

Citation:

---

Envoyé par ChristianBosch

D'accord je pensais que VBA interprétais les champs nuls comme un 0[...]
Toutefois si tu veux faire le test tu peux initialiser les valeurs des textbox a 0 [...

---

L'initialisation à "0" fonctionnera car là il y aura bien transtypage mais il ne faudra pas "vider" le champ:

Pièce jointe 596107

Citation:

---

Envoyé par ChristianBosch

Par contre il est clair que si nous voulons quelque chose d'automatisable il faudrait mettre certaines conditions sur les saisies afin d'éviter l'inévitable erreur de type que l'utilisateur finira par rencontrer.

---

Tout à fait. C'est le problème du textbox VBA dont la valeur est typée String. Il importe donc de tester que les valeurs saisies peuvent être traduites en numériques, notamment en faisant attention au séparateur décimal comme tu le mentionnais précédemment.

Citation:

---

Il importe donc de tester que les valeurs saisies peuvent être traduites en numériques, notamment en faisant attention au séparateur décimal comme tu le mentionnais précédemment.

---

Pour ce faire j'ai créé cette petite fonction pour les textbox a entrées numériques :

Code:

---

1 2 3 4 5 6 7 8

Function sortieTB(tb As Control) tb.Value = Replace(tb.Value, ".", ",") If IsNumeric(tb.Value) Or tb.Value = "" Then Else MsgBox "Merci de renseigner un champ numérique", vbExclamation, "Erreur saisie" tb.Value = "" End If End Function

---

Cette fonction est a implémenter avec l’événement change d'une textbox.

Ça force les points en virgule et ça vérifié si par la suite si c'est un champ numérique. Si la texbox est vide ça ne fait pas remonter d'erreur, puisque a mon avis cette condition doit être demandées lors de la validation si jamais on veut pouvoir laisser un champ vide.

Tu vas me trouver chi***, mais perso, je n'aime pas le msgbox dans la fonction. Une fonction ne devrait avoir qu'un rôle: soit vérifier que la saisie est numérique, soit informer que la saisie n'est pas numérique, mais pas les deux, car cela t'empêche de l'utiliser par exemple dans une boucle de traitement des données...

Perso, je n'utiliserais pas une fonction spéciale pour cela, mais juste ceci: IsNumeric(Replace(Value, ".", ",")). De plus, même si le problème est peut-être moins présent en France qu'en Belgique où je travaille avec pas mal de filiales de groupes multinationaux, je testerais le séparateur décimal (pour du VBA Excel) avec application.International(xlDecimalSeparator) pour remplacer le "." OU la virgule par le séparateur utilisé sur le poste sur lequel la macro est active.

J'avais fais ça dans un userform avec un multipage ou j'avais près de 25 entrées et pour éviter a l’utilisateur de chercher ses erreurs de saisies je l'indiquais directement a la sorties de la textbox. Comme tous les champs étaient des nombres j'ai fais cette fonction sur mesures (oui je suis un flemmard mais, au fond, nous le sommes tous) pour me faciliter le codage.

Par contre je ne connaissait pas le application.International(xlDecimalSeparator) intéressant afin d'éviter de remplacer !

Oui, j'en comprends mieux l'utilité dans le cas que tu cites :plusser: (je crée aussi plein de fonctions d'une ligne ou deux juste pour ne pas répéter du code). Elle devient encore plus intéressante si on intègre le paramètre "international"...

Perso, pour signaler le problème dans un textbox, je bascule son fond en rouge pâle lors de la vérification de la saisie ;)