Lien Hypertexte glissant

Résolu

nathan01983 Messages postés 30 Date d'inscription Statut Membre Dernière intervention -
nathan01983 Messages postés 30 Date d'inscription Statut Membre Dernière intervention - 1 avr. 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

Afficher la suite

2 réponses

Réponse 1 / 2

Meilleure réponse
La meilleure réponse est la réponse qui a été validée par nos équipes.
via55 Messages postés 14391 Date d'inscription Statut Membre Dernière intervention 2 759
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
2
1. nathan01983 Messages postés 30 Date d'inscription Statut Membre Dernière intervention 10
  
  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
  
  0
  1. via55 Messages postés 14391 Date d'inscription Statut Membre Dernière intervention 2 759 > nathan01983 Messages postés 30 Date d'inscription Statut Membre Dernière intervention
    
    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
    
    0
  2. nathan01983 Messages postés 30 Date d'inscription Statut Membre Dernière intervention 10 > via55 Messages postés 14391 Date d'inscription Statut Membre Dernière intervention
    
    Tu déchires tout MERCIIIIIIIIIIIIIIIIIIIII
    
    0
Réponse 2 / 2
nathan01983 Messages postés 30 Date d'inscription Statut Membre Dernière intervention 10

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

Lien Hypertexte glissant

2 réponses

Discussions similaires

Newsletters