Copier des onglets sur une feuille avec une macro

B

bpol

XLDnaute Impliqué

• 20 Août 2009

• #2

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 20 Août 2009

• #3

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

 

Vote positif 0 Vote négatif

R

roweronly

Guest

• 20 Août 2009

• #4

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
😛

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 20 Août 2009

• #5

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Août 2009

• #6

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/

@+

 

Vote positif 0 Vote négatif

B

bpol

XLDnaute Impliqué

• 20 Août 2009

• #7

Re : Copier des onglets sur une feuille avec une macro

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

Bpol

 

Vote positif 0 Vote négatif