Erreur d'exécution 424

Bonjour,

Je but sur une erreur : erreur 91 variable objet ou variable de bloc with non définie

Je ne sui pas très doué sur les macro, je me débrouille en faisant sur du collé copier trouvé sur le net

Voici mon code, si quelqu'un pouvait me dépanner .... merci d'avance

Code:

---

1 2 3 4 5 6 7 8 9

Dim Cellu As Range Dim Li As Integer Set Cellu = Workbooks ("Nom de fichier.xls").Sheets (Feuille1).Range("D:D").Find("Mon article", lookat:=xlWhole) If Not Cellu Is Nothing Then Cel = Cellu.Address(0, 0) MsgBox Cel Li = Cel.Row MsgBox Li End If

---

Vous avez donc compris que je recherche un numéro de ligne par rapport à un article

Le MsgBox Cel m'affiche bien D18, cellule que je recherche, mais c'est après que j'ai l'erreur 424

Bonne nuit à tous

Dom

Bonjour,

Tu ne peux pas obtenir la ligne de cette façon:

Code:

---

Li = Cel.Row

---

Mais, cela marche avec la cellule:

Code:

---

Li = Cellu.Row

---

Merci,

Truc tout bête qui m'a fait chercher longtemps.... mais maintenant ça marche.

Encore merci de ce débogage

Dom