et si tu donnes le bon format à la celluleCode:
1
2
3 Cells(1, 5) = -CDbl(Me.Textquantite.Value) Textquantite.Value = Format(Textquantite.Value, "#,##0,00") Cells(1, 5).NumberFormat = "#,##0,00"
et si tu donnes le bon format à la celluleCode:
1
2
3 Cells(1, 5) = -CDbl(Me.Textquantite.Value) Textquantite.Value = Format(Textquantite.Value, "#,##0,00") Cells(1, 5).NumberFormat = "#,##0,00"
J'ai essayé en tapant ceci:
Sans préciser le format ensuite.Code:.Cells(1, 5) = -CDbl(Me.Textquantite.Value)
Cela fonctionne!!
Merci à tous pour vos conseils.
A+