Mettre le nom de la feuille, dans une cellule

T

titiborregan5

XLDnaute Accro

• 25 Avril 2013

• #2

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

Bonjour, pour le mettre en A1

Code:

 Range("a1") = ActiveSheet.Name

 

Vote positif 0 Vote négatif

O

Orodreth

XLDnaute Impliqué

• 25 Avril 2013

• #3

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,

 

Dernière édition: 25 Avril 2013

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 25 Avril 2013

• #4

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

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 25 Avril 2013

• #5

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

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

VB:

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

 

Dernière édition: 25 Avril 2013

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 25 Avril 2013

• #6

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 25 Avril 2013

• #7

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

Salut Maval, titiborregan5, Orodreth, le Forum

En Formule cela donnerait, par exemple en A1

Code:

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

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

Bonne Journée

 

Dernière édition: 25 Avril 2013

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 25 Avril 2013

• #8

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

 

Vote positif 0 Vote négatif

O

Orodreth

XLDnaute Impliqué

• 25 Avril 2013

• #9

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

Re,

En reprenant le code d'Efgé:

Code:

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

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 25 Avril 2013

• #10

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...

VB:

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

 

Dernière édition: 25 Avril 2013

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 25 Avril 2013

• #11

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:

VB:

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 25 Avril 2013

• #12

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

 

Pièces jointes

• Classeur2999.xlsm

  13.2 KB · Affichages: 41

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 25 Avril 2013

• #13

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

Cliquez pour agrandir...

@+ et merci

Maval

 

Vote positif 0 Vote négatif

O

Orodreth

XLDnaute Impliqué

• 25 Avril 2013

• #14

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

Re,

Rajout de l'année

Code:

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,

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 25 Avril 2013

• #15

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)

 

Dernière édition: 25 Avril 2013

Vote positif 0 Vote négatif