Discussion :

[STEPH69000]

Bonjour,

Je suis en train de creer un "userfom", avec 3 cases "TextBox"

J'ai aussi mis un bouton "CommandButton", j'aimerai grace a ce bouton faire multiplier les 3 chiffres rentrés dans chacune des "TextBox" par l'utilisateur et l'afficher toujours dans mon "userform" dans un "Label".

Voila ce que j'ai pu faire :

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
 
Private Sub BOUTONcalcul_Click()
 
'je ne sais pas comment a partir de ce bouton exécuter le programme juste en dessous
 
End Sub
 
 
 
Private Sub NOIRresultat_Click()
 
'ceci est le Label
Dim Total As Integer
Total.Value = TXbox1 * TXbox2 * TXbox3
 
End Sub

Merci bcp

[Asdorve]

salut

essaye comme ça.

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
 
Private Sub BOUTONcalcul_Click()
 
NOIRresultat
 
End Sub
 
 
 
Private Sub NOIRresultat()
 
'ceci est le Label
Dim Total As Integer
Total.Value = TXbox1 * TXbox2 * TXbox3
 
End Sub

[STEPH69000]

merci ca fonctionne..... mais je me confronte ç un autre probleme

apparement ce qui est saisie dans mes "TextBox" par l'utilisateur n'est pas bien en compte, j'ai l'erreur d'execution 424, a ce niveau :

Total.Value = TXbox1 * TXbox2 * TXbox3

la syntaxe est t'elle correct?

et comment obliger l'utilisateur à ne saisir uniquement des chiffres ?


encore merci

[Asdorve]

Code :

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

1
2
 
Total = TXbox1.Text * TXbox2.Text * TXbox3.Text

[Mymi]

Essaie avec :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub NOIRresultat()
on error goto Err_NOIRresultat
 
'ceci est le Label
Dim Total As Integer
Total.Value = cint(TXbox1) * cint(TXbox2) * cint(TXbox3)
 
Exit_NOIRresultat:
 
 
End Sub

[Asdorve]

je préfère ça aussi, convertir en int, plutôt que de faire une multiplication de String...

[Mymi]

Désolé, j'ai accoché des touche et j'ai posté avant d'avoir fini...

Essaie avec :

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
Private Sub NOIRresultat()
on error goto Err_NOIRresultat
 
'ceci est le Label
Dim Total As Integer
Total.Value = cint(TXbox1) * cint(TXbox2) * cint(TXbox3)
 
Exit_NOIRresultat:
   Exit Sub
 
Err_NOIRresultat:
    MsgBox "Une des valeur entrée est incorrecte"
    Resume Exit_CmdOpenCoteMVie_Click
 
End Sub

[jmfmarques]

et comment obliger l'utilisateur à ne saisir uniquement des chiffres ?

Je suppose que tu as voulu dire le contraire de ce que tu as écrit !!! (car "à ne saisir uniquement des chiffres" veut dire saisir n'importe quoi !)

C'est en effet en amont (à la saisie) que l'on doit traiter !

Quant à la façon de le faire (lors qe l'événement Keypress) ou par utilisation d'un maskedit :
Les sujets en traitant sur ce forum ne manquent pas ...
Une petite recherche, s'il te plait...

Profites-en pour modifier ton titre (car, tel qu'il est écrit, il ne correspond pas au problème exposé...)