XL 2010 Mettre un texbox en négatif

Eric C

XLDnaute Barbatruc

• 7 Juin 2019

• #2

Bonjour le forum
Bonjour eduraiss

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

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 7 Juin 2019

• #3

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,

 

Vote positif 0 Vote négatif

F

frangy

XLDnaute Occasionnel

• 7 Juin 2019

• #4

Bonjour,

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

VB:

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

Cordialement.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Juin 2019

• #5

Bonjour eduraiss, Eric C, frangy,

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

VB:

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

A+

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 7 Juin 2019

• #6

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Juin 2019

• #7

905 message eduraiss !!!

VB:

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

 

Vote positif 0 Vote négatif

E

eduraiss

XLDnaute Accro

• 7 Juin 2019

• #8

Merci
Nickel ça fonctionne
Cordialement,

 

Vote positif 0 Vote négatif