Discussion :

[NulenVBA]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Le Pierre]

bonjour

essaie de remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[decondelite]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.