Erreur execution 224 [Résolu/Fermé]

Signaler
-
Messages postés
16477
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
10 juin 2021
-
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

1 réponse

Messages postés
16477
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
10 juin 2021
3 189
Bonjour

Sur quelle ligne l'erreur se produit elle (surlignage en jaune) ?



En attendant
Option 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