Bonjour à tous,

Je travaille sur un outil de pilotage de stock avec entrées et sorties et j'aimerai que la valeur saisie dans le Textbox du Userform soit transformée en valeur négative sous Excel. J'ai utilisé le format "$#,##,0.00" qui fonctionnait jusqu'à hier mais aujourd'hui il renseigne à nouveau des valeurs positive.

Voici le code utilisé:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub comvalide_Click() 'Valider une sortie de matériel
Dim LignTablo
Sheets("Data saisies").Unprotect
 
With Sheets("Data saisies").ListObjects("Data_saisies")
    If .ListRows.Count = 0 Then
        Range("Tableau1[[#Headers],[Nom]]").Offset(1, 0) = 1
        Range("Tableau1[[#Headers],[Nom]]").Offset(1, 0) = ""
    End If
 
    If .ListRows.Count = 1 And .ListRows(1).Range.Cells(1, 1) = "" Then
        Set LignTablo = Sheets("Data saisies").ListObjects("Data_saisies").ListRows(1)
    Else
        Set LignTablo = Range("Data_saisies").ListObject.ListRows.Add(AlwaysInsert:=True)
    End If
End With
 
With LignTablo.Range
    .Cells(1, 1) = CDbl(Me.Textcodearticle.Value)
    .Cells(1, 2) = Textdesignation
    .Cells(1, 3) = Textdate
    .Cells(1, 5) = CDbl(Me.Textquantite.Value)
    Textquantite.Value = Format(Textquantite.Value, "$#,##0,00")
End With
 
Unload sortie
 
Sheets("Data saisies").Protect
sortie.Show
End Sub
Est que quelqu'un a une idée.

Par avance merci!
Zi