Erreur : Reference is not valid

ryadus

XLDnaute Junior
Bonjour,
j'ai une question concernant une erreur qui apparait: Reference is not valid

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 mais quand je click j'obtiens l' erreur plus haut.

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
 

Modeste

XLDnaute Barbatruc
Re : Erreur : Reference is not valid

Bonjour ryadus,

Je viens de tester ton code sur ma machine (en ajoutant une procédure pour appeler la tienne) et je n'ai aucun message d'erreur!? Les liens se créent, pointent sur les bonnes cellules, etc.

Modeste
 

Discussions similaires

Réponses
10
Affichages
249
Réponses
7
Affichages
486

Membres actuellement en ligne

Statistiques des forums

Discussions
314 450
Messages
2 109 719
Membres
110 551
dernier inscrit
Khyolyanna