Sujet Précédent Sujet Suivant

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
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.

1 réponse

Réponse 1 / 1
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
Bonjour Pier, bonjour le forum,

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.
0

Discussions similaires

[SUJET GROUPÉ] Avis agence Prestige model management ?
Petitelibellulebleu -
bazfile -

503 réponses
encore PayPal ...est-ce une arnaque ?
erwin16 -
sissi12 -

2 réponses
[Arnaque/Fraude] + harcèlement par NCO EUROPE
nokeleven -
coeurdor -

9 réponses
[Google] Aller sur google USA
Elparano -
rosaliehlne -

28 réponses
Arnaque de l'agence prestige model management
Madame -
vivelespigeons -

6 réponses