Conversion texte en chiffre dans userform
Résolu
mchotard
Messages postés
496
Date d'inscription
Statut
Membre
Dernière intervention
-
eriiic Messages postés 25847 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 25847 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.
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:
- Conversion texte en chiffre dans userform
- Clavier iphone chiffre et lettre - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Chiffre en lettre - Télécharger - Outils professionnels
- Transcription audio en texte word gratuit - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
7 réponses
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
Mais je suis déjà très satisfait de ce que tu m'as indiqué
Cdlt
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
'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
