USF: Format Textbox avec point au lieu de la virgule

[MJ13]

Bonjour à tous

Aujourd'hui, j'ai 2 petite questions sur les textboxs:

Comment avoir dans l'USF un format du textbox de type 0.2 et non pas 0,2 (sachant que mon format décimal est la virgule)?

et

Pourquoi si je clique plusieurs fois de suite sur un bouton, il faut de temps en temps cliquer 2 fois pour incrémenter de 0,2 ?

Merci pour vos réponses sur ce sujet épineux 🙂.

 

[mromain]

Re : USF: Format Textbox avec point au lieu de la virgule

Bonjour Michel,


Voici un essai qui semble fonctionner (du moins avec Excel 2003) :

Private Sub CommandButton1_Click()
Dim valTxtBox As Double
    valTxtBox = CDbl(Replace(TextBox1, ".", ","))
    valTxtBox = valTxtBox + 0.2
    If valTxtBox > 1 Then valTxtBox = 1
    TextBox1 = Replace(valTxtBox, ",", ".")
End Sub

Private Sub CommandButton2_Click()
Dim valTxtBox As Double
    valTxtBox = CDbl(Replace(TextBox1, ".", ","))
    valTxtBox = valTxtBox - 0.2
    If valTxtBox < 0 Then valTxtBox = 0
    TextBox1 = Replace(valTxtBox, ",", ".")
End Sub

A+

 

[MJ13]

Re : USF: Format Textbox avec point au lieu de la virgule

Bonjour Mickaël

Merci beaucoup pour ce code (2 en 2 jours 🙂) qui a l'air de fonctionner.

Pour le second point, je pense qu'on ne peut pas faire grand chose, juste qu'il ne faut pas aller trop vite 😉.

Bonne journée 😎.

 

[PMO2]

Re : USF: Format Textbox avec point au lieu de la virgule

Bonjour,

Essayez la pièce jointe.

J'ai remplacé les 2 CommandButton par 1 SpinButton et le problème des plusieurs clic semble résolu.

Cordialement.

PMO
Patrick Morange

 

[MJ13]

Re : USF: Format Textbox avec point au lieu de la virgule

Bonjour Patrick

Merci aussi pour cette élégante solution (il est vrai que je ne pense jamais à les utiliser les spinbutton).

Sinon j'avais des soucis avec ton code que j'ai mixé avec celui de Mickaël.

Private Sub SpinButton1_SpinDown()
Dim valTxtBox As Double
    valTxtBox = CDbl(Replace(TextBox1, ".", ","))
    valTxtBox = valTxtBox - 0.2
    If valTxtBox < 0 Then valTxtBox = 0
    TextBox1 = Replace(valTxtBox, ",", ".")
End Sub

Private Sub SpinButton1_SpinUp()
Dim valTxtBox As Double
    valTxtBox = CDbl(Replace(TextBox1, ".", ","))
    valTxtBox = valTxtBox + 0.2
    If valTxtBox > 1 Then valTxtBox = 1
    TextBox1 = Replace(valTxtBox, ",", ".")
End Sub

Private Sub UserForm_Initialize()
With SpinButton1
  .Delay = 50
  .Orientation = fmOrientationVertical
End With
End Sub

Maintenant, il ne me reste qu'à classifier tout ça 🙂.