Bonjour,
J'aimerai savoir comment copier le contenu d'un textbox avant qu'une erreur arrive dans mon code. Quelle est la commande à utiliser ? Voici un bout de code
Private Sub TextBox1_Change()
On Error GoTo fin
Me.ComboBox1.Clear
Me.ComboBox3.Clear
x = Me.TextBox1.Value
a = (Day(x) & Month(x) & Year(x))
x = Format(x, a)
Me.ComboBox1.Visible = True
If Worksheets(a).Index < 1 Then
MsgBox ("La date n'est pas valide")
Else
lig = Sheets(a).Range("M" & Rows.Count).End(xlUp).Row
For i = 2 To lig
Me.ComboBox1.AddItem Sheets(a).Range("M" & i)
Next i
End If
Exit Sub
fin:
MsgBox ("Une erreur est survenue : Attention ne pas modifier la date ou saisir un mauvaise date")
Unload Me
UserForm1.Show
End Sub
Merci pour votre aide !