fonction find

bonjour
par exemple cherche feuil1 une valeur feuil2
Sub Macro1()
on error resume next
Worksheets("feuil1").Range("D1:D10").Find(Worksheets("feuil2").Range("a1")).Select
if err <> 0 then Msgbox "Pas trouvé"
End Sub


--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"philippe collignon" <philippe.collignon@wanadoo.fr> a écrit dans le message de news:
f2a67167.0507050455.4c83743c@posting.google.com...

est-il possible de lier une recherche find avec le contenu d'une
cellule
ex: je recheche le contenu de la cellule X sur une page Y, sans taper
le contenu de cette cellule sur la fonction recherche....
merci de votre aide.

Bonjour Philippe,

En supposant que la cellule A1 contienne l'élément recherché sur la plage
Y...

Sub zaza()
Set X = ActiveSheet.[Y].Find([A1], , xlValues)
If Not X Is Nothing Then
MsgBox "X trouvé dans Y !"
Else: MsgBox "X pas trouvé..."
End If
Set X = Nothing
End Sub


ChrisV


"philippe collignon" <philippe.collignon@wanadoo.fr> a écrit dans le message
de news: f2a67167.0507050455.4c83743c@posting.google.com...

est-il possible de lier une recherche find avec le contenu d'une
cellule
ex: je recheche le contenu de la cellule X sur une page Y, sans taper
le contenu de cette cellule sur la fonction recherche....
merci de votre aide.

1° partie de la question :

est-il possible de lier une recherche find avec le contenu d'une
cellule

2° partie de la question :

ex: je recheche le contenu de la cellule X sur une page Y, sans taper
le contenu de cette cellule sur la fonction recherche....

Bizarre 2° partie ("...je recheche le contenu de la cellule X sur une page Y")
qui est censée expliciter la 1° partie....
Pour cette 2° partie une simple référence 3D semble suffire :

x = [Feuil2!A1]

AV