Copier des onglets sur une feuille avec une macro

[roweronly]

J'aimerais savoir pendant que je suis sur le site comment copier le nom des onglets dans une feuille du classeur ?

Le code que j'ai fais fonctionne le nom de mon onglet vient se colle sur la deuxième colonne.
Cependant le nom de l'onglet a été copié sur la ligne 5 comment faire pour qu'il se colle directement sur la ligne 1 ?

Le code ;

Dim X As Integer

For X = 5 To Sheets.Count

Cells(X,2).Value = Sheets(X).Name

Next

End Sub

Merci pour vos réponses
😱

 

[bpol]

Re : Copier des onglets sur une feuille avec une macro

bonjour,

avec
Dim Feuille As Worksheet

Dim i As Integer

For Each Feuille In Worksheets

Range("A1").Offset(i) = Feuille.Name

i = i + 1

Next


A+
Bpol

 

[sousou]

Re : Copier des onglets sur une feuille avec une macro

Dim X As Integer

For X = 5 To Sheets.Count

Cells(X-x+1,2).Value = Sheets(X).Name

Next

End Sub

 

[roweronly]

Re : Copier des onglets sur une feuille avec une macro

J'ai trouvé mon erreur

Autant pour moi

Le code ;

Dim X As Integer

For X = 5 To Sheets.Count

Cells(1,2).Value = Sheets(X).Name

Next

End Sub
😛

 

[sousou]

Re : Copier des onglets sur une feuille avec une macro

BonJour

Je ne crois pas que ta solution soit la bonne.
Dans ce cas tous les noms de feuille seront écrit dans la même cellule, et tu n'aura que la dernière

 

[Pierrot93]

Re : Copier des onglets sur une feuille avec une macro

Re

sans doute un rapport avec ce fil :

https://www.excel-downloads.com/threads/renommer-35-onglets.125713/

@+

 

[bpol]

Re : Copier des onglets sur une feuille avec une macro

re,
avec ma macro suffit de changer la ref de cellule de destination

Bpol