Conversion texte en chiffre dans userform

Résolu/Fermé
mchotard Messages postés 415 Date d'inscription vendredi 6 mai 2011 Statut Membre Dernière intervention 18 mars 2024 - 6 nov. 2014 à 16:17
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 6 nov. 2014 à 19:44
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

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 214
6 nov. 2014 à 19:44
On peut aussi faire :
[K21] = cdbl(TextBox11)
La flemme de lire un lien, c'est terrible...
eric
1
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
6 nov. 2014 à 17:03
0
Bonjour

[K21] = TextBox11

pour des chifres sans decimal

[K21] = Val(TextBox11.Value)

A+

Maurice
0
mchotard Messages postés 415 Date d'inscription vendredi 6 mai 2011 Statut Membre Dernière intervention 18 mars 2024 38
6 nov. 2014 à 18:16
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
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 214
6 nov. 2014 à 18:27
Bonjour,

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

eric
0
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
mchotard Messages postés 415 Date d'inscription vendredi 6 mai 2011 Statut Membre Dernière intervention 18 mars 2024 38
6 nov. 2014 à 19:28
Je n'aurai qu'un mot MERCI Maurice
Ca marche supr
Cdlt
0