Recherche dans une page

Version imprimable

25/03/2010, 19h08
flamel

Recherche dans une page

Bonjour,

Je voudrais rechercher un nombre dans une très grande plage.

L'utilisateur saisi un nombre dans une InputBox dans un UserForm.
Je voudrais ensuite retrouver l'adresse de ce nombre dans la page.
Je n'y arrive pas, malgré les modèles trouvés sur le net.
J'utilisais 'Find', mais qui ne marche pas.

Merci si vous pouvez m'aider par un petit exemple.
25/03/2010, 19h12
mercatog

bonjour
mets ton code (qui ne marche pas) ça serait utile pour la suite

Les voici, les deux, le premier pour le bouton, le second dans un module :

Code:

1
2
3
4
5
6
Public Sub CmdRecherche_Click()
    Dim strCherche, strTrouve As String
        strCherche = InputBox("Numéro SOSA : ", "S O S A")
        UserForm1.Hide
chercher
End Sub

Code:

1
2
3
4
5
6
7
8
Sub chercher()
    Dim strCherche ,strTrouve
    Dim find  As Variant
        Sheets("FeuilleTravail").Activate
        Range("A2:AV1000").Select
        strTrouve = Range("A2:AV1000").find(What:=strCherche, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns).Address
        MsgBox strCherche & " --> " & strTrouve
End Sub

Merci.

voici un exemple
regarde l'aide (F1 sur .Find)

Code:

1
2
3
4
5
6
7
8
9
10
11
sub test()
dim c as range
dim strmot as string
strmot="toto"
set c=sheets("feuil1").range("A1:AV1000").find(strmot,lookin:=xlvalues,lookat:=xlwhole) 'recherche toto dans A1:AV1000
if not c is nothing then 
   msgbox c.address
else
   msgbox "mot " & strmot &" non trouvé"
end if
end sub

26/03/2010, 06h33
flamel

Merci mercatog,

Ça n'a pas marché non plus, mais en mettant le code 'chercher' directement dans le Code du bouton sans faire de renvoi, ça va.
Est-ce parce que le renvoi se faisait à partir du bouton de l'userform vers un module que ça ne marchait pas ? ou alors, j'ai une autre faute ?

Merci et codialement.

le code test c'est pour expliquer.
modifions tes codes
1. à mettre dans un modile public

Code:

1
2
3
4
5
6
7
8
9
10
Public Sub chercher(byval strCherche as string, strTrouve as string)
'Dim find  As Variant ??? Supprime cette déclaration bizarre
dim c as range
With Sheets("FeuilleTravail")
        set c= .Range("A2:AV1000").find(What:=strCherche, LookIn:=xlFormulas, LookAt:=xlPart)
        if not c is nothing then
                strTrouve=c.address
                MsgBox strCherche & " --> " & strTrouve
        endif
End Sub

2. et pour l'appel

Code:

1
2
3
4
5
Private Sub CmdRecherche_Click()  'Private et non Public
Dim strCherche As String
strCherche = InputBox("Numéro SOSA : ", "S O S A")
UserForm1.Hide   'usf et inputbox, pas jolie mais bon c'est un choix
chercher strCherche