Bonjour,
Faire ceci:
-dans "Private Sub UserForm_Activate()", remplacez:
Tx_Date.Value = Format(Date, "dd/mm/yyyy")
par
Tx_Date.Value = Format(Date, "m/d/yyyy")
-dans "Private Sub CommandButton1_Click(), la ligne de code devient:
Fun = Application.WorksheetFunction.SumIfs(SalesRange, DatesRange, CDate(Tx_Date.Value))
Cdlt