VBA erreur d'excution 424

[fredoalex]

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]

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]

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

Ici le code vb

P.

 

[Dranreb]

Comme ça, ça marche mieux :

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]

Bonjour Dranreb

ça fonctionne super merci beaucoup

 

[gosselien]

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