THIRY
XLDnaute Nouveau
Bonjour à toutes et à tous
je cherche à modifier une macro de façon a faire une recherche sur une feuille ( index ) précise et pas sur le classeur entier.
merci beaucoup
Sub recherche(mot)
Dim plage As Range
ligne = 110
For Each ws In Sheets
If ws.Name <> "index" Then
For n = 1 To ws.Range("A65536").End(xlUp).Row
If InStr(UCase(ws.Range("a" & n)), UCase(mot)) <> 0 Then
Sheets("index").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 ("Pas de " & mot & " trouvé dans ce fichier")
End Sub
je cherche à modifier une macro de façon a faire une recherche sur une feuille ( index ) précise et pas sur le classeur entier.
merci beaucoup
Sub recherche(mot)
Dim plage As Range
ligne = 110
For Each ws In Sheets
If ws.Name <> "index" Then
For n = 1 To ws.Range("A65536").End(xlUp).Row
If InStr(UCase(ws.Range("a" & n)), UCase(mot)) <> 0 Then
Sheets("index").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 ("Pas de " & mot & " trouvé dans ce fichier")
End Sub