Erreur execution 224
Résolu/Fermé
fredoalex
-
23 mars 2018 à 11:45
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 23 mars 2018 à 13:37
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 23 mars 2018 à 13:37
A voir également:
- Erreur execution 224
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 1001 outlook - Accueil - Bureautique
- Erreur 3000 france tv - Forum Lecteurs et supports vidéo
- 224 indicatif de quel pays - Guide
1 réponse
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
Modifié le 23 mars 2018 à 14:05
Modifié le 23 mars 2018 à 14:05
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
