Conversion texte en chiffre dans userform

Résolu
mchotard Messages postés 457 Date d'inscription   Statut Membre Dernière intervention   -  
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
Quelqu'un pourrait-il me la formule pour que ma formule ci-dessous dans mon userform1 qui marche bien sauf que les chiffres deviennent des textes
[K21] = TextBox11

Que faudrait-il ajouter à cette formule pour convertir les textes en chiffres.
Grand merci, je galère depuis des heures et malgré les forums, je n'arrive pas à solutionner mon problème.

A voir également:

7 réponses

Réponse 1 / 7
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 269
 
On peut aussi faire :
[K21] = cdbl(TextBox11)
La flemme de lire un lien, c'est terrible...
eric
1
Réponse 2 / 7
f894009 Messages postés 17272 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

http://www.gaboly.com/VBA/ConversionType.html
0
Réponse 3 / 7
Maurice
 
Bonjour

[K21] = TextBox11

pour des chifres sans decimal

[K21] = Val(TextBox11.Value)

A+

Maurice
0
Réponse 4 / 7
mchotard Messages postés 457 Date d'inscription   Statut Membre Dernière intervention   43
 
Merci Maurice c'est super. Puis-je abuser pour te demander la formule pour des décimal et monétaires
Mais je suis déjà très satisfait de ce que tu m'as indiqué
Cdlt
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 269
 
Bonjour,

tu as tout dans le lien fourni par f894009.
Choisi le type Double.

eric
0
Réponse 6 / 7
Maurice
 
Re

'a la saisie sans decimal

Private Sub TextBox11_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57
KeyAscii = KeyAscii
Case Else
KeyAscii = 0
End Select
End Sub

'avec decimal

Private Sub TextBox11_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 46, 48 To 57
KeyAscii = KeyAscii
Case 44
KeyAscii = 46
Case Else
KeyAscii = 0
End Select
End Sub

regarde bien comment ca marche

A+

Maurice
0
Réponse 7 / 7
mchotard Messages postés 457 Date d'inscription   Statut Membre Dernière intervention   43
 
Je n'aurai qu'un mot MERCI Maurice
Ca marche supr
Cdlt
0