Bonjour à tous,
je reviens vers vous suite au téléchargement d'un code sur votre forum (un immense merci à l'auteur dont j'ai "mangé" le nom) constituant un moteur de recherche excel.
Un classeur avec plusieurs onglets.
Un onglet intitulé "Recherche" et d'autres onglets portant soit des noms soit sans nom.
Sur l'onglet "Recherche" il y a un bouton qui affiche une boite de dialogue de recherche dans lequel je tape mon mot.
En dessous, le résultat s'affiche sous forme de lien hypertexte.
Ma difficulté est que cette recherche ne s'effectue que sur l'onglet 1 et pas sur les autres...
Voici le code original :
D'avance merci pour votre aide !
je reviens vers vous suite au téléchargement d'un code sur votre forum (un immense merci à l'auteur dont j'ai "mangé" le nom) constituant un moteur de recherche excel.
Un classeur avec plusieurs onglets.
Un onglet intitulé "Recherche" et d'autres onglets portant soit des noms soit sans nom.
Sur l'onglet "Recherche" il y a un bouton qui affiche une boite de dialogue de recherche dans lequel je tape mon mot.
En dessous, le résultat s'affiche sous forme de lien hypertexte.
Ma difficulté est que cette recherche ne s'effectue que sur l'onglet 1 et pas sur les autres...
Voici le code original :
Code:
Sub recherche(mot)
On Error GoTo fin
ligne = 18
For Each ws In Sheets
If ws.Name <> "Recherche" Then
With ws.Cells
Set c = .Find(mot, LookIn:=xlValues, lookat:=xlPart)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Sheets("Recherche").Cells(ligne, 1).Select
Selection.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
ws.Name & "!" & c.Address, TextToDisplay:=c.Value
ligne = ligne + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
trouve = True
End If
End With
End If
Next ws
If Not trouve Then MsgBox ("Pas de C/C " & mot & " trouvé pour ni pour Lyon, ni pour Grenoble, ni pour Clermont-Ferrand, ni pour La Source")
fin:
End Sub
D'avance merci pour votre aide !