Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion cookies
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

cookies

XLDnaute Occasionnel
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 :
Code: 
  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
 

Pièces jointes

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

Bonsoir cookies,

Essaie comme ceci:

Code: 
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.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
916
laurent950
S
  • Question Question
XL 2016 créer une liste sur le 2e onglet en cochant le 1er onglet
Réponses
3
Affichages
433
shitoryu
S
E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
233
escudo
E
A
  • Résolu(e)
Microsoft 365 Copier la même cellule de plusieurs onglets dans différentes colonnes
2
Réponses
23
Affichages
1 K
AlexiaC
A
  • Résolu(e)
XL 2016 Incrémenter des formules dans une feuille, en la copiant et la renommant en même temps
Réponses
9
Affichages
627
jgav
B
  • Question Question
XL 2016 Macro pour identifier un texte dans un tableau et appliquer une modification sur une cellule sur la même ligne
Réponses
5
Affichages
560
ChTi160
  • Résolu(e)
Autres Comment compter combien de cellules à la suite sont de même valeur ??
Réponses
11
Affichages
875
williamss
V
  • Résolu(e)
XL 2016 Facturier : Retour à la ligne sur la facture
2
Réponses
19
Affichages
1 K
Vermithor
V
S
  • Question Question
XL 2010 afficher les feuilles qui comporte une même partie de noms d'onglets
Réponses
6
Affichages
1 K
submarine22
S
D
  • Question Question
XL 2010 Màj automatique d'une formule suite à l'insertion d'une ligne
2
Réponses
25
Affichages
2 K
vgendron
N
  • Question Question
XL 2013 Comment insérer une ligne vide à chaque changement de valeur sur la colonne A
2
Réponses
16
Affichages
3 K
nacho31
N
J
  • Question Question
XL 2016 Chercher valeur dans plusieurs feuilles et recopier les lignes dans une seule feuille - Macro VBA
Réponses
1
Affichages
2 K
jo77
J
K
  • Question Question
Microsoft 365 Activation d'onglet en rapport avec l'encodage dans une ligne
Réponses
1
Affichages
541
eCHO
E
R
  • Question Question
Microsoft 365 VBA - rechercher une ligne en fonction de 2 critères sur 2 colonnes différentes
Réponses
9
Affichages
1 K
sylvanu
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
419
oguruma
M
  • Question Question
Microsoft 365 fusion automatique de plusieurs tableaux évolutifs sur différents onglet vers un tableau général récapitulatif
Réponses
5
Affichages
979
mitmit
M
A
  • Résolu(e)
XL 2016 Créer une liste verticale issue de plusieurs données à partir de la fonction Recherche V/H
Réponses
7
Affichages
673
arnoldbrice19
A
W
  • Question Question
XL 2019 Peupler une listbox à partir de plusieurs feuilles ayant un nom spécifique.
Réponses
7
Affichages
1 K
WG95
W
S
  • Résolu(e)
Microsoft 365 Effacer le contenu de cellule sur la même ligne d'une autre feuille
Réponses
6
Affichages
862
Robert
J
  • Question Question
XL 2010 importer plusieurs fichier txt dans le même classeur
Réponses
9
Affichages
2 K
Staple1600
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…