Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

lien hypertexte dynamique

casper62110

XLDnaute Nouveau
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!

XLDnaute Barbatruc
Re : lien hypertexte dynamique

Bonsoir casper62110, le Forum,

Voici une façon de faire...

Dans le module de code de ta feuille :

Code:
[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,
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…