Lien hypertexte dans une Macro

Résolu/Fermé
titi le titou Messages postés 2 Date d'inscription lundi 14 mars 2011 Statut Membre Dernière intervention 14 mars 2011 - Modifié par titi le titou le 14/03/2011 à 18:27
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 janvier 2023 - 14 mars 2011 à 23:39
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+++
A voir également:

1 réponse

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 janvier 2023 1 762
14 mars 2011 à 19:04
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
titi le titou Messages postés 2 Date d'inscription lundi 14 mars 2011 Statut Membre Dernière intervention 14 mars 2011
14 mars 2011 à 19:47
salut Patrice,

Merci beaucoup, ça marche impeccable.
A+++
titi
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 janvier 2023 1 762
14 mars 2011 à 23:39
De rien, au plaisir de te relire sur le forum.
0