Forcer un format nombre dans une TextBox

Version imprimable

Voir 40 message(s) de cette discussion en une page

Patrick tu as été plus rapide que moi. Voilà ce que j'allais proposer, est-ce correct ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Option Explicit
 
Const entrees_decimales_permises = ".,0123456789" & vbCr & vbBack
Const Point = "."
Const Virgule = ","
 
Private Sub Txt1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = Asc(Point) Then
        If InStr(Txt1, Virgule) = 0 Then
            KeyAscii = Asc(Virgule)
        Else
            KeyAscii = 0
        End If
    ElseIf InStr(entrees_decimales_permises, Chr(KeyAscii)) = 0 Then
        KeyAscii = 0
    ElseIf InStr(Txt1, Virgule) > 0 And KeyAscii = Asc(Virgule) Then
        KeyAscii = 0
    End If
 
End Sub
 
Private Sub Txt1_AfterUpdate()
Dim T As Double
If IsNumeric(Me.Txt1) Then
T = CDbl(Me.Txt1)
End If
Me.Txt1.Value = Format(T, "0.00 €")
End Sub

12/11/2017, 13h02
patricktoulon

re

non ! ton system ne fonctionne pas et en plus tu continu a utiliser afterupdate donc il faut au moins deux textbox dans ton usf

et il fait même pas son rôle puisque ( le formatage ne s'effectue pas )
m
a méthode est dynamique est interne au textbox besoins de rien d'autre

teste la dans un new usf
reste a corrigé le selstart histoire de faire bien mais ca match

si tu avais fait une recherche sur ce même forum tu aurais vu que je l'ai proposé il y a quelques jours déjà

et on peu faire pareil pour les dates ,N ° Téléphone,etc.....

re le voila abouti

re tiens le voila abouti et j'ai mis des commentaires a chaques lignes pour que tu puisse comprendre ce que ca fait exactement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Const char_permis = "0123456789,"
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 46 Then TextBox1.Tag = "": TextBox1.Value = "0,00 €" ' on vide le textbox et!!! son tag avec la touche suppr
If TextBox1.Tag <> "" Then 'si le tag est pas vide
If KeyCode = 8 Then TextBox1.Tag = Mid(TextBox1.Tag, 1, Len(TextBox1.Tag) - 1) 'on enelve le dernier chiffre dans le tag
End If
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44 ' on remplace le point par la virgule
If Chr(KeyAscii) = "," And TextBox1.Tag Like "*,*" Then KeyAscii = 0: Exit Sub 'si le caracteres tapé ou détourné est le separateur et que le textbox l'a deja on l'annule
If char_permis Like "*" & Chr(KeyAscii) & "*" Then ' si le caractere est permis
If InStr(TextBox1.Tag, ",") > 0 Then 'si il y a deja la virgule
If Len(Split(TextBox1.Tag, ",")(1)) >= 2 Then KeyAscii = 0 ' et que il y a deja 2 chiffres apres la virgule on annule la touche
End If
TextBox1.Tag = TextBox1.Tag & Chr$(KeyAscii) ' on met le caractere dans le tag
KeyAscii = 0 ' on annule bien evidement le keyascii car  en vrai on ecrit pas dans le textbox du moins pas dans cet evenement
End If
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'voila c'est ici que l'on injecte le texte du tag  dans le textbox
If TextBox1.Tag <> "" Then 'si le tag n'est pas vide
TextBox1.Value = Replace(Format(CDbl(TextBox1.Tag), "0.00 €"), ",", ".") 'on injecte la valeur du tag  formaté dans son .value avec le point comme separateur
'TextBox1.Value = Format(CDbl(TextBox1.Tag), "0.00 €") 'on injecte la valeur du tag  formaté dans son .value avec la virgule comme separateur
TextBox1.SelStart = Len(TextBox1.Tag)  ' on place le carré(clignotant)
End If
End Sub

dans l'inscription finale tu a les deux possibilités (point/virgule)

12/11/2017, 14h56
NEC14
Merci beaucoup Patrick, je n'y serais jamais arrivé tout seul. J'ai encore beaucoup à apprendre.
Les commentaires ajoutés vont m'aider à progresser et à comprendre le processus.

Dans le code que j'ai proposé, j'ai 3 TextBox, donc le afterupdate pourrait fonctionner. Je pensais également que ce code permettait de formater mon TxtBox.
Code:

1 2 Me.Txt1.Value = Format(T, "0.00 €")
Mais bon je m'incline devant ton savoir-faire, ton code est beaucoup plus complet.
Encore mille mercis pour votre patience à tous et vos précieux commentaires.

Je me "demande" ce que pourrait bien faire (entre autres) ceci, y compris à Toulon :
Code:

1 2 3 4 5 Private Sub TextBox1_Change() Static deja As String If Not IsNumeric(TextBox1.Text) And TextBox1.Text <> "" Then TextBox1.Text = deja: Exit Sub deja = TextBox1.Text End Sub
Bonne fin de dimanche ... :D

12/11/2017, 16h53
NEC14

J'ai testé ton code, le résultat est que la tabulation ne permet pas le passage à la 2ème TextBox, le focus reste sur la 1ère.
12/11/2017, 18h14
unparia

Citation:

J'ai testé ton code, le résultat est que la tabulation ne permet pas le passage à la 2ème TextBox, le focus reste sur la 1ère.

Le code que je t'ai montré ne traite, lui, que le contrôle de saisie.
A toi de le compléter (tout de même ... c'est tellement facile !) par ce qu'il faut pour ton "passage" ailleurs !
12/11/2017, 18h27
NEC14

Citation:

Je me "demande" ce que pourrait bien faire (entre autres) ceci, y compris à Toulon

Je n'avais pas compris que tu attendais que je le termine. J'ai été surpris du commentaire, me doutant que tu savais ce que faisait ce code.
Mon problème étant résolu, je n'ai pas trouvé bon de le compléter.
Je te remercie pour ton investissement dans l'aide apporté. Il ne faut pas croire que je n'essaie pas de mon côté de résoudre mes problèmes, mais un code comme me l'a proposé Patrick, je suis incapable de le faire, chacun à ses limites.
Je ne demande qu'à me perfectionner et cela ne va pas se faire d'un coup de baguette magique, il me faudra du temps pour travailler correctement toutes les possibilités qu'offre VBA.
Je réitère ici mes remerciements à tous les contributeurs, demandeurs, etc...
Je fais des recherches sur le forum, maladroitement surement, par manque de pratique.
Je reviendrai certainement pour d'autres questions qui feront réagir, je m'y attends.
Dans l'attente, encore mille mercis.
Amicalement
René
12/11/2017, 18h30
unparia

Bon ...
je viens en plus de faire un test avec deux textboxes sur un userform.
Aucune espèce de problème, sans rien d'autre !
Si toi, tu en as, c'est que tu as tripatouillé les propriétés (multiline, tabstop, ...) de ces textboxes ...
12/11/2017, 18h38
NEC14

Citation:

Si toi, tu en as, c'est que tu as tripatouillé les propriétés (multiline, tabstop, ...) de ces textboxes ...

Non, non je n'ai rien touché de ton code. L'erreur est ailleurs, une inattention de ma part, je n'avais pas désactivé le mode création. Effectivement ça fonctionne.
Merci de ne pas affirmer ce qui doit être simplement une supposition. Je n'ai pas pour habitude de tripatouillé quoi que ce soit que je ne connais pas, cela évite de faire des âneries (pour être poli).
Bon fin de weekend et encore merci

Edit : le point du clavier numérique, lui ne fonctionne pas. On ne peut utiliser que la virgule
12/11/2017, 18h58
patricktoulon

re

de rien
attention ma proposition est complètement différente elle gere le travail dynamiquement

Bon courage René te laisse pas faire par le père fouettard :ptdr:
12/11/2017, 19h07
unparia

Citation:

Edit : le point du clavier numérique, lui ne fonctionne pas. On ne peut utiliser que la virgule

Et pour cause ! Relis tout ce que j'ai écrit à ce sujet à propos de la base même (respecter la configuration choisie). Tu t'en porteras bien.
Je veux croire tout ce que tu dis... Mais le premier à affirmer (que "cela ne permettait pas ..."), alors que ... , c'était qui, déjà ? Allons, allons ... Balaie devant ta porte et reviens ensuite avec tes "recommandations".

A PatrickTopulon : tu mériterais toi également la fessée du "père fouettard". Il n'est jamais trop tard pour se mettre sur les bons rails, hein ... ;)
12/11/2017, 19h14
patricktoulon

re

re
ah ben le voila qui commence a faire des propositions tendancieuses maintenant :ptdr:

"PatrickTopulon" c'est qui celui la :mouarf:
12/11/2017, 19h16
NEC14

Merci Patrick pour tes encouragements.

unparia, n'ai crainte je sais balayer devant ma porte.

On ne va pas polémiquer toute la soirée, ce n'est pas le but de se forum, du moins à mon avis.

Je te laisse le dernier mot...
12/11/2017, 19h22
unparia

Ne polémique alors pas et prends dorénavant la peine de vérifier avec soin avant de philosopher. :lol:
C'est également cela, le principe d'un forum.
Allez. Bonne fin de soirée
12/11/2017, 21h26
Philippe Tulliez

Bonjour,
A propos d'une question du fil #19

Citation:

Je ne sais pas quel séparateur décimal vont utiliser les utilisateurs.

Code:

MsgBox Application.International(xlDecimalSeparator)

Citation:

Certain préfère le point et d'autre la virgule. Donc , je dois envisager les 2 cas

L'utilisateur n'a pas à avoir de préférence. C'est au programmeur de prévoir ces cas là et d'empêcher les encodages non admis.

Citation:

J'ai pu parcourir pas mal de tuto, je n'ai pas toujours tout compris, mais je vais les reprendre.
Je vais creuser pour trouver une solution.

Un peu de lecture du tutoriel de Jean-Philippe ANDRÉ Excel et les paramètres régionaux : Application.International
12/11/2017, 21h34
unparia

Bonjour Philippe Tulliez

Je ne sais pas ce qu'a voulu dire par là RENE14
Deux interprétations possibles :
1) code utilisé sur des machines avec séparateurs différents --->>
Et mon code fait alors l'affaire tel quel, quelle que soit la machine
L'utilisateur se trouve forcé, par ce code, d'utiliser le séparateur attendu (IsNumeric intervient et fait la police ;))
2) simples petites habitudes de l'utilisateur -->> l'utilisateur sera forcé de se mettre au diapason.
Bon dans tous les cas.
12/11/2017, 21h45
Philippe Tulliez

Bonjour Unparia,
Oui ta réponse est tout à fait correcte mais mon intervention était juste en réaction à ces phrases de RENE14.
12/11/2017, 21h54
unparia

Pour tout dire : j'ai ici voulu délibérément éviter d'aller à plus de détails. Il est possible de "rouler" ce code, tel qu'écrit. Ainsi, par exemple et entre autres :
-- l'utilisateur saisit "01"
- puis se déplace (flèche gauche) au début et frappe "&" puis "H" -->> tant "&01" que "&H01" étant également des numériques, ils seront acceptés.
Il est toutefois extrêmement simple (si nécessaire) d'interdire en plus tout caractère qui ne serait ni numérique, ni ".", ni "," (peut importe que les deux soient permis, dès lors que Isnumeric fera de toute manière la police derrière ;))

Voilà en complétant, si l'on veut éviter ce dont j'ai parlé --->>
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub TextBox1_Change() Static deja As String If Not IsNumeric(TextBox1.Text) And TextBox1.Text <> "" Then TextBox1.Text = deja: Exit Sub deja = TextBox1.Text End Sub Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Select Case KeyCode Case 188, 16, 96 To 105, 8, 37, 39, 46 Case Else KeyCode = 0 End Select End Sub
Il n'en faut pas plus pour forcer à rester dans les cordes prévues.

EDIT : un autre intérêt dont je n'avais pas voulu parler, mais je vais le faire :
Le policier Isnumeric de ce code tout bête interviendra également (puisque évènement Change) en cas de copié/collé d'un non numérique, sans pour autant interdire tous les copiés/collés, qui peuvent être pratiques dans certains cas.
Voilà voilà

EDIT 2 : ce que l'on peut d'ailleurs exprimer en un seul évènement, ainsi --->>
Code:

1 2 3 4 5 6 7 Private Sub TextBox1_Change() Static deja As String If TextBox1.Text <> "" And TextBox1.Text <> "-" Then If Not TextBox1.Text Like "[0-9-]*" Or Not IsNumeric(TextBox1.Text) Then TextBox1.Text = deja: Exit Sub End If deja = TextBox1.Text End Sub
J'ai dans la foulée inclus la saisie de nombres négatifs

J'ajoute maintenant à l'attention de RENE14 (qui en fera ce qu'il voudra ensuite, mais en meilleure connaissance de cause) qu'une Textbox n'est pas une zone d'affichage, mais de saisie.
Il est maladroit d'en formater en son sein sa valeur, ce qui peut dans certains cas carrément gêner l'utilisation de cette valeur, que ce soit pour la passer à une cellule ou à d'autre fins (calculs, entre autres).
S'il s'agit de passer la valeur (numérique ou de date) à une cellule, ce n'est pas le contenu de cette valeur, qu'il faut formater, mais donner à la cellule concernée le format souhaité. C'est très loin d'être la même chose, Excel sachant parfaitement distinguer ce qu'est la forme de l'affichage et ce qu'est la valeur stockée en mémoire.

Lorsqu'enfin la finalité est dans certains cas l'utilisation de la valeur saisie dans la présentation d'un texte : on ne modifie pas la saisie faite. On attribue à une variable la valeur formatée de cette saisie et c'est cette variable (seule formatée) que l'on insère dans le texte

Voir 40 message(s) de cette discussion en une page