XL 2010 Mettre un texbox en négatif

[eduraiss]

Bonjour le forum

Voici ma demande:
Dans mon userform j'ai des 2 textbox une appelé
Textquantiteentree qui me permet d'alimenter mon sotck en positif et une autre

Textquantitesortie qui me permet de réguler le stock en négatif (lors d'un inventaire par exemple)

Une fois renseigner soit l'un soit l'autre je vais les positionner dans une feuille de calcul
J'aimerais si possible que le Textquantitesortie soit en négatif
donc en tapant le nombre que le signe "-" se positionne devant celui-ci
Merci de votre aide

 

[Eric C]

Bonjour le forum
Bonjour eduraiss

Au plus simple : Propriété "Text" de ton TextBox, tu inscrits le signe "-".
Bonne journée

 

[eduraiss]

Bonjour le forum, Eric C
Merci pour ce retour
Le signe "-" est bien présent, mais cela ne mets pas le nombre en négatif
Merci quand même
Cordialement,

 

[frangy]

Bonjour,

Une solution pour que la valeur reportée dans la feuille de calcul soit systématiquement négative

If IsNumeric(Textquantitesortie.Value) Then
    Range("A1") = -Abs(Val(Textquantitesortie.Value))
End If

Cordialement.

 

[job75]

Bonjour eduraiss, Eric C, frangy,

Val ne va pas toujours bien avec les nombres décimaux, CDbl ira mieux :

If IsNumeric(Textquantitesortie) Then Range("A1") = -Abs(CDbl(Textquantitesortie))

A+

 

[eduraiss]

Bonjour le forum, frangy, job75

désolé mais je en comprends pas très bien le range ("A1")
C'est dans mon textquantitesortie que le signe - doit apparaitre

Par exemple je tape 10 dans le textquantitesortie a l'affichage j'ai -10

 

[job75]

905 message eduraiss !!!

If IsNumeric(Textquantitesortie) Then Textquantitesortie = -Abs(CDbl(Textquantitesortie))

 

[eduraiss]

Merci
Nickel ça fonctionne
Cordialement,