XL 2010 [VBA] Décimale pas acceptée dans TextBox

F22Raptor

XLDnaute Impliqué
Hello
Sur le fichier joint, j'ai deux TextBox sur un Userform, qui reprennent une Qté et un Prix sur la feuille Excel.

Lorsque je modifie les TB, le total QxP se met à jour sur le UF (avec des TextBox_Change).

Mais je souhaite encadrer la saisie :
La quantité ne peut pas être négative ou décimale
Le prix ne peut pas être négatif (il peut bien entendu être décimal).

Mon TextBox_Change spécifie donc dans le premier cas
TextBox1.Value = Abs(Int(TextBox1.Value)) (valeur absolue de la partie entière)
et dans le second
TextBox2.Value = Abs(TextBox2.Value) (valeur absolue)

Dans ce second cas, le symbole décimal "point" n'est pas accepté ! (je suis en Point sur mon poste)
Sachant que ce fichier sera utilisé par des gens en Point et d'autres en Virgule.

Une idée du problème ?

Merci !
 

Pièces jointes

  • Textbox.xlsm
    26.5 KB · Affichages: 17

F22Raptor

XLDnaute Impliqué
Merci PJ ! Simple et efficace !

Pour le Resume Next, çà évite le msg d'erreur quand on commence à taper un signe négatif dans la première boîte.
Du coup, il faut peut être que j'adopte ta méthode utilisée pour la seconde boîte
 

Discussions similaires