Erreur execution 224
Résolu
fredoalex
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
A voir également:
- Erreur execution 224
- 224 indicatif de quel pays - Guide
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- J'aime par erreur facebook notification - Forum Facebook
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
1 réponse
Bonjour
Sur quelle ligne l'erreur se produit elle (surlignage en jaune) ?
En attendant
'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
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
