Comment executer un programme avec un bouton

Version imprimable

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:

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

salut

essaye comme ça.

Code:

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

09/08/2006, 16h44
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

Code:

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

Essaie avec :

Code:

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

09/08/2006, 16h56
Asdorve

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

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

Essaie avec :

Code:

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

09/08/2006, 19h48
jmfmarques

Citation:

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é...)