Bonjour,
Voici une autre proposition
remplace :
Private Sub TextBox4_Change()
[D35] = TextBox4
Cells(35, 4).NumberFormat = "dddd dd mmmm yyyy"
End Sub
par
Private Sub TextBox4_Change()
tmp = TextBox4
pos = InStr(tmp, "/" )
j = Left(tmp, pos - 1)
tmp = Mid(tmp, pos + 1)
pos = InStr(tmp, "/" )
m = Left(tmp, pos - 1)
a = Mid(tmp, pos + 1)
Cells(35, 4) = DateSerial(a, m, j)
Cells(35, 4).NumberFormat = "dddd dd mmmm yyyy"
End Sub