Textbox . ou ,

Lu K · 19 Novembre 2010

Bonjour à toutes et à tous,

Voilà je viens encore vers vous pour un petit soucis.

Dans un Userform, en remplissant un texbox par des chiffres. Celui ci m'indique directement un "." au lieu d'une "," et lorsque je transfert cette information vers une cellule il met met un "."
Suite à cela, il met impossible d'exploiter cette valeur. Et -il possible de l'exporter en lui mettant une virgule au lieu d'un point ?

Merci d'avance pour vos réponse.

James007 · 19 Novembre 2010

Re : Textbox . ou ,

Bonjour,

A priori, il ne s'agit que d'une question de format ... qui ne change pas la valeur ...
As tu essayé d'utiliser .Value au lieu de .Text ?

A +

joss56 · 19 Novembre 2010

Re : Textbox . ou ,

Bonjour à tous,

Tu peux essayer ça:

MaCellule=Val(textbox1)

A adapter bien sûr

Jocelyn

Lu K · 19 Novembre 2010

Re : Textbox . ou ,

Bonjour James007, Joss56

Ok pour MaCellule=Val(textbox1), ça marche Nickel

Merci

youky(BJ) · 19 Novembre 2010

Re : Textbox . ou ,

Bonjour à tous,
Il faut changer le "." en "," et neutraliser ce qui n'est pas chiffres
Bruno

Code:

Private Sub CommandButton1_Click()
[A1] = CDbl(Feuil1.TextBox1.Value) 'récupération
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'que numéric et 1 seule virgule
If KeyAscii = 46 And Not TextBox1 Like "*,*" Then KeyAscii = 44: Exit Sub
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Textbox . ou ,

Lu K

XLDnaute Occasionnel

James007

XLDnaute Barbatruc

joss56

XLDnaute Accro

Lu K

XLDnaute Occasionnel

youky(BJ)

XLDnaute Barbatruc

Discussions similaires