Userform, valeur par défaut textbox

guiyom · 17 Janvier 2020

Bonjour,

Je sollicite votre afin de m'éclairer sur un problème que je rencontre actuellement sur les textbox d'un Userform.

J'utilise une formule qui multiplie le montant saisie dans les textbox par un nombre prédéfinie :

VB:

 Me.TextBox6 = Val(Replace(Me.TextBox1 * 100, ",", ".")) + Val(Replace(Me.TextBox2 * 200, ",", ".")) + Val(Replace(Me.TextBox3 * 300, ",", ".")) + Val(Replace(Me.TextBox4 * 400, ",", ".")) + Val(Replace(Me.TextBox5 * 500, ",", "."))

La formule fonctionne parfaitement à condition que la valeur par défaut des textbox soit défini au préalable à 0.

J'aimerais faire disparaître les "0" présent par défaut dans chaque textbox afin de gagner en visibilité et par soucis pratique.

Je joint à mon post un fichier illustrant le problème.

Cordialement

mapomme · 17 Janvier 2020

Bonsoir @guiyom ,

Essayez :

Sub Calcul()
Me.TextBox6 = 100 * Val(Replace(Me.TextBox1, ",", ".")) + 200 * Val(Replace(Me.TextBox2, ",", ".")) + 300 * Val(Replace(Me.TextBox3, ",", ".")) + 400 * Val(Replace(Me.TextBox4, ",", ".")) + 500 * Val(Replace(Me.TextBox5, ",", "."))
End Sub

guiyom · 17 Janvier 2020

mapomme à dit:
Bonsoir @guiyom ,

Essayez :
Sub Calcul() Me.TextBox6 = 100 * Val(Replace(Me.TextBox1, ",", ".")) + 200 * Val(Replace(Me.TextBox2, ",", ".")) + 300 * Val(Replace(Me.TextBox3, ",", ".")) + 400 * Val(Replace(Me.TextBox4, ",", ".")) + 500 * Val(Replace(Me.TextBox5, ",", ".")) End Sub

Bonsoir,

Merci pour la rapidité de réponse et de résolution du problème, j'ai honte de ne pas y avoir pensé....
J'étais en trin de bidouiller avec des IF actuellement.

Encore merci et bonne soirée.

Cordialement

Userform, valeur par défaut textbox

guiyom

XLDnaute Junior

Pièces jointes

mapomme

XLDnaute Barbatruc

guiyom

XLDnaute Junior

Discussions similaires