Lien hypertexte

Bonjour le forum

De retour pour un peu d'aide, svp.

Comme indiqué dans le titre j'aimerai effectuer des liens hypertexte afin de pouvoir sélectionner une feuille masquée.

Je résume ce que je voudrai : il y a 3 feuilles

* feuille "Accueil" ou se trouve un bouton pour ouvrir la feuille "recherche"

* feuille "Note" qui me sert de modèle pour créer les note de frais.

* feuille "Recherche" ou j'enregistre les numéros de fiche de frais en colonne A (feuille masquée à l'ouverture du fichier)

Quand je crée une note de frais, une fois sauvegardé cette dernière est masqué automatiquement et son N° de fiche est enregistré sur la feuille "Recherche" en colonne A (à partir de A4)

j'aimerai à l'activation de cette feuille "Recherche" créer des liens sur les N° de fiche (donc colonne A) afin de pouvoir les démasquer

Principe :

Activation de la feuille "Recherche" les liens se crée sur les N°

15-001

15-002

15-003

ect...

Je click sur un N° et la fiche correspondante se démasque.

j'ai trouvé ce code en modèle

Sub lienhypertexte()

  For i = 2 To Sheets.Count
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:= _
                              "'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name
  Next
End Sub

j'essai de l'adapter mais envain

Sub lienhypertexte()
Dim i As Long
Dim F1 As Worksheet

  For i = 4 To F1.Range("A" & Rows.Count).End(xlUp).Row   
       F1.Hyperlinks.Add Anchor:=F1.Range("A" & i), Address:="", SubAddress:="'" & F1.Range("A" & i) & "'!A1", TextToDisplay:=CStr(F1.Range("A" & i))
  Next
End Sub

mais je crois que je pars de travers

Grand merci à vous

Cdlt

Bonjour

personne pour de l'aide !!!! étonnant.

j'ai chercher un peu pour mon soucis et ai trouvé ce code , mais bien évidement qui bug, est ce que quelqu'un peux m'aider ?

mon code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim NomDeLaFeuille

    NomDeLaFeuille = Target

    If NomDeLaFeuille <> "" Then
 On Error Resume Next
     Sheets(NomDeLaFeuille).Visible = True
     Sheets(NomDeLaFeuille).Select
 On Error GoTo 0
    End If

End Sub

qui bug au niveau de : If NomDeLaFeuile <>""then

je comprends pas pourquoi !!

je mets le fichier en PJ.

Merci à vous

Cdlt

Bonjour le forum

Suite à ma demande d'aide, je vous remercie d'avoir lu mon post et vous mets le code que j'ai trouvé pour mon problème.

Si cela peut interresser quelqu'un voici mon code

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'macro afin de cliquer sur un lien qui ouvre l'onglet correspondant
    Dim NomDeLaFeuille

    NomDeLaFeuille = Target
 On Error Resume Next
    If NomDeLaFeuille <> "" Then
      Sheets(NomDeLaFeuille).Visible = True
      Sheets(NomDeLaFeuille).Select
 On Error GoTo 0
    End If

End Sub

Bonne fin de journée à tous

Cordialement

Rechercher des sujets similaires à "lien hypertexte"