Mettre le nom de la feuille, dans une cellule

[maval]

Bonjour

Je recherche la formule ou le code VBA pour mettre le nom de la feuille, dans une cellule.

Je vous remercie par avance de votre aide

Cordialement

Maval

 

[titiborregan5]

Re : Mettre le nom de la feuille, dans une cellule

Bonjour, pour le mettre en A1

 Range("a1") = ActiveSheet.Name

 

[Orodreth]

Re : Mettre le nom de la feuille, dans une cellule

Bonjour,

Pas la bonne version d'Excel, donc pas accès à ton fichier.

En 2003, le code VBA fait ce que tu demandes:

Sheets("Feuil1").Range("A1").value = Sheets("Feuil1").Name

Ca met le nom de la feuille (je dis bien le nom de la feuille, et non celui de l'objet VBA) dans la cellule A1.

Code adaptable facilement, mais si tu as besoin, n'hésite pas.

Cordialement,

 

[Modeste geedee]

Re : Mettre le nom de la feuille, dans une cellule

Bonsour®
dans le module de feuille

Private Sub Worksheet_Activate()
[A1] = ActiveSheet.Name
End Sub

 

[Efgé]

Re : Mettre le nom de la feuille, dans une cellule

Bonjour maval
Tout dépend de ce que tu désire.
Peut être

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Range("$a$1").Value = Sh.Name
End Sub

A metre dans le ThisWorkbook
Cordialement

EDIT Bonjour Modeste geedee, Orodreth

 

[maval]

Re : Mettre le nom de la feuille, dans une cellule

Bonjour titiborregan5, Orodreth, Modeste geedee, Efgé

Je vous remercie beaucoup Nickel et vous souhaite une bonne journée

Maval

 

[Dull]

Re : Mettre le nom de la feuille, dans une cellule

Salut Maval, titiborregan5, Orodreth, le Forum

En Formule cela donnerait, par exemple en A1

=STXT(CELLULE("filename";$A$1);TROUVE("]";CELLULE("filename";$A$1))+1;255)

EDIT: Salut FG🙂, MG🙂 Moietmaparesse...😛

Bonne Journée

 

[maval]

Re : Mettre le nom de la feuille, dans une cellule

Re,

Sur le code VBA de Efgé, Est-il possible de régler sur des onglets bien précis, c'est a dire exemple: du 2éme au 13éme onglet, ou les onglet qui porte le nom d'un mois "Janvier, février ect...."

Merci d'avance

@+

Maval

 

[Orodreth]

Re : Mettre le nom de la feuille, dans une cellule

Re,

En reprenant le code d'Efgé:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Select Case Sh.Name
    Case "Janvier"
        Sh.Range("$a$1").Value = "01 - " & Sh.Name
    Case "Février"
        Sh.Range("$a$1").Value = "02 - " & Sh.Name
    Case "Mars"
        Sh.Range("$a$1").Value = "03 - " & Sh.Name
    Case "Avril"
        Sh.Range("$a$1").Value = "04 - " & Sh.Name
    Case "Mai"
        Sh.Range("$a$1").Value = "05 - " & Sh.Name
    Case "..."

    Case else
End Select
End Sub

 

[Efgé]

Re : Mettre le nom de la feuille, dans une cellule

Re à tous, Salut Dull 😀
Il est toujours difficile de s'indexer sur le numéro de la feuille (si l'utilisateur re-tri les onglets, tu es "marron") , mais bon...

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Index > 1 And Sh.Index < 13 Then Sh.Range("$a$1").Value = Sh.Name
End Sub

Cordialement

 

[Efgé]

Re : Mettre le nom de la feuille, dans une cellule

Re
Sans les numéros d'index (mais en partant du principe élémentaire du bon "OrtOGraf" des noms de feuilles:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Dim T As String
    For i = 1 To 12
        T = T & ";" & Format(i, "mmmm")
    Next i
    If InStr(T, Sh.Name & ";") > 0 Then Sh.Range("$a$1").Value = Sh.Name
End Sub

Cordialement

 

[maval]

Re : Mettre le nom de la feuille, dans une cellule

Re Efgé,

Sur le Post11 sa ne fonctionne pas? je joint un fichier exemple

@+

Max

 

[maval]

Re : Mettre le nom de la feuille, dans une cellule

Re Orodreth

Est-il possible avec se code d'ajouter l'année en cour?

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Select Case Sh.Name
Case "Janvier"
Sh.Range("$a$1").Value = "01 - " & Sh.Name

@+ et merci

Maval

 

[Orodreth]

Re : Mettre le nom de la feuille, dans une cellule

Re,

Rajout de l'année

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Select Case Sh.Name
    Case "Janvier"
        Sh.Range("$a$1").Value = "01 - " & Sh.Name & " " & cstr(YEAR(Date() )

Cordialement,

 

[vgendron]

Re : Mettre le nom de la feuille, dans une cellule

Bonjour,
sinon, sans passer par du VBA: tu as le chemin d'accès complet jusqu'au nom de la feuille

=CELLULE("nomfichier")

il faut que le classeur ait été enregistré pour avoir un résultat
et plus directement:
=nomfeuille()

J'oubliais. petit détail..
dans la version Excel de base, ces fonctions n'existent pas..;-)
il faut installer le package morefunc
Télécharger MOREFUNC (Macro complémentaire EXCEL) (gratuit)