TextBox avec valeur dollarsRésolu

Question

Bonjour,

J'ai un userForm avec plusieurs TextBox qui contiennent des valeurs en dollars.

Je voudrais que l'orsque je rentre une valeur dans se textbox, il l'inscrive en $ ex: $1.00.

De plus il ne faux pas qu'il inscrit ex: 1.99876. mais bien en $.

Comment faire?

mortalino · Accepted Answer

Bon, j'ai un poil galéré mais ceci devrait faire l'affaire (tiens moi au courant) : Private Sub TextBox1_Change() Dim MaVal As String MaVal = TextBox1.Text If Not Left(MaVal, 1) = "$" Then TextBox1.Text = "$" & MaVal Else If Not Right(MaVal, 1) = "." Then TextBox1.Text = "$" & Round(CDbl(Mid(MaVal, 2, Len(MaVal))), 2) End If End If End Sub ~ [code.aspx?ID=39466 Mortalino] ~ Colorisation automatique @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

mortalino · Answer

Salut, pour ton premier problème, voici comment procéder : Private Sub TextBox1_Change() Dim MaVal As String MaVal = TextBox1.Text If Not Left(MaVal, 1) = "$" Then TextBox1.Text = "$" & MaVal End Sub ~ [code.aspx?ID=39466 Mortalino] ~ Colorisation automatique Par contre, au lieu de $1.99876, tu veux que ça effiche quoi ? Arrondi supérieur ou inférieur ? @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

avyrex1926 · Answer

Salut,

Pas plus que 2 chiffres après la virgule.

avyrex1926 · Answer

Pour que le montant en dollars soit 2 chiffres max après le point comme dans l'exemple si:

$1.99 et non $1.9876...........

jmfmarques · Answer

Private Sub Command1_Click()
  MsgBox Format(1.9876, "$ 0.00")
End Sub

avyrex1926 · Answer

merci beaucoup encore une fois

mortalino · Answer

Jmfmarques, 

j'ai pensé à ta solution, le problème, c'est qu'il faut gérer déjà ce qui est rentré dans le TextBox (et donc le dollar est déja présent lors de la saisie).
Mais je ne sais pas si avec Format, ça gère si le $ est déjà présent.

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

mortalino · Answer

Avyrex, par curiosité, c'est toi que j'aide sur développez.net ?? 
(sur le format paysage de l'impression du UserForm), si c'est non, concours de circonstances, à part le 1926, c'est le même pseudo.

En tout cas, je trouve ça sympathique  

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

avyrex1926 · Answer

Oui c'est moi  lolllllllllllllllll

avyrex1926 · Answer

En passant, sur la formule que tu m'as donné qui fontionne super, on vien de me dire que le signe de dollars doit être à la fin du montant et non au début.

Je cherche à le modifier mais le signe de dollards se copie 25 fois après le chiffre.

Voici ce que j'ai fais:

Private Sub TextBox16_Change()
 Dim MaVal As String
    
MaVal = TextBox16.Text
If Not Left(MaVal, 1) = "$" Then
    TextBox16.Text = "$" & MaVal
Else
    If Not Right(MaVal, 1) = "." Then
        TextBox16.Text = Round(CDbl(Mid(MaVal, 2, Len(MaVal))), 2) & "$"
    End If
End If
End Sub

mortalino · Answer

Alors voici la correction, je t'ai inversé le tout, et fait en sorte que le curseur se place toujours avant le sigle Dollar : Private Sub TextBox1_Change() Dim MaVal As String On Local Error Resume Next MaVal = TextBox1.Text If Not Right(MaVal, 1) = "$" Then TextBox1.Text = MaVal & "$" Else If Not Right(Mid(MaVal, 1, Len(MaVal) - 1), 1) = "." Then TextBox1.Text = Round(CDbl(Mid(MaVal, 1, Len(MaVal) - 1)), 2) & "$" End If End If TextBox1.SelStart = Len(TextBox1.Text) - 1 End Sub ~ [code.aspx?ID=39466 Mortalino] ~ Colorisation automatique @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

avyrex1926 · Answer

merci encore pour ton aide qui m'est fort utile

jmfmarques · Answer

Bon ...
Bonsoir à tous...

On va me dire que je suis le roi des 'em.....rs", mais je m'en fiche
Le $ est dans la textbox ? et en plus à la fin ?
et alors ?

Private Sub Command5_Click()
 toto = "1.9876 $"
  MsgBox Format(Val(toto), "0.00 $")
End Sub

jmfmarques · Answer

Et si maintenant on mettait dans la textbox ce fichu $ devant, hein ? Ben.. ce serait :

Private Sub Command1_Click()
  toto = "$ 1.9876"
  MsgBox Format(Val(Mid(toto, 3)), "$ 0.00")
End Sub

Picétou ...

mortalino · Answer

Et si tu veux que le format apparaisse pendant la saisie dans le TextBox ?...
Exemple, 

je veux saisir dans le textbox 3.2, après avoir saisie le 3, je me retrouve bloqué !
Ca m'oblige à déplacer le curseur à l'endroit du changement.

Par contre, ta solution aurait été plus simple si la valeur était récupérée d'une variable, comme tu l'as fait dans ton exemple.

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

jmfmarques · Answer

Euh...
Coriace le vieux fou...

Alors :

Private Sub Text1_GotFocus()  If Right(Text1.Text, 2) " $" Then Text1.Text Left(Text1.Text, Len(Text1.Text) - 2)
  Text1.SelStart = Len(Text1.Text)
End Sub




Private Sub Text1_KeyPress(KeyAscii As Integer) If IsNumeric(Chr(KeyAscii)) Or KeyAscii 8 Or (Chr(KeyAscii) "." And InStr(Text1.Text, ".") = 0) Then Exit Sub
 KeyAscii = 0
End Sub


Private Sub Text1_LostFocus()
  If Text1.Text = "" Then Exit Sub
  Text1.Text = Text1.Text & " $"
End Sub

jmfmarques · Answer

Mais je peux faire encore plus zouli zouli avec le $ qui "avance" au fur et à mesure .... et disparait s'il doit disparaitre ...quand il doit disparaître
J'essaye ?

mortalino · Answer

Eh eh, gotfocus et lostfocus n'existe pas en VBA.. 

Bref, autant utiliser mon code 

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

jmfmarques · Answer

Alors yenapadipwoblem...
j'oublie le lostfocus et le setfocus et je gère en trimbalant, comme je l'ai dit plus haut, le $ quand il le faut et le fait disparaître également quanf il le faut...
On parie ?

mortalino · Answer

Inutile, le problème est résolu.

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

avyrex1926 · Answer

allez les amis, moi je teste tous en même temps  lolllllllllll

jmfmarques · Answer

Tu sais quoi, avyrex ?
Je ne me casserais personnellement pas la tête pour si peu :

1) je mettrais un label au bout de ma textbox (de la même couleur que la textbox et sans bordure faire joli), avec sa propriété caption = " $" (ne rate pas l'espace, pour la beauté de l'affichage)
2) pour faire encore plus propre je justifierais à droite le texte de la textbox
3) je jouerais avec la propriété visible du label (visible si texte présent non visible sinon (pour faire encore plus "propre")
4) pour la "récupération" en "format dollars" des valeurs saisies (pour une impression, par exemple), j'appliquerais alors tout bêtement la formule Format(val(text1.text), "0,00 $)
et je sauverais du code et gagnerais en lisibilité ...

avyrex1926 · Answer

Ah bien oui, c'est un autre possibilité.

merci

cs_MPi · Answer

Personnellement, j'irais comme ça

Private Sub Text1_LostFocus()
    If IsNumeric(Text1) Then
        Text1 = Format(Text1, "currency")
    Else
        Text1 = ""
    End If

End Sub

MPi

jmfmarques · Answer

coucou, MPI ,

On m'a dit plus haut quelque chose à propos de VBA et de lostfocus ...

avyrex1926 · Answer

jmfmarques, l'as tu esseyé voir si ça marche?

Private Sub Text1_LostFocus()
    If IsNumeric(Text1) Then
        Text1 = Format(Text1, "currency")
    Else
        Text1 = ""
    End If

End Sub

jmfmarques · Answer

Je n'ai pas VBA, avyrex ...
Je ne peux dans ce cas que faire confiance à Mortalino, qui a écrit plus haut :

"Eh eh, gotfocus et lostfocus n'existe pas en VBA.. "

cs_MPi · Answer

Effectivement, je suis un peu mêlé... VB VBA VB VBA...
On pourrait alors y aller comme ceci, j'imagine

Private Sub TextBox1_AfterUpdate()
    If IsNumeric(TextBox1) Then
        TextBox1 = Format(TextBox1, "currency")
    Else
        TextBox1 = ""
    End If
End Sub

MPi

TextBox avec valeur dollars

28 réponses

Votre réponse

Discussions similaires