Bonjour,
une explication possible, c'est que la date n'existe pas dans ta feuille "ENTER" ou que la date n'a pas le bon format
Private Sub CommandButton1_Click()
Dim Lig As Long, Col As Long, r As Range
If Me.TextBox3 = "" Or TextBox2 = "" Then
MsgBox "erreur"
Exit Sub
End If
With Sheets("ENTER")
'On Error GoTo ErrHandler
Lig = Application.Match(Me.TextBox3, Sheets("ENTER").[noms], 0)
Col = Application.Match(Me.TextBox1, Sheets("ENTER").[dates].Value, 0)
If Err = 0 Then
With Application.Index(.[tableau], Lig, Col)
.Value = Me.TextBox2.Value
End With
End If
End With
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox1 = Format(Me.TextBox1, "dd/mm/yyyy")
End Sub
Private Sub UserForm_Initialize()
TextBox1 = Format(Now, "dd/mm/yyyy")
End Sub