XL 2010 Format Textbox dynamique

[cathodique]

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.

 

[Eric C]

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]

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]

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

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]

Bonjour,

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]

Re le forum
Re le fil

Concernant le code de scraper, il suffit de rajouter :

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]

Bonjour Eric C, le forum,

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

A+

 

[Eric C]

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