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 !
 

Fichiers joints

pierrejean

XLDnaute Barbatruc
bonjour F22Raptor

Vois si cela te convient
PS: D'ou vient cette coutume de coller des on resume next partout ?????
 

Fichiers joints

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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas