vb6 hyperlien de feuille à feuilleRésolu

Question

Bonjour &#224; tous !!!
Je d&#233;veloppe un programme en utilisant Excel pour faire des tableaux de synth&#232;se et je voudrais pouvoir &#224; partir du tableau principal, en cliquant sur la cat&#233;gorie, aller dans la feuille qui contient le d&#233;tail

Par exemple dans mon tableau principal quand je clique sur la cellule contenant la valeur "Founisseurs"

Qu'il soit possible d'aller directement &#224; la feuille du m&#234;me classeur nomm&#233; "Fournisseurs"

Malgr&#233; les recherches sur le site et les anciens Codes et Forums j'ai du mal &#224; saisir la manip

Merci d'avance

Batao

mrdep1978 · Accepted Answer

Salut,

Dans Excel, tu vas dans le menu Ins&#233;rer, Lien Hypertexte et tu te laisses guider.

En VBA, &#231;a donne qqe chose du genre :

Sub Macro1()
Dim l_Sheet As Worksheet
Dim li_ligne As Integer
Dim li_col As Integer
li_col = 1
li_ligne = 1
'Efface la premiere colonne
Feuil1.Columns(1).Clear
' Parcourt toutes les feuilles du classeur
For Each l_Sheet In ThisWorkbook.Worksheets
    If l_Sheet.Name <> "Feuil1" Then
      'Place le lien dans la colonne 1 de la Feuille 1 sur la ligne en cours
        Feuil1.Hyperlinks.Add Anchor:=Feuil1.Cells(li_ligne, li_col), Address:="", SubAddress:= _
                l_Sheet.Name & "!A1", TextToDisplay:=l_Sheet.Name
        li_ligne = li_ligne + 1
    End If
Next l_Sheet
End Sub

batao · Answer

je suis en vb6 mais je pense que c bon

J'&#233;tais parti dans cette voie l&#224;

Merci beaucoup
batao

Vb6 hyperlien de feuille à feuille

2 réponses

Discussions similaires