Macro de recherche + lien hypertexte

Bonsoir,

J'ai créé une macro qui permet le lancement d'une boîte de dialogue inputbox

Mon problème est le suivant :

J'aimerais faire une macro qui recherche le résultat de la boîte inputbox dans la colonne A et qui ouvre le lien hypertexte du résultat.

A votre avis est ce réalisable?

Merci de l'attention que vous porterez à ce problème.

Bonsoir Grorkal, bonsoir le forum,

Peut-être comme ça :

Sub lanceruncontrôlehiérarchique()
Dim VR As Variant
Dim R As Range

VR = Application.InputBox("texte?", "Titre")
If VR = False Or VR = "" Then Exit Sub
Set R = Columns(1).Find(VR, , xlValues, xlWhole)
If Not R Is Nothing Then R.Hyperlinks(1).Follow
End Sub

Merci de ton efficacité sur le sujet.

La macro fonctionne bien, par contre si la valeur recherchée existe dans la colonne A, mais qu'elle n'a pas de lien hypertexte il y a une erreur "l'indice n'appartient pas à la sélection". est il possible de gérer cette erreur? sinon je me débrouillerais pour qu"à chaque référence dans la colonne il y ait un lien hypertexte.

Merci encore.

Re,

Essaie comme ça :

Sub lanceruncontrôlehiérarchique()
Dim VR As Variant
Dim R As Range

VR = Application.InputBox("texte?", "Titre")
If VR = False Or VR = "" Then Exit Sub
Set R = Columns(1).Find(VR, , xlValues, xlWhole)
If Not R Is Nothing Then
    On Error Resume Next
    R.Hyperlinks(1).Follow
    If Err <> 0 Then
        Err.Clear
        R.Select
    End If
End If
End Sub

Bonjour,

Tout fonctionne.

Merci beaucoup.

Bonne journée