Erreur execution 224
Résolu
fredoalex
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'ai un soucis avec mon code qui affiche erreur execution 224
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
Merci d'avance pour votre aide
J'ai un soucis avec mon code qui affiche erreur execution 224
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
Merci d'avance pour votre aide
1 réponse
-
Bonjour
Sur quelle ligne l'erreur se produit elle (surlignage en jaune) ?
En attendantOption Explicit
'---------------------------------------------------------
Sub Valider_Click()
Dim Num_cde As String
Dim Trouve As Byte
Num_cde = textbox2.Value
If IsEmpty(Num_cde) Then GoTo Vide
On Error GoTo inconnu
Trouve = Worksheets("Demandes").Range("C1:C20").Find(what:=Num_cde, LookIn:=xlValues, LookAt:=xlPart).Row
'---------num_cde valable
MsgBox Trouve
Date = Worksheets("Demandes").Range("F" & Trouve) 'Date
MsgBox "Votre commande" & " " & Num_cde & "" & "sera expedier le" & "" & Date
Unload Me
Exit sub
'gestionnaire erreurs
Vide:
MsgBox " Votre commande n'a pas encore été traité"
Exit Sub
inconnu:
MsgBox "Aucune demande n'a été faite sur cette commande"
End sub
MAIS:
Au cas où:
1/DATE est un mot réservé
aide en ligne VBA:"Renvoie une valeur de type Variant (Date) contenant la date système actuelle."
2/num_cde est renvoyé par un textbox et est donc du type texte(string); donc si dans ton tableau num_cde est un nombre---> erreur inconnu
