VBA erreur d'excution 424

fredoalex · 23 Mars 2018

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

Dranreb · 23 Mars 2018

Bonjour.
Le problème vient de ce qu'un objet est requis pour le tester Is Nothing.
Or là il n'est ni déclaré As Range ni initialisé comme objet Range.
Un espion le montre Variant/Long, = 7

gosselien · 23 Mars 2018

Bonjour,

il est préférable/recommandé de déclarer les variables en début de code et pour le publier ici de le mettre entre les balises

VB:

Ici le code vb

P.

Dranreb · 23 Mars 2018

Comme ça, ça marche mieux :

VB:

Sub Valider_Click()
Dim Trouve As Range
Set Trouve = Worksheets("Demandes").Range("C1:C20").Find(what:=TextBox2.Value, LookIn:=xlValues, LookAt:=xlPart)
If Trouve Is Nothing Then
    MsgBox "Aucune demande n'a été faite sur cette commande", vbInformation, Caption
ElseIf IsEmpty(Trouve.Offset(, 3).Value) Then
    MsgBox " Votre commande n'a pas encore été traitée", vbInformation, Caption
Else
    MsgBox "Votre commande" & " " & Num_cde & "" & "sera expedier le " _
       & Format(Trouve.Offset(, 3), "dd/mm/yyyy"), vbInformation, Caption
    End If
Unload Me
End Sub

fredoalex · 23 Mars 2018

Bonjour Dranreb

ça fonctionne super merci beaucoup

gosselien · 23 Mars 2018

fredoalex à dit:
Bonjour Dranreb

ça fonctionne super merci beaucoup

Tant qu'à faire..

MsgBox "Votre commande" & " " & Num_cde & "" & "sera expedier le " _ ---> sera expédiée

C'est mieux pour le client

VBA erreur d'excution 424

fredoalex

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

gosselien

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

fredoalex

XLDnaute Nouveau

gosselien

XLDnaute Barbatruc

Discussions similaires