Re : Liens hypertextes vers onglets en vba
bonjour 89ric
Ton idée me semble ok et réalisable en vba
.
Je te joint un petit sub vba pour faire des liens. J ai essayer de bien détailler sur comment il fonctionne.
Ne saisissant pas trop les détails comment tu voulais procéder.
j'ai préférer de donner l'outil que tu pourras l'incorporer a la solution de ton code.
Je souhaite que ça répond a ton besoin de ne pas savoir comment faire des liens en vba
Bonne chance
LeMort
Public Sub Lien(ByVal Lf$, ByVal Lr$, ByVal cl$, Optional ByVal T$)
'**************************************************
' Ceci ajoute un lien dans la feuille ' Lf ' Colonne&Cellule ' Lr '
' vers la Feuille&Colonne&Cellule 'cl' ecrivant le contenu de'T' dans ' cl '
'
' Lf contiens le nom de la feuille qui recoit l'encrage du lien.
'
' Lr contiens l'adresse Range qui recoit l'encrage du lien ,
' c.a.d. le nom de la colonne et le # de la ligne ex: "A1".
'
' cl contiens l'adresse complete ou pointe le lien "'nom de la
' feuille'!adresse range"
'
' ex: "'Lafreniere Jean'!A1", a remarquer les deux apostrophes!
'
' Bien important, Si le nom de la feuille contiens un ou des espaces,
' ajout‚ avant et apres un apostrophe. Ceci a pour but que le nom
' soit considere par vba comme un ensemble et par le fait meme
' d'eviter des bugs du aux espaces.
'
' La derniere variable T, elle est facultavive. si elle existe , son
' contenu va s'inscrire a la cellule de la feuille ou pointe le lien
' c.a.d. cl
'LeMort
'*************************************************
On Error Resume Next
If T <> "" Then GoTo ok
On Error GoTo 0
Worksheets(Lf).Hyperlinks.Add Anchor:=Worksheets(Lf).Range(Lr), Address:="", _
SubAddress:=cl
Exit Sub
ok:
Worksheets(Lf).Hyperlinks.Add Anchor:=Worksheets(Lf).Range(Lr), Address:="", _
SubAddress:=cl, TextToDisplay:=T
End Sub