Lien hypertexte dans une Macro

Résolu/Fermé
Signaler
Messages postés
2
Date d'inscription
lundi 14 mars 2011
Statut
Membre
Dernière intervention
14 mars 2011
-
Messages postés
8539
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
20 juillet 2021
-
Bonjour,


J'ai récupéré un moteur de recherche excel que je voudrai utiliser pour repérer les livres de chez moi.
Par contre sur le résultat affiché, il y a un lien hypertexte automatique que je ne veux pas.
Comment supprimer ce lien hypertexte auto dans la Macro ?

Voici la macro :


Sub recherche(mot)
On Error GoTo fin
ligne = 9
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, 2).Select
Selection.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
ws.Name & "!" & c.Address, TextToDisplay:=c.Value
Sheets("Recherche").Cells(ligne, 3) = c.Offset(, 1)
Sheets("Recherche").Cells(ligne, 4) = c.Offset(, 2)
Sheets("Recherche").Cells(ligne, 5) = c.Offset(, 3)
Sheets("Recherche").Cells(ligne, 6) = c.Offset(, 4)
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 " & mot & " à Rognac")
fin:
End Sub


Merci
A+++

1 réponse

Messages postés
8539
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
20 juillet 2021
1 734
Remplacer :
Sheets("Recherche").Cells(ligne, 2).Select
Selection.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
ws.Name & "!" & c.Address, TextToDisplay:=c.Value

Par :
Sheets("Recherche").Cells(ligne, 2) = c.Value

0
Messages postés
2
Date d'inscription
lundi 14 mars 2011
Statut
Membre
Dernière intervention
14 mars 2011

salut Patrice,

Merci beaucoup, ça marche impeccable.
A+++
titi
0
Messages postés
8539
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
20 juillet 2021
1 734
De rien, au plaisir de te relire sur le forum.
0