lien hypertexte dynamique

[casper62110]

Bonjour
Je souhairais creer un code pour que lorsque par exemple en a1 j ai le chifre 114 en a2 le chiffre 195 ....
Que une case lien en b1 ou b2 m accompgne a la page corespondante 114 ou 195

en clair lorque je clique en b il m envoi a la page du numero indique an a

"Mes page porte comme nom les numero 1114 195 ....)
merci par avance

 

[myDearFriend!]

Re : lien hypertexte dynamique

Bonsoir casper62110, le Forum,

Voici une façon de faire...

Dans le module de code de ta feuille :

[COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE LA FEUILLE[/I][/B][/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] Worksheet_Change([COLOR=NAVY]ByVal[/COLOR] Target [COLOR=NAVY]As[/COLOR] Range)
    [COLOR=NAVY]If Not[/COLOR] Application.Intersect(Target, Columns(1)) [COLOR=NAVY]Is Nothing Then[/COLOR]
        Hyperlinks.Add Anchor:=Target.Offset(0, 1), Address:="", SubAddress:= _
            "'" & Target.Text & "'!A1", TextToDisplay:="Aller à la feuille " & Target.Text
    [COLOR=NAVY]End If
End Sub[/COLOR]

Tu saisis ensuite les noms des onglets dans la colonne A, tu obtiens automatiquement les liens en colonne B.

Cordialement,