déclenchement lien hypertexte depuis valeur cherchee par un userform

[Francis]

Bonjour à tous,

Je viens chercher de l'aide sur ce site qui est une petite mine de renseignements. Je ne suis pas un pro de vba, mais pour "m'amuser" à titre perso, mais à des fins professionelles je cherche à me faciliter les taches quotidiennes et répétitives (vba est là pour ca).
1) Depuis un fichier xls qui me sert de base de données, un userform s'affiche à l'ouverture contenant un textbox, une fois la valeur numérique saisie dans ce textbox, à la validation
2) je souhaiterais que cette valeur soit recherchée dans la colonne F, et simule un clic sur la cellule qui contient cette valeur pour lancer le lien hypertexte (ouverture d'un fichier pdf non visible dans fichier joint) associée à cette cellule
Mon projet est réalisé au point 1)
Ce que je recherche c'est le point 2)
Je remercie d'avance tout ceux qui pourront m'aider.
Longue vie à ce site.

 

[myDearFriend]

Bonsoir Fabrice,


Peut-être que la procédure suivante répondra à ton problème :

Private Sub Valider_Click()
Dim R As Range
   With Worksheets(1).Columns(6)
      Set R = .Find(Val(GP_saisie.Text), After:=.Cells(6, 1), LookIn:=xlValues)
      If Not R Is Nothing Then
        R.Hyperlinks(1).Follow
      End If
   End With
End Sub


Cordialement.

Didier_mDF

 

[Francis]

Bonjour Didier "My Dear Friend",

Efficacité et rapidité, c'est le constat que je fais pour une première demande d'aide.
J'ai rapidement essayer la procédure ce midi, et ca à l'air de fonctionner correctement, il faut que je teste plus profondément sur mon lieu de travail, où se trouvent mes fichiers pdf.

Je ne manquerais pas de recommander ce site dans mon entourage.

Encore Merci à Didier.