Discussion :

[zek474]

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 ?




voici mon code

Code :

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

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

[ChristianBosch]

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 :

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

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 :

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

 TextBox4.Locked = True

[Pierre Fauconnier]

Salut

Par exemple comme ceci:

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
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

[zek474]

...

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

[Pierre Fauconnier]

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?

[zek474]

...

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

[zek474]

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

[Pierre Fauconnier]

[...]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...

[Pierre Fauconnier]

Salut Christian

[...]

Code :

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

 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

[ChristianBosch]

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

Code :

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

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

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.

[Pierre Fauconnier]

[...]
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.

[ChristianBosch]

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 :

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

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.

[Pierre Fauconnier]

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:

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.

[ChristianBosch]

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 :

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

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.

[Pierre Fauconnier]

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.

[ChristianBosch]

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 !

[Pierre Fauconnier]

Oui, j'en comprends mieux l'utilité dans le cas que tu cites (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