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é:
Est que quelqu'un a une idée.
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
Par avance merci!
Zi
Partager