[Résolu] recupérer le nom d'un onglet dans un cellule

[Lone-wolf]

Bonsoir à tous,

dans le fichier joint, j'aimerais adapter un code qui me permettrai se récupérér le nom d'un nouvel onglet après l'avoir renommé. Ici j'ai déjà créé et renommé trois onglets manuellement, il faudrait que la ligne de code parte de la cellule A7.


A+ 😎


Amicalement
Lone-wolf

 

[Paritec]

Re : recupérer le nom d'un onglet dans un cellule

Bonjour Lone wolf le forum
la cellule A7 de la page ????????????????????????
aucune explications dans le fichier alors sortez les boules de cristal
a+
papou😱

 

[Paritec]

Re : recupérer le nom d'un onglet dans un cellule

Re Lone wolf le forum
ou alors un truc du style dans le fichier joint
a+
papou😱

 

[JCGL]

Re : recupérer le nom d'un onglet dans un cellule

Bonjour à tous,

Un code à adapter pour "parfaire ta formation" :

Option Explicit


Sub ListeFeuilles()
    Dim Feuille As Worksheet
    Dim Plage As String
    Plage = ("Menu!C2") & ":" & Range("Menu!C2").End(xlDown).Address
    Range(Plage).Clear
    Range("Menu!C2").Select
    For Each Feuille In ActiveWorkbook.Sheets
        ActiveCell.Offset(1, 0).Select
        ActiveCell.Value = Feuille.Name
        ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Feuille.Name & "!A1", TextToDisplay:=Feuille.Name
    Next Feuille
End Sub

A + à tous

 

[Lone-wolf]

Re : recupérer le nom d'un onglet dans un cellule

Bonsoir Paritect, JCGL,

@ Paritec, désolé d'avoir omis de préciser que c'était dans la feuille Data. Comme tu peux le voir la liste s'arrête à A6.

@ JC, malheureusement le code recrée la liste des noms déjà présents. Le résultat que j'aimerais avoir c'est à chaque nouvelle feuille et seulement une fois rennomée:

Data!A7 = Nouvelle feuille 1
Data!A8 = Nouvelle feuille 2

Et ainsi de suite.


A+ 😎


Amicalement
Lone-wolf



Et non toutes ensembles comme l'exécute le code.

 

[Lone-wolf]

Re : recupérer le nom d'un onglet dans un cellule

Rebonsoir Messieurs,

et bien la solution était assez simple en définitive.

Private Sub Workbook_SheetBeforeDoubleClick _
(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

Dim Est As Boolean, ligne As Long

ligne = Sheets("Data").Range("A65536").End(xlUp).Row + 1
Sheets("Data").Cells(ligne, 1) = Sh.Name

Il fallait juste ces deux lignes:

ligne = Sheets("Data").Range("A65536").End(xlUp).Row + 1
Sheets("Data").Cells(ligne, 1) = Sh.Name

Merci en tout cas d'avoir répondu.



Amicalement
Lone-wolf

 

[Paritec]

Re : [Résolu] recupérer le nom d'un onglet dans un cellule

Re Lone Wolf le forum
Si tu es sur d'avoir trouvé c'est parfait, mais si tu lis ta macro, elle va te rajouter une ligne chaque fois que tu vas double cliquer sur une cellule de la feuille??????
alors si c'est ce que tu veux parfait pour nous
a+
papou😱

 

[Lone-wolf]

Re : [Résolu] recupérer le nom d'un onglet dans un cellule

Bonsoir Paritec,

c'est tout à fait exacte ce que tu dit; pour parer à ce problème j'ai rajouter de nouvelles lignes.
Je ne sais pas si c'est codé proprement, mais je n'ai plus ce problème. Voici le code:

Private Sub Workbook_SheetBeforeDoubleClick _
(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

Dim Est As Boolean, ligne As Long
If Intersect(Target, Range("N1")) Is Nothing Then: Exit Sub
If Target.Address = "$N$1" Then
Sh.Visible = False
Sheets("Data").Activate
ligne = Sheets("Data").Range("A65536").End(xlUp).Row + 1
Sheets("Data").Cells(ligne, 1) = Sh.Name
If Sh.[B2].Value = "" Then Sheets("Data").Cells(ligne, 1) = ""
Sh.[B2].Value = ""
[A2].Select
Else
For Each Sh In Sheets
If Sh.Name <> "Data" And Sh.Name = Target Then
Sh.[A1] = "Data"
Est = True
Sh.Activate
Exit Sub
End If
Next
If Est = False Then Target = ""
End If
End Sub

A+ 😎

Amicalement
Lone-wolf

 

[Paritec]

Re : [Résolu] recupérer le nom d'un onglet dans un cellule

bonjour Lone Wolf le forum
pour moi c'est pas bon et bien trop compliqué !!
une simple macro dans un module avec la reconstruction pure et simple de la liste à chaque activation de feuille est 100 fois préférable.
mais j'ai déjà remarqué que tu aimes te compliqué la vie alors si pour toi c'est bon pas de soucis pour moi.
La macro de JC te composait même les liens hypertexte !!! et la mienne te reconstruisait la liste sans lien mais bon
bonne soirée
a+
papou😱