Bonjour à tous,
J'ai une erreur d’exécution 424 et je ne comprend pas d'où viens le problème.
Voici mon code
Sub Valider_Click()
Num_cde = TextBox2.Value
trouve = Worksheets("Demandes").Range("C1:C20").Find(what:=Num_cde, LookIn:=xlValues, LookAt:=xlPart).Row
MsgBox trouve
If trouve Is Nothing Then
MsgBox "Aucune demande n'a été faite sur cette commande"
Else
If IsNull(trouve) = True Then
MsgBox " Votre commande n'a pas encore été traité"
Else
Date = Worksheets("Demandes").Range("F" & trouve)
MsgBox "Votre commande" & " " & Num_cde & "" & "sera expedier le" & "" & Date
End If
End If
Unload Me
End Sub
Merci d'avance pour votre aide
J'ai une erreur d’exécution 424 et je ne comprend pas d'où viens le problème.
Voici mon code
Sub Valider_Click()
Num_cde = TextBox2.Value
trouve = Worksheets("Demandes").Range("C1:C20").Find(what:=Num_cde, LookIn:=xlValues, LookAt:=xlPart).Row
MsgBox trouve
If trouve Is Nothing Then
MsgBox "Aucune demande n'a été faite sur cette commande"
Else
If IsNull(trouve) = True Then
MsgBox " Votre commande n'a pas encore été traité"
Else
Date = Worksheets("Demandes").Range("F" & trouve)
MsgBox "Votre commande" & " " & Num_cde & "" & "sera expedier le" & "" & Date
End If
End If
Unload Me
End Sub
Merci d'avance pour votre aide