texbox12

[Jeny]

bonsoir a tous
encore un probleme
j'ai trois textbox sur une userform
j'aimerai que les données misent dans la premiere soient multiplié par les données de la deuxieme
et que le resultat s'affiche dans la troisieme
j'esper avoir ete assez claire
je vous remercie d'avance
bonne soirée a tous
jenny

 

[peper-eliot]

Bonjour à tous

Et salut Jeny

Soit un USF avec 3 TextBox et 1 CommandButton


Option Explicit
'par défault, tout ce qui est entré dans une textbox est du texte
'je déclare donc 2 variables string
Dim t1, t2 As String
'qui seront transformées en nombres sur lesquels je pourrai faire des opérations
Dim M1, M2 As Currency


Private Sub CommandButton1_Click()
t1 = TextBox1.Value
M1 = CCur(t1) 'je transforme la variable t1 texte en currency M1
t2 = TextBox2.Value
M2 = CCur(t2) 'idem
TextBox3.Value = M1 * M2 'je peux alors faire mes opérations
End Sub

Et ATTENTION, la conversion ne marchera pas si ma chaîne de texte comporte une lettre, ou un point à la place d'une virgule comme séparateur (because paramétrage de l'écriture des nombres en français).
par contre, les espaces ne sont pas genants. Ils sont supprimés lors de la conversion.

bon, jarrête là... c'est pas facile de taper avec un doigt et de bercer ma julie (3mois) de l'autre. lol...

@+ peper-eliot

 

[Jeny]

bonjour a tous
bonjour peter je te remercie pour ta reponse
mais j'aimerai que ça marche sans y rajouter encore un bouton est_ce que c'est possible?
sinon je ferai comme tu m'as dit
encore merci bisou a julie
@+
JENNY

 

[peper-eliot]

Salut le forum
bonjour Jeny

Si tu vas dans le code de l'USF, il y a 2 listes déroulantes au dessus de la fenêtre de code.
Celle de gauche te permet de sélectionner un des éléments du USF
Celle de droite, l'action faite sur l'élément

Avec le CommandButton l'action etait 'Click'

Essayons de faire sans le bouton...

Associe avec la TextBox3 l'action Enter

Cela rajoute dans ta fenêtre de code :

Private Sub TextBox3_Enter()

End Sub

Et bien, il ne reste plus qu'à transférer le code dans cette petite routine

Private Sub TextBox3_Enter()
t1 = TextBox1.Value
M1 = CCur(t1) 'je transforme la variable t1 texte en currency M1
t2 = TextBox2.Value
M2 = CCur(t2) 'idem
TextBox3.Value = M1 * M2 'je peux alors faire mes opérations
End Sub

Cela aura pour effet de calculer le montant de ta TextBox3 à chaque fois que tu 'entreras' dedans par le bias de la tabulation.

Bon courage pour la suite. Et Julie te remercie beaucoup.

@+ peper-eliot