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