Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Nom Feuille dans cellule

Nom Feuille dans cellule

5 réponses
Avatar
Shewy du 80 !!
Bonjour

Est-il possible de mettre dans une feuille nmé 'Récap'

Les noms des feuilles précédentes.

Exp:
J'ai 20 Sheets, donc les nom sont dynamiq.
je les appel donc, non pas par le nom mais par leur num (sheet(1).select)

Dans ma feuille récap, en A1 je souhaiterai mettre une formule de calcul de
ce type :

=Sheets(1).name

Avez vous une idée ??

Merci !!!!!!!!!!!!!!!!!

--
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ChrisV
Bonjour Shewy du 80 !!,

Sub ListFeuil()
On Error Resume Next
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
Sheets("Récap").Delete
Sheets.Add(Before:=Sheets(1)).Name = "Récap"
[A1] = "Liste des onglets du classeur : " & ActiveWorkbook.Name
With Selection.Font
.Name = "Arial"
.Size = 12
End With
Selection.Font.Bold = True
For i = 2 To Sheets.Count
Sheets("Récap").Cells(i, 1).Value = Sheets(i).Name
Next i
End Sub


ChrisV


"Shewy du 80 !!" <not> a écrit dans le message de
news:
Bonjour

Est-il possible de mettre dans une feuille nmé 'Récap'

Les noms des feuilles précédentes.

Exp:
J'ai 20 Sheets, donc les nom sont dynamiq.
je les appel donc, non pas par le nom mais par leur num (sheet(1).select)

Dans ma feuille récap, en A1 je souhaiterai mettre une formule de calcul
de

ce type :

=Sheets(1).name

Avez vous une idée ??

Merci !!!!!!!!!!!!!!!!!

--





Avatar
Shewy du 80 !!
Ok
mais en ne passant pas par une macro mais une simple formule dans la cellule
?

"ChrisV" a écrit dans le message de
news:
Bonjour Shewy du 80 !!,

Sub ListFeuil()
On Error Resume Next
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
Sheets("Récap").Delete
Sheets.Add(Before:=Sheets(1)).Name = "Récap"
[A1] = "Liste des onglets du classeur : " & ActiveWorkbook.Name
With Selection.Font
.Name = "Arial"
.Size = 12
End With
Selection.Font.Bold = True
For i = 2 To Sheets.Count
Sheets("Récap").Cells(i, 1).Value = Sheets(i).Name
Next i
End Sub


ChrisV


"Shewy du 80 !!" <not> a écrit dans le message de
news:
Bonjour

Est-il possible de mettre dans une feuille nmé 'Récap'

Les noms des feuilles précédentes.

Exp:
J'ai 20 Sheets, donc les nom sont dynamiq.
je les appel donc, non pas par le nom mais par leur num
(sheet(1).select)



Dans ma feuille récap, en A1 je souhaiterai mettre une formule de calcul
de

ce type :

=Sheets(1).name

Avez vous une idée ??

Merci !!!!!!!!!!!!!!!!!

--









Avatar
Clément Marcotte
Bonjour

sub lesnomsencolonnea()
for i = 1 sheets.count
if sheets(i) <> "Récap" then
sheets("Récap").cells(i,1).value = sheets(i).name
end if
next
end sub


"Shewy du 80 !!" <not> a écrit dans le message de
news:
Bonjour

Est-il possible de mettre dans une feuille nmé 'Récap'

Les noms des feuilles précédentes.

Exp:
J'ai 20 Sheets, donc les nom sont dynamiq.
je les appel donc, non pas par le nom mais par leur num
(sheet(1).select)


Dans ma feuille récap, en A1 je souhaiterai mettre une formule de
calcul de

ce type :

=Sheets(1).name

Avez vous une idée ??

Merci !!!!!!!!!!!!!!!!!

--





Avatar
ChrisV
Dans un module, la fonction pers. suivante:

Function nomFeuil(index) As String
nomFeuil = Sheets(index).Name
End Function

Dans la feuille Récap:
=nomFeuil(1)


ChrisV


"Shewy du 80 !!" <not> a écrit dans le message de
news:%
Ok
mais en ne passant pas par une macro mais une simple formule dans la
cellule

?

"ChrisV" a écrit dans le message de
news:
Bonjour Shewy du 80 !!,

Sub ListFeuil()
On Error Resume Next
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
Sheets("Récap").Delete
Sheets.Add(Before:=Sheets(1)).Name = "Récap"
[A1] = "Liste des onglets du classeur : " & ActiveWorkbook.Name
With Selection.Font
.Name = "Arial"
.Size = 12
End With
Selection.Font.Bold = True
For i = 2 To Sheets.Count
Sheets("Récap").Cells(i, 1).Value = Sheets(i).Name
Next i
End Sub


ChrisV


"Shewy du 80 !!" <not> a écrit dans le message de
news:
Bonjour

Est-il possible de mettre dans une feuille nmé 'Récap'

Les noms des feuilles précédentes.

Exp:
J'ai 20 Sheets, donc les nom sont dynamiq.
je les appel donc, non pas par le nom mais par leur num
(sheet(1).select)



Dans ma feuille récap, en A1 je souhaiterai mettre une formule de
calcul



de
ce type :

=Sheets(1).name

Avez vous une idée ??

Merci !!!!!!!!!!!!!!!!!

--













Avatar
Shewy du 80 !!
Trop COOL !!!!!!!

Merci BOCOU !!!!!!!


"ChrisV" a écrit dans le message de
news:
Dans un module, la fonction pers. suivante:

Function nomFeuil(index) As String
nomFeuil = Sheets(index).Name
End Function

Dans la feuille Récap:
=nomFeuil(1)


ChrisV


"Shewy du 80 !!" <not> a écrit dans le message de
news:%
Ok
mais en ne passant pas par une macro mais une simple formule dans la
cellule

?

"ChrisV" a écrit dans le message de
news:
Bonjour Shewy du 80 !!,

Sub ListFeuil()
On Error Resume Next
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
Sheets("Récap").Delete
Sheets.Add(Before:=Sheets(1)).Name = "Récap"
[A1] = "Liste des onglets du classeur : " & ActiveWorkbook.Name
With Selection.Font
.Name = "Arial"
.Size = 12
End With
Selection.Font.Bold = True
For i = 2 To Sheets.Count
Sheets("Récap").Cells(i, 1).Value = Sheets(i).Name
Next i
End Sub


ChrisV


"Shewy du 80 !!" <not> a écrit dans le message de
news:
Bonjour

Est-il possible de mettre dans une feuille nmé 'Récap'

Les noms des feuilles précédentes.

Exp:
J'ai 20 Sheets, donc les nom sont dynamiq.
je les appel donc, non pas par le nom mais par leur num
(sheet(1).select)



Dans ma feuille récap, en A1 je souhaiterai mettre une formule de
calcul



de
ce type :

=Sheets(1).name

Avez vous une idée ??

Merci !!!!!!!!!!!!!!!!!

--