XL 2010 liens hypertexte

submarine22

XLDnaute Junior
Bonjour à tout le forum.
je savoir si il est possible de créer un lien hypertexte d'une façon automatique vers l 'onglet qui est renseigné dans la cellule .
dans le fichier joint, il s'agit des cellule à partir de B8 sur la feuille "calendrier des dates" cette colonnes s' incrémente automatiquement du noms des onglets lorsqu'ils sont crées et je souhaiterais si possible que dans le même temps la cellule crée un lien hypertexte vers cet onglet.
Merci par avance de vos réponses.
 

Pièces jointes

  • OCTOBRE 2019 CLAUDE MONET.xls
    714.5 KB · Affichages: 23

danielco

XLDnaute Accro
Tu peux avoir un visuel semblable à celui obtenu par ma macro en ajoutant le nom d'affichage :

VB:
'La macro se déclenche lorsque la feuille "calendrier des dates" est activée
Private Sub Worksheet_Activate()
Dim n&
'Effacemment de la cellule B8 à la dernière cellule de la colonne B
'(B8 est la premmière cellule de dates)
Range("B8:B" & Rows.Count) = ""
'Boucle sur les feuilles de l'index 3 au nombre de feuilles (ici 24)
'l'index est le numéro d'ordre des feuilles
For n = 3 To Sheets.Count
    'Le but est de mettre en colonne B (2) une formule du type =LIEN_HYPERTEXTE("#'01 octobre 2019'!A1")
    'pour aller en A1 de la feuille "01 octobre 2019". Le "#" fait partie de la syntaxe Excel de la fonction
    'LIEN_HYPERTEXTE. La ligne met la formule en B8 pour la feuille d'index 3, B9 pour la
    'feuille d'index 4 etc.
    Cells(n + 5, 2) = "=HYPERLINK(""#'" & Sheets(n).Name & "'!A1"",""" & Sheets(n).Name & """)"
  Next
End Sub

Daniel
 

Discussions similaires