Insérer les noms d'onglets créés sur une même ligne les uns à la suite

[cookies]

Bonjour le forum !

Je cherche à adapter un code. Ce code a deux fonctionnalités qui fonctionnent très bien.

La première fonction me permet, à partir d'un onglet de le copier et de lui donner un nom particulier via une Box.
Ensuite le code permet d'insérer dans une feuille, le nom de l'onglet nouvellement créé avec un lien hypertexte vers cet onglet. Ces noms d'onglet dans des cellules sont insérés les uns à la suite des autres dans une même colonne.

Ma question est : comment faire pour que les noms d'onglet qui sont insérés les uns à la suite des autres ne soit plus de manière verticale dans une meme colonne mais insérés en ligne les uns à la suite des autres à partir d'une certaine cellule.
Je pense que la solution est dans cette ligne mais je ne sais pas l'écrire :

  fl.Hyperlinks.Add Anchor:=fl.Cells(1, .Column).Offset(derLigne), Address:="", SubAddress:=z & "!A1",

Je suis ouvert aux discussions.
Merci à tous d'avance pour vos réponses. Je joins le fichier.
Cookies

 

[Papou-net]

Re : Insérer les noms d'onglets créés sur une même ligne les uns à la suite

Bonsoir cookies,

Essaie comme ceci:

Private Sub CommandButton1_Click()
Dim z$, derColonne&, fl As Worksheet
    With Sheets("ONGLET POUR NOM ONGLET").Range("E1")
        Set fl = .Parent
        If IsEmpty(.Cells) Then derColonne = .Row - 1 Else derColonne = fl.Cells(1, fl.Columns.Count).End(xlToLeft).Column + 1
        Sheets("ONGLET A COPIER").Copy After:=Sheets(Sheets.Count)
N:      z = InputBox("Entrer le nom de l'onglet")
        If z <> "" Then
        ActiveSheet.Name = z
        On Error GoTo 0
        fl.Hyperlinks.Add Anchor:=fl.Cells(1, derColonne), Address:="", SubAddress:=z & "!A1", TextToDisplay:=z
        fl.Activate
        Else
            Application.DisplayAlerts = False
            ActiveSheet.Delete
            .Parent.Activate
            Application.DisplayAlerts = True
        End If
    End With
End Sub

Cordialement.

 

[cookies]

Re : Insérer les noms d'onglets créés sur une même ligne les uns à la suite

Bonjour,

Rapidité, efficacité...tout simplement...merci.
Bonne journée !

cookies