multiplication dans textbox

[gds35]

Bsr mes AMIS du forums ,
ds un Usf J'ai 3 Textbox .... l'une textbox1 contient un NBRE de KMS (150)
La Seconde Textbox2 contient un PU (0.32) et dans la troisieme je cherche a avoir le resultat de 0.32 * 150 puis copier ce résultat en G42 d'une feuille de calcul , et si l'une des textbox est vide sauter l'opération.

Je n'y arrive pas . Merci de AIDE Précieuse .

Cordialement GDS35

 

[blord]

Re : multiplication dans textbox

Bonjour,


If Textbox1.value = "" or Textbox2.value = "" then
exist sub
else
TextBox3.value = Val(Textbox1) * Val(Textbox3)
...

Sheets("nom de la feuille").Range("G42").value = TextBox3.value

Blord

 

[MJ13]

Re : multiplication dans textbox

Bonjour

A tester

Pour le produit des textboxs

textbox3.value=textbox1.value*textbox2.value

Pour le résultat en G42 sur l'évènement du commandbutton:

if textbox1.value or textbox2.value = "" then goto suite else activesheet.range("G42").value=usf.textbox3.value
suite:
end

Ouah, quelle collison. Si avec cela notre ami ne s'en sort pas!

 

[jp14]

Re : multiplication dans textbox

Bonjour

Les Textbox contiennent des valeurs sous la forme string.
Pour faire un calcul il faut les transformer en valeur numérique avec CCur pour des valeurs monétaires par exemple.
Textbox2.value=Replace(Textbox2.value,".",",") ' pour remplacer le point par une virgule
If Textbox2.value <> "" and Textbox1.value<> "" then

Textbox3.value = ccur(Textbox2.value)*clng(Textbox1.value)

End if

A tester

JP

 

[thomlau]

Re : multiplication dans textbox

Bonsoir GDS35, le forum...

Une première approche avec ce fichier.
Voir ci celà te conviens

++

mettre ceci en fin de code, avant le end if : sheets("Feuil1").range("G42").value = textbox3.value

 

[Borismy]

Re : multiplication dans textbox

Bonsoir,

Quelque chose du genre;

If TextBox1 = "" Then
MsgBox "Vous n'avez pas choisi la date, faites-le maintenant S.V.P.!!!", vbCritical, "Récupération de saisie"
Exit Sub

MsgBox "Votre Sélection : " & vbCrLf _
& TextBox1 & " ", vbInformation, "Récupération de saisie"

End If

Boris

 

[job75]

Re : multiplication dans textbox

Bonsoir à tous,

Ma solution puisque je l'ai écrite. Le séparateur décimal peut être le point ou la virgule :

Private Sub TextBox1_Change()
multiplie
End Sub

Private Sub TextBox2_Change()
multiplie
End Sub

Sub multiplie()
If TextBox1 <> "" And TextBox2 <> "" Then
TextBox3 = Val(Replace(TextBox1, ",", ".")) * Val(Replace(TextBox2, ",", "."))
Range("G42") = CDbl(TextBox3)
Else
TextBox3 = ""
Range("G42") = ""
End If
End Sub

A+

 

[gds35]

Re : multiplication dans textbox

MES AMIS DU FORUM GRD MERCI ++++++++++++ si avec tous cela je ne m'en sort pas suis le roi en lettres majuscule dont le nom est de 3 lettres encore MERCI . Bonne soirée
Cordialemenr gds35

 

[skoobi]

Re : multiplication dans textbox

Bonsoir tout le monde,

si avec tous cela je ne m'en sort pas suis le roi en lettres majuscule dont le nom est de 3 lettres

bin..... XLD non, quoi d'autre? 😀😛 (humour)

 

[gds35]

Re : multiplication dans textbox

Salut, Et oui SKOOBI , On en apprend tous les jours ce n'est pas facile de demarrer en vba tellement il est complexe , mais merci de ce forum , car honnetement sur un autre j'avais transmis un p'tit fichier exposant mon soucis et l'on m'a traite de FAIGNANT en me demandant s'il falla_it coder pour moi !!!! Dur , je ne demande qu'apprendre
A+ L'AMI . cordialement GDS35

 

[gds35]

Re : multiplication dans textbox

Rebjr mes AMIS du Forums , je patauge tj dans la multiplication malgré moult essais , en modifiant le code donné par thomlau. Mais je tombe irrémédiablement en erreur 13 ?????

Ne trouve Pas voici le code modifié de thomlau.

Cordialement GDS35

 

[Lii]

Re : multiplication dans textbox

Bonsoir Tous,

on retrouve tous les ingrédients d'une mauvaise farce :
- Saisies numériques ou pas
- Séparateur décimal du système ". ou ," ?
- Formats ...
Jette un œil sur le fichier joint (que j'avais "travaillé"). Tu auras peut-être des idées.

 

[gds35]

Re : multiplication dans textbox

Salut LII pour ton travail afin de m'aider , j'ai beaucoup galéré sur cette tranche de prg et je pense que je suis arrive a un résultat que j'envoi , ton p'tit fichier je le garde comme la prunelle de mes deux yeux il pourra tres certainement m'aider pour d'autres codes que j'ai a faire encore merci , merci.
Cordialement
GDS35

 

[GCFRG]

Re : multiplication dans textbox

salut à tous
ceci marche tres bien
Private Sub TextBox2_Change()
If TextBox2.Value = "" Then
Exit Sub
Else
TextBox3 = CDbl(Replace(TextBox1.Value, "", "")) * CDbl(Replace(TextBox2.Value, "", ""))
End If
End Sub

 

[GCFRG]

Re : multiplication dans textbox

ou alors
p'tit exemple ci-joint
GC