Textbox . ou ,

James007

XLDnaute Barbatruc

• 19 Novembre 2010

• #2

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 +

 

Vote positif 0 Vote négatif

J

joss56

XLDnaute Accro

• 19 Novembre 2010

• #3

Re : Textbox . ou ,

Bonjour à tous,

Tu peux essayer ça:

MaCellule=Val(textbox1)

A adapter bien sûr

Jocelyn

 

Vote positif 0 Vote négatif

L

Lu K

XLDnaute Occasionnel

• 19 Novembre 2010

• #4

Re : Textbox . ou ,

Bonjour James007, Joss56

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

Merci

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 19 Novembre 2010

• #5

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

 

Vote positif 0 Vote négatif