Decimal us et europe
Fermé
pier
-
30 avril 2016 à 16:08
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 2 mai 2016 à 09:25
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 2 mai 2016 à 09:25
Bonjour,
je travaille en VBA, j'ai fais un prgramme ou l'utilisateur a plusieurs textbox a remplir, souvent en décimal, j'aimerai qu'il puisse les entrer aussi bien avec un "." qu'avec une "," je pourrai utiliser la fonction replace, mais il faudrait que je l'affecte a chaque data "dim" et je crois qu'il y a une autre méthode.
je travaille en VBA, j'ai fais un prgramme ou l'utilisateur a plusieurs textbox a remplir, souvent en décimal, j'aimerai qu'il puisse les entrer aussi bien avec un "." qu'avec une "," je pourrai utiliser la fonction replace, mais il faudrait que je l'affecte a chaque data "dim" et je crois qu'il y a une autre méthode.
A voir également:
- Decimal us et europe
- Hsbc continental europe - Guide
- Paypal europe sarl et cie sca - Accueil - Guide arnaque
- Amazon le moins cher d'europe - Accueil - Commerce
- Qn europe avis - Forum Consommation & Internet
- Tmall europe - Accueil - Commerce
1 réponse
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
2 mai 2016 à 09:25
2 mai 2016 à 09:25
Bonjour Pier, bonjour le forum,
Essaie la procédure KeyPresss appliquée à ta TextBox :
Soit tu le fais pour chaque textbox décimale soit tu utilises un module de classe. C'est plus complexe et il ma faudra plus de renseignement pour cela.
Essaie la procédure KeyPresss appliquée à ta TextBox :
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'à l'appui d'une touche du clavier If KeyAscii = 44 Then KeyAscii = 46: Exit Sub 'si la touche est la virgule, remplace par un point, sort de la procédure If KeyAscii = 46 Then Exit Sub 'si la touche est le point, sort de la procédure If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 8 'si la touche est différente de {0,1,2,3,4,5,6,7,8,9} efface la touche End Sub
Soit tu le fais pour chaque textbox décimale soit tu utilises un module de classe. C'est plus complexe et il ma faudra plus de renseignement pour cela.