XL 2013 (resolu) récuperer nom onglet dans cellule

[MASSJIPE]

Bonjour le forum
Comment récupérer le nom de chaque onglet dans une feuille de synthèse
Soit formule ou autre
Fichier en Pj
D'avance merci

 

[djidji59430]

Bonjour,

Pas bien compris.
Comme ça, peut-être ?

 

[cp4]

Bonjour,

une réponse ICI

Bonne journée

 

[Noel Bedard]

Bonjour,

Peut-être ceci

=DROITE(CELLULE("nomfichier";A1);NBCAR(CELLULE("nomfichier";A1))-TROUVE("]";CELLULE("nomfichier";A1)))

 

[kingfadhel]

Bonjour, le forum,
@MASSJIPE

Sub Recuperation()
Dim ws As Worksheet
c = 1
    For Each ws In ActiveWorkbook.Worksheets
       If ws.Name <> "SYNTHESE" Then

        With Sheets("SYNTHESE")
            .Cells(1, c) = ws.Name
            .Range(Cells(1, c), Cells(1, c + 2)).Merge:
            .Range(Cells(1, c), Cells(1, c + 2)).HorizontalAlignment = xlCenter
            .Range(Cells(1, c), Cells(1, c + 2)).Interior.Color = RGB(242, 242, 242)
        c = c + 3
        End With
        End If
    Next
End Sub

 

[kan3pz]

Hello !
Une solution peut-être

 

[Noel Bedard]

Sub Recuperation()
Dim ws As Worksheet
c = 1
    For Each ws In ActiveWorkbook.Worksheets
       If ws.Name <> "SYNTHESE" Then

        With Sheets("SYNTHESE")
            .Cells(1, c) = ws.Name
            .Range(Cells(1, c), Cells(1, c + 2)).Merge:
            .Range(Cells(1, c), Cells(1, c + 2)).HorizontalAlignment = xlCenter
            .Range(Cells(1, c), Cells(1, c + 2)).Interior.Color = RGB(242, 242, 242)
        c = c + 3
        End With
        End If
    Next
End Sub

Bonjour kingfadhel
Il faut Dimensionner C as integer je crois
Bonne journée

 

[zebanx]

Bonjour à tous,

En formule MATRICIELLE (CTRL + MAJ + ENTREE) et je l'utilises très régulièrement
Il suffit de copier la formule, la cellule B1 ici n'a aucune importance (pour l'exemple uniquement, la formule était dans cette cellule).

=SI(ESTERREUR(CNUM(STXT(CELLULE("Nomfichier";B1);TROUVE("]";CELLULE("nomfichier";B1))+1;32)));STXT(CELLULE("Nomfichier";B1);TROUVE("]";CELLULE("nomfichier";B1))+1;32);CNUM(STXT(CELLULE("Nomfichier";B1);TROUVE("]";CELLULE("nomfichier";B1))+1;32)))

++
zebanx

 

[MASSJIPE]

Bonjour Le forum
Merci à tous