Créer un lien hypertext

Bonjour

je réalise un projet

mais je rencontre un nouveau problème

dans plusieurs de mes macros,

on termine en notant dans mon tableau le mot "créée" lorsque l'onglet est fait.

je nomme l'onglet avec le nom saisie en Colonne 2 et ligne "Der_Lig" sa c 'est nickel

ActiveSheet.Name = .Cells(Der_Lig, 2).Value 'on donne le nom à la nouvelle feuille

.Range("J" & Der_Lig).Value = "Créée"

mais au lieu de rajouté le mot "créée", je souhaiterai créer un lien hypertexte à la place avec le nom de l'onglet créé

ActiveSheet.Hyperlinks.Add Anchor:=Range("B" & i), Address:="", SubAddress:= _

"'" & ws.Name & "'!A1", TextToDisplay:=ws.Name

J'ai trouvé cette ligne de code qui fonctionne pour me créer une liste de mes onglets avec un lien mais je n'arrive pas à la modifier pour remplacer le mot créée par le nom de l onglet en un lien hypertexte

Merci encore de votre aide

Bonjour lolo4428 le forum

bah un peu normal que cela ne marche pas!!

tu as mis en début de création activesheet, hors il faut le ci-dessous

et aussi .cells("B",de_lig) ce n'est pas bon c'est .cells(de_lig,2) ou .cells(de_lig,"B")

bref voilà

a+

Papou

.Hyperlinks.Add Anchor:=.Cells(De_Lig, 12), Address:="", SubAddress:= _
                    "'" & .Cells(De_Lig, 2).Value & "'!A1", TextToDisplay:=.Cells(De_Lig, 2).Value