XL 2016 Liste de références que je souhaite insérer en 10 fois.

[Cotriana]

Bonjour à tous,

Actuellement en train de travailler sur la création d'un outil, j'aurais besoin de répéter ma liste de références, mais je ne sais pas comment faire ça de manière automatisée avec une macro. Je pense à une boucle mais je n'arrive jamais à les programmer.

Ci-joint, vous trouverez un exemple de liste de références. J'aimerai les développer comme l'exemple visible ci-dessous.

Par exemple, une liste de réf :
A
B
C
D
J'aimerai que ma liste devienne :
A
A
A
A
A
B
B
B
B
B
C
C
C
C
C
D
D
D
D
D

Bien cordialement, je vous remercie d'avance pour vos aides.

 

[JHA]

Bonjour à tous,

Une solution assez simple avec power query
1) tu copies la liste sur la droite (ici 5 fois)
2) Sur power Query, on sélectionne tout et dépivoter les colonnes.

JHA

 

[Cotriana]

Parfait, merci beaucoup!

Je vous remercie

 

[Phil69970]

Bonjour @Cotriana
edit bonjour JHA

Je te propose ce fichier

Merci de ton retour

@Phil69970

 

[Cotriana]

Bonjour @Cotriana
edit bonjour JHA

Je te propose ce fichier

Merci de ton retour

@Phil69970

Bonjour, tout autant parfait, même plus simple que la solution proposé par JHA mais qui fonctionne tout autant. Je vous remercie pour votre aide!

 

[Hasco]

Bonjour,

fonction à tirer sur 400 lignes

=INDEX($A$1:$A$80;ENT((LIGNE()-1)/5)+1)

Cordialement

[Edit] Oups... y'avait du monde 🙂 [/Edit]

 

[JHA]

Bonjour à tous,

Tu peux dupliquer les colonnes directement sur Power Query.

JHA

 

[Hasco]

Re,

Puisque nous en sommes à power query, deux requêtes dont une très courte (1 ligne) après avoir nommé A1:A80 'Références' :

= Table.FromColumns({List.Sort(List.Repeat(Excel.CurrentWorkbook(){[Name="Références"]}[Content][Column1],5))},{"Références"})

Les nouvelles versions de powerquery permettent de retourner une liste dans un classeur, Table.FromColumns n'est plus nécessaire dans ce cas :

=List.Sort(List.Repeat(Excel.CurrentWorkbook(){[Name="Références"]}[Content][Column1],5))

suffit à retourner la colonne qui prendra pour entête le nom de la requête.

Cordialement