XL 2016 Dupliquer x fois une action de macro

[elmilo13]

Bonjour à tous,

Après plusieurs heures de recherche, je n'arrive pas à trouver un moyen de rappatrier plusieurs fois le nom des onglets dans la colonne A.
En gros, j'aimerai avoir sur la colonne A : AAA-AAA-AAA-AAA-BBB-BBB-BBB-BBB-CCC-CCC-CCC-CCC.
Actuellement la macro le fait qu'une fois pour chaque onglet.

Merci de votre aide

 

[M12]

Bonjour,
Si j'ai compris

 

[Phil69970]

Bonjour @elmilo13

Bien que je ne vois pas trop la finalité.... et en partant de ton exemple

Sub Test()

Dim aa As Long

Sheets(2).Select
Range("A2").Select

aa = Sheets.Count
For a = 2 To aa
    ActiveCell = Sheets(a).Name & "-" & Sheets(a).Name & "-" & Sheets(a).Name & "-" & Sheets(a).Name
    ActiveCell.Offset(1, 0).Select
Next a

End Sub

@Phil69970

 

[pierrejean]

Bonjour
Un essai

 

[elmilo13]

Merci beaucoup pour vos retours rapides !
Par contre je suis désolé, je me suis mal fait comprendre !

Je voulais rapatrier plusieurs fois les noms des onglets en colonne A de cette façon :
AAA
AAA
AAA
BBB
BBB
BBB
CCC
CCC
CCC

Actuellement la macro le fait qu'une fois :
AAA
BBB
CCC

 

[Phil69970]

Re

Comme quoi un fichier de démo est souvent plus clair

Sub Test()

Dim aa As Long

Sheets(2).Select
Range("A2").Select

aa = Sheets.Count
For a = 2 To aa
    For i = 1 To 4
        ActiveCell = Sheets(a).Name
        ActiveCell.Offset(1, 0).Select
    Next i
Next a

End Sub

@Phil69970

 

[mapomme]

Bonjour à tous,

Plus rapide et indépendant de l'ordre des feuilles

Sub Test()
Const nfois = 3, Result = "Feuil1"
Dim n&, i&, k&, m&
   n = Sheets.Count
   ReDim t(1 To nfois * (n - 1), 1 To 1)
   For i = 1 To n
      If LCase(Sheets(i).Name) <> LCase(Result) Then
         For k = 1 To nfois: m = m + 1: t(m, 1) = Sheets(i).Name: Next k
      End If
   Next i
   Sheets(Result).Range("a:a").ClearContents
   If m > 0 Then Sheets(Result).Range("a:a").Resize(m) = t
End Sub

nota: bonjour @Usine à gaz