Bonjour,
J'ai fait un petit code pour rechercher des mots dans mon classeur puis il me retourne les résultats sous forme de liens.
il me trouve les mots et me les affiches en forme de liens hypertexte.
Cependant la recherche ce fait uniquement sur la premieres colone de chaque feuille.
Pouvez m' aidez a faire en sorte qu'il cherche sur toutes les cellules de chaque feuilles.
Merci
J'ai fait un petit code pour rechercher des mots dans mon classeur puis il me retourne les résultats sous forme de liens.
il me trouve les mots et me les affiches en forme de liens hypertexte.
Cependant la recherche ce fait uniquement sur la premieres colone de chaque feuille.
Pouvez m' aidez a faire en sorte qu'il cherche sur toutes les cellules de chaque feuilles.
Merci
Code:
Sub recherche_Click(mot)
Dim plage As Range
ligne = 9
For Each ws In Sheets
If ws.Name <> "Search Item" Then
For n = 1 To ws.Range("A65536").End(xlUp).Row
If InStr(UCase(ws.Range("A" & n)), UCase(mot)) <> 0 Then
Sheets("Search Item").Cells(ligne, 1).Select
Selection.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=ws.Name & "!A" & n, TextToDisplay:=ws.Range("A" & n).Value
ligne = ligne + 1
trouve = True
End If
Next n
End If
Next ws
If Not trouve Then MsgBox ("No " & mot & " found in the file")
End Sub