Discussion :

[flamel]

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.

[mercatog]

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

[flamel]

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

Code :

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

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 :

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

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.

[mercatog]

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

Code :

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

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

[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.

[mercatog]

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

Code :

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

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 :

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

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