[VBA] Variable objet ou variable bloc With non définie (erreur 91)

Bonjour à tous
à partir d'une feuille ("données"), je récupère une valeur que je souhaite utiliser pour faire une recherche dans une autre feuille("données appels").colonne ("B") et récupérer le numéro de ligne correspondant
j'ai déjà utilisé ce code mais la recherche ce faisait sur la même feuille.
j'ai donc éssayé de "cibler" la feuille de recherche avec un with / end with, mais visiblement je n'ai pas capter l'intérêt du schmilblik, il me semblait que cela permettait de faire référence à un objet contenu dans une feuille sans répéter le nom complet

dans le code suivant, ecrit en bleu...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim valeur As String For i = 2 To Nb_lignes_appel cellule = Range("B" & i).Value With Sheets("données appels") Dim num_ligne As Range num_ligne = .Range("B:B").Find(what:=valeur, LookIn:=xlValues, lookat:=xlWhole).Row End With Range("L" & i) = num_ligne Next

---

hors, je ne comprend pas pourquoi ma "variable objet ou bloc with" est non définie...

j'espere avoir été claire et précis... (c'est pas sure ;)) merci pour vos lumières .

Bonjour,

c'est un bug du gestionnaire d'erreur de l'editeur VBA. Mais cela ne veut pas dire qu'il n'y a pas d'erreur ! C'est juste qu'elle est mal interpretée ou retranscrite ou que sais-je.

l'erreur est ici :

Code:

---

Dim num_ligne As Range

---

cette variable attend un objet de type range

or

Code:

---

.Range("B:B").Find(what:=valeur, LookIn:=xlValues, lookat:=xlWhole).Row

---

renvois une valeur de type long !

soit tu ecris :

Code:

---

1 2 3 4

With Sheets("données appels") Dim num_ligne As long num_ligne = .Range("B:B").Find(what:=valeur, LookIn:=xlValues, lookat:=xlWhole).Row End With

---

soit

Code:

---

1 2 3 4 5 6

With Sheets("données appels") Dim num_ligne As Range Set num_ligne = .Range("B:B").Find(what:=valeur, LookIn:=xlValues, lookat:=xlWhole) 'et le numero de ligne s'obtient alors par exemple : MsgBox num_ligne.Row End With

---

A+

Rrhaaaa punaise...

ça m'apprendra à ressortir mes vieux codes....
j'ai tout vérifier sauf le type de retour...:roll:

merci, merci...merci