lien hypertexte avec onglets

[archi]

Bonjour,

J'ai dans un tableau une liste de noms de format texte "DUPONT L."
J'aimerai créer un lien hypertexte à partir de ces cellule texte pour aller dans les onglets (cellule A1) correspondant du même nom !!

Possible ou pas ? (ci-joint un exemple)
si oui, quel est la procédure à suivre ?

merci
bye

 

[tototiti2008]

Re : lien hypertexte avec onglets

Bonjour archi,

un essai :

 

[BOISGONTIER]

Re : lien hypertexte avec onglets

Bonjour,

Le sommaire est mis à jour dynamiquement si on ajoute des onglets.

Private Sub Worksheet_Activate()
    Range("C6").Select
    Range(ActiveCell, [C65000].End(xlUp)).ClearContents
    For i = 2 To Sheets.Count
      nf = Sheets(i).Name
      ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & _
         nf & "'" & "!A1", TextToDisplay:=nf
      ActiveCell.Offset(1, 0).Select
    Next i
End Sub

JB

 

[archi]

Re : lien hypertexte avec onglets

Merci à vous deux
bye

 

[archi]

Re : lien hypertexte avec onglets

Bonsoir,

je viens d'insérer votre macro dans mon fichier test, cependant j'ai quelques petit bug que je n'arrive pas a modifier
pouvez-vous m'aider ? (ci-joint le fichier)
merci
bye

 

[JCGL]

Re : lien hypertexte avec onglets

Bonjour à tous,

Peux-tu essayer avec :

Sub Liens()
Dim C As Range
For Each C In ActiveSheet.Range("BE7:BE" & ActiveSheet.Range("BE65536").End(xlUp).Row)
ActiveSheet.Hyperlinks.Add Anchor:=C, Address:="", SubAddress:= _
"'" & C.Value & "'!A1"
Next C
[COLOR=Blue][B]Columns(57).Font.Size = 8[/B][/COLOR]
Application.ScreenUpdating = True
End Sub

A+

 

[archi]

Re : lien hypertexte avec onglets

ok merci,

peux tu voir également mes autres petit bug sur les feuilles "Perf et contre" et "Tables" ?

bye

 

[archi]

Re : lien hypertexte avec onglets

personne pour m'aider ?
bye

 

[JCGL]

Re : lien hypertexte avec onglets

Bonjour à tous,

Peux-tu tester ?

A+

 

[archi]

Re : lien hypertexte avec onglets

merci JCGL,

malheureusement, y'a toujours un bug en feuille "Tables" (colonnes Z et AA) lorsque l'on supprime un joueur ?
ça doit venir de la macro:

Sub RemplacerJoueur()
Load UserForm1
UserForm1.Show

bye

 

[archi]

Re : lien hypertexte avec onglets

C'est bon JCGL,

après analyse du code UserForm1, j'ai trouvé le bug:

il suffit de modifier la valeur 25 par 27, dans la ligne

With Sheets("Tables")
.Range(.Cells(LigneTables, 2), .Cells(LigneTables, 27)) _
.Delete shift:=xlShiftUp

bye