Lien Hypertexte glissant

Résolu/Fermé

nathan01983 Messages postés 345 Date d'inscription lundi 12 octobre 2009 Statut Membre Dernière intervention 5 décembre 2024 - 22 mars 2021 à 12:41
nathan01983 Messages postés 345 Date d'inscription lundi 12 octobre 2009 Statut Membre Dernière intervention 5 décembre 2024 - 1 avril 2021 à 18:22

Bonjour à toutes et à tous

Je vous expose ma demande

J'ai un classeur excel dans lequel j'ai une série d'onglet qui ne fait que s’agrandir pour le moment 32 onglets ... mais de plus en plus bientôt.
Dans le premier onglet que j'ai appelé "Liste", je retrouve la liste de mes onglets via un bouton VBA (la liste se met donc à jour dès que j'ajoute un onglet et que je clic sur mon bouton). Jusque là ca va.

Ce que j'aimerai faire maintenant c'est créer un lien hypertexte qui m'enverrai vers l'onglet.

Je vous joint mon fichier. Ca sera peut etre plus clair

https://www.cjoint.com/c/KCwlO0HlRQX

Merci d'avance

A voir également:

Lien Hypertexte glissant
Lien url - Guide
Créer un lien pour partager des photos - Guide
Verifier un lien - Guide
Lien de rajout pour bara facebook - Forum Webmastering
Renommer un lien hypertexte ✓ - Forum Bugs et suggestions

2 réponses

Réponse 1 / 2

via55 Messages postés 14502 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 9 décembre 2024 2 736
22 mars 2021 à 13:56

Bonjour Nathan

Modifie ainsi ta macro pour créer un lien hypertexte pour chaque onglet

Sub Snamelist()
Dim i As Integer

    Range("B5").Select

    For i = 2 To Sheets.Count
          ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name
        ActiveCell.Offset(1, 0).Select
    Next i

End Sub

Cdlmnt
Via

nathan01983 Messages postés 345 Date d'inscription lundi 12 octobre 2009 Statut Membre Dernière intervention 5 décembre 2024 10
1 avril 2021 à 11:56

Bonjour

Encore merci pour ton aide, j'aimerai savoir s'il est possible de faire la meme chose non pas en ligne mais en colonne ?

Cordialement

via55 Messages postés 14502 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 9 décembre 2024 2 736 > nathan01983 Messages postés 345 Date d'inscription lundi 12 octobre 2009 Statut Membre Dernière intervention 5 décembre 2024
1 avril 2021 à 15:56

Bonjour

Il suffit dans la macro de décaler chaque fois d'une colonne au lieu d'une ligne, donc remplacer
ActiveCell.Offset(1, 0).Select
par ActiveCell.Offset(0,1).Select

Cdlmnt
Via

nathan01983 Messages postés 345 Date d'inscription lundi 12 octobre 2009 Statut Membre Dernière intervention 5 décembre 2024 10 > via55 Messages postés 14502 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 9 décembre 2024
1 avril 2021 à 18:22

Tu déchires tout MERCIIIIIIIIIIIIIIIIIIIII

Réponse 2 / 2

nathan01983 Messages postés 345 Date d'inscription lundi 12 octobre 2009 Statut Membre Dernière intervention 5 décembre 2024 10
22 mars 2021 à 14:06

MERCI BEAUCOUP !!!!!! C'est encore mieux que ce que j'espérais

Discussions similaires

"Aucune application permettant d'ouvrir cette URL"

lien copié

renommer un lien internet

comment changer le nom d'un lien?

Renommer un lien