XL 2016 Dupliquer x fois une action de macro

  • Initiateur de la discussion Initiateur de la discussion elmilo13
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

elmilo13

XLDnaute Nouveau
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
 

Pièces jointes

Bonjour @elmilo13

Bien que je ne vois pas trop la finalité.... et en partant de ton exemple
VB:
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
 
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
 
Bonjour à tous,

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

VB:
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 😉
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
894
Réponses
4
Affichages
163
Retour