XL 2013 Liens hypertextes automatiques entre les cellules et les onglets de même nom

steuf999 · 5 Novembre 2015

Bonjour à tous,

J'ai beaucoup de mal avec la syntaxe Hyperlinks.Add
En effet, j'ai sur une feuille nommée "Liste" une liste en colonne A reprenant l'ensemble des feuilles de mon classeur :
Feuil1, Feuil2, Feuil3 , etc...
Je souhaiterais donc écrire une macro qui me permette d'automatiser les liens hypertextes entre la cellule contenant "Feuil1" en A12 et l'onglet Feuil1, etc.
Je vous joins un fichier si quelqu'un pouvait m'aider .

Merci d'avance

Stéphanie

DoubleZero · 5 Novembre 2015

Re : Liens hypertextes automatiques entre les cellules et les onglets de même nom

Bonjour, steuf999, le Forum,

Un essai, avec le code ci-après logé dans le module de l'onglet "Liste".

Code:

Private Sub Worksheet_SelectionChange(ByVal c As Range)
    If c.Column <> 1 Or c = "" Then Exit Sub
    On Error GoTo fin
    Sheets(c.Text).Activate
    Exit Sub
fin:     MsgBox "Onglet inexistant !"
End Sub

A bientôt

steuf999 · 6 Novembre 2015

Re : Liens hypertextes automatiques entre les cellules et les onglets de même nom

Merci !!! Ca marche c'est parfait !!

Papou-net · 6 Novembre 2015

Re : Liens hypertextes automatiques entre les cellules et les onglets de même nom

Bonjour Stéphanie, Chère 00, le Forum,

Si j'ai bien compris la demande, voici une solution globale:

Code:

Sub Macro3()
Dim Cel As Range

With Feuil4
  .Hyperlinks.Delete
  For Each Cel In .Columns(1).SpecialCells(xlCellTypeConstants)
    .Hyperlinks.Add Anchor:=Range(Cel.Address), Address:="", SubAddress:= _
        Cel.Value & "!A1", TextToDisplay:=Cel.Value
  Next
End With
End Sub

Cordialement.

steuf999 · 9 Novembre 2015

Re : Liens hypertextes automatiques entre les cellules et les onglets de même nom

Papou-net à dit:
Bonjour Stéphanie, Chère 00, le Forum,

Si j'ai bien compris la demande, voici une solution globale:

Code:

Sub Macro3() Dim Cel As Range With Feuil4 .Hyperlinks.Delete For Each Cel In .Columns(1).SpecialCells(xlCellTypeConstants) .Hyperlinks.Add Anchor:=Range(Cel.Address), Address:="", SubAddress:= _ Cel.Value & "!A1", TextToDisplay:=Cel.Value Next End With End Sub

Cordialement.

Merci pour cette autre solution ! Par contre il faudrait que les liens se créent à partir de la ligne 12 et non pas au dessus car j'ai d'autre données... comment le spécifier ??

Papou-net · 10 Novembre 2015

Re : Liens hypertextes automatiques entre les cellules et les onglets de même nom

Bonjour steuf999,

Par contre il faudrait que les liens se créent à partir de la ligne 12 et non pas au dessus car j'ai d'autre données...

Il suffit de modifier la plage de recherche comme ceci:

Code:

Dim Cel As Range

With Feuil4
  .Hyperlinks.Delete
  For Each Cel In .Range("A12:A" & Rows.Count).SpecialCells(xlCellTypeConstants)
    .Hyperlinks.Add Anchor:=Range(Cel.Address), Address:="", SubAddress:= _
        Cel.Value & "!A1", TextToDisplay:=Cel.Value
  Next
End With
End Sub

Cordialement.

PS: Bises à toi, DoubleZero, si tu passes par ici.

DoubleZero · 10 Novembre 2015

Re : Liens hypertextes automatiques entre les cellules et les onglets de même nom

Bonjour, steuf999, Papou-net , le Forum,

Papou-net à dit:
... PS: Bises à toi, DoubleZero, si tu passes par ici.

Bise double, Papou-net et...

...A bientôt

steuf999 · 2 Décembre 2015

Re : Liens hypertextes automatiques entre les cellules et les onglets de même nom

Papou-net à dit:
Bonjour steuf999,

Il suffit de modifier la plage de recherche comme ceci:

Code:

Dim Cel As Range With Feuil4 .Hyperlinks.Delete For Each Cel In .Range("A12:A" & Rows.Count).SpecialCells(xlCellTypeConstants) .Hyperlinks.Add Anchor:=Range(Cel.Address), Address:="", SubAddress:= _ Cel.Value & "!A1", TextToDisplay:=Cel.Value Next End With End Sub

Cordialement.

PS: Bises à toi, DoubleZero, si tu passes par ici.

Longtemps après désolée !

Mais ca ne marche pas ! J'ai une erreur d'exécution 5 donc je crois qu'il doit y avoir un truc pas dans la bonne langue mais je ne sais pas où! Un peu d'aide ?

Papou-net · 2 Décembre 2015

Re : Liens hypertextes automatiques entre les cellules et les onglets de même nom

Bonjour steuf999,

Chez moi, ça fonctionne sans erreur. D'ailleurs, je ne vois pas d'anomalie notoire dans le code.

Peut-être y-a-t-il un élément qui provoque le dysfonctionnement dans ton classeur.

Je te joins le fichier exemple en PJ pour vérifier chez toi.

Cordialement.

steuf999 · 2 Décembre 2015

Re : Liens hypertextes automatiques entre les cellules et les onglets de même nom

J'ai enlevé le TextToDisplay:=Cel.Value est ça a marché :/

Papou-net · 2 Décembre 2015

Re : Liens hypertextes automatiques entre les cellules et les onglets de même nom

steuf999 à dit:
J'ai enlevé le TextToDisplay:=Cel.Value est ça a marché :/

RE:

Pour info, sous quelle version d'Excel es-tu?

A +

Cordialement.

XL 2013 Liens hypertextes automatiques entre les cellules et les onglets de même nom

steuf999

XLDnaute Nouveau

Pièces jointes

DoubleZero

XLDnaute Barbatruc

steuf999

XLDnaute Nouveau

Papou-net

XLDnaute Barbatruc

steuf999

XLDnaute Nouveau

Papou-net

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

steuf999

XLDnaute Nouveau

Papou-net

XLDnaute Barbatruc

Pièces jointes

steuf999

XLDnaute Nouveau

Papou-net

XLDnaute Barbatruc

Discussions similaires