'subscript out of range'

Bonjour, voilà l'erreur que me renvoit ce code. Je souhaite faire pourtant un truc simple: à partir d'une feuille donnée (celle des cells(i,1).value) je recherche si les valeurs qu'il y a se retrouvent dans la feuille "Lotissement v27" et si oui, alors je renvoie l'immatriculation de la cellule, mais j'ai une erreur comme indiquée dans le titre.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub rang() For i = 1 To Cells(1, 1).End(xlDown).Row c = Cells(i, 1).Value With Worksheets("Lotissement v 3.27_ELE.xls").Range("a1:a100") Set f = .Find(c, LookIn:=xlValues) End With If f > 0 Then Cells(i, 2).Value = f.Address End If Next i End Sub

---

Ca vous paraît débile ce que j'ai écrit?

Merci de votre aide signé l'handicapé du VB

bonjour

essaie de remplacer

Code:

---

With Worksheets("Lotissement v 3.27_ELE.xls").Range("a1:a100")

---

par

Code:

---

1 2	With ActiveSheet.Range("a1:a100")

---

ou

Code:

---

With Worksheets("Lotissement v 3.27").Range("a1:a100")

---

si ta feuille se nomme "Lotissement v 3.27"
à plus

Code:

---

Worksheets("Lotissement v 3.27_ELE.xls")

---

Ceci est une aberration en soi: il ne faut pas confondre feuille et classeur.
Une feuille est un onglet de classeur. ;)