XL 2010 Format Textbox dynamique

cathodique · 24 Décembre 2023

Bonjour,

Au fil de mes recherches, j'ai trouvé des codes très intéressants de notre ami @patricktoulon ( que je salue pour sa gentillesse en mp).
Ses codes sont à garder précieusement. Mais je n'ai pas toutes les connaissances pour les adapter à mes attentes.
Je voudrais un masque de saisie suivant: Textbox numérique (2 décimales) avec séparateur de milliers en dynamique et possibilité de retour arrière pour correction faute de frappe.
J'espère que mes explications sont claires.
Bon dimanche.

patricktoulon · 24 Décembre 2023

voila
et noyeux joel

VB:

Option Explicit

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'patricktoulon
'textbox (million millier mille) formaté dynamico aux taper des touches
'la touche (BACK ;retour en arrière) est fonctionnelle  
  Dim v  'j'ai juste ajouté ce dim car le code planté
    With TextBox1
        v = Replace(.Value, " ", "")
        Select Case KeyCode
        Case 96 To 105, 48 To 57
            If KeyCode < 96 Then KeyCode = KeyCode + 48
            If InStr(1, v, ",") > 0 Then
                If Len(Split(v, ",")(1)) = 2 Then KeyCode = 0: Exit Sub
            Else
                'v = v & Chr(KeyCode - 48): KeyCode = 0
                v = Split(Format(v & Chr(KeyCode - 48)...

Eric C · 26 Décembre 2023

Re le fil

@job75 : Oui oui, j'avais remarqué cet état dans tes codes et avais signalé ce fait qu'à notre ami Patrick.

Bonne journée à toutes & à tous.
Eric c

cathodique · 26 Décembre 2023

Bonjour les copains,

Je constate ce matin que je suis en retard sur le fil.
Merci, je teste et surtout essaie de comprendre vos différents codes.
Je reviendrais vers vous si nécessaire.

Toute ma gratitude.
Excellente journée.

scraper · 26 Décembre 2023

Bonjour Cath.
avec une commande replace supplémentaire et mon clavier numérique tout fonctionne

VB:

Private Sub TextBox1_Change()
Dim sep$, pos%
With TextBox1
    If .Text = "" Then Exit Sub
    sep = Application.DecimalSeparator
    .Text= Replace(.Text, ".", sep) 
    If Not IsNumeric(Left(.Text, 1)) Then .Text = "" Else If Not IsNumeric(Right(.Text, 1)) And Right(.Text, 1) <> sep Then .Text = Left(.Text, Len(.Text) - 1)
    pos = InStr(.Text, sep)
    If pos = 0 Then .Text = Format(.Text, "#,##0") Else If Len(Mid(.Text, pos + 1)) > 1 Then .Text = Format(Left(.Text, pos + 2), "#,##0.00")
End With
End Sub

job75 · 26 Décembre 2023

Bonjour,

scraper à dit:
avec une commande replace supplémentaire et mon clavier numérique tout fonctionne

Non, votre code permet d'entrer plusieurs séparateurs.

A+

Eric C · 29 Décembre 2023

Re le forum
Re le fil

Concernant le code de scraper, il suffit de rajouter :

VB:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 If (InStr(TextBox1.Value, ",") <> 0 And Chr(KeyAscii) = ",") Then KeyAscii = 0
End Sub

Bonne fin d'après-midi à toutes & à tous
Eric c

job75 · 29 Décembre 2023

Bonjour Eric C, le forum,

D'accord mais avec le code de mon post #22 pas besoin de macro KeyPress...

A+

Eric C · 29 Décembre 2023

Re le fil

Bonjour job75

Entièrement d'accord avec toi, c'était simplement pour finaliser le post.

Bonne fin de journée
Eric c

XL 2010 Format Textbox dynamique

cathodique

XLDnaute Barbatruc

Pièces jointes

patricktoulon

Eric C

XLDnaute Barbatruc

cathodique

XLDnaute Barbatruc

scraper

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Eric C

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Eric C

XLDnaute Barbatruc

Discussions similaires