Accès Premium
GNT sans publicité, site mobile, fonctionnalitées exclusives...
Rejoignez-nous !
Forums Applications Microsoft Office Excel

Nom Feuille dans cellule

Le
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 !!!!!!!!!!!!!!!!!

--
Lire les 5 réponses

Questions / Réponses high-tech
Poser une question
Vidéos High-Tech et Jeu Vidéo
Plus de vidéos
Téléchargements
Plus de téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
ChrisV
Le #1578465
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 !!!!!!!!!!!!!!!!!

--





Répondre en citant
Shewy du 80 !!
Le #1578462
Ok
mais en ne passant pas par une macro mais une simple formule dans la cellule
?

"ChrisV" 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 !!!!!!!!!!!!!!!!!

--









Répondre en citant
Clément Marcotte
Le #1578460
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 !!!!!!!!!!!!!!!!!

--





Répondre en citant
ChrisV
Le #1578458
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" 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 !!!!!!!!!!!!!!!!!

--













Répondre en citant
Shewy du 80 !!
Le #1578446
Trop COOL !!!!!!!

Merci BOCOU !!!!!!!


"ChrisV" 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" 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 !!!!!!!!!!!!!!!!!

--

















Répondre en citant
Publicité
Suivre les réponses
Poster une réponse
Anonyme