Copier autant de fois que

[Gizmmo]

Bonjour à tous,

A partir d'un tableau composé de 2 colonnes (Nombre et repère), je souhaite copier dans une seule colonne tous les repères du tableau autant de fois qu'indiqué dans la colonne nombre.
Sur le fichier joint, qui sera certainement plus clair que ma bafouille, j'ai volontairement limité le nombre de repère. En réalité le nombre de repère et les repères varient d'un tableau à l'autre.

Merci d'avance.

 

[Dranreb]

Re : Copier autant de fois que

Bonjour.
Ça par exemple:

Sub Essai()
Dim Cel As Range, L As Long, N As Long
Set Cel = Feuil1.[E2]
For L = 1 To 5
   For N = 1 To Feuil1.[A3:A7].Rows(L).Value
      Set Cel = Cel.Offset(1, 0): Cel.Value = Feuil1.[B3:B7].Rows(L).Value
      Next N
   Next L
End Sub

En réalité le nombre de repère et les repères varient d'un tableau à l'autre.

Dites de quoi ils dépendent alors.
À +

 

[Gizmmo]

Re : Copier autant de fois que

Merci pour cette réponse.

Le nombre de repère et les repères sont générés par un logiciel de schéma électrique en fonction de plans qui sont tous différent.
Au maximum on peut avoir 150 repères différents (donc 150 lignes dans le tableau) ce qui peut représenter jusqu'à 2000 repères au total.

 

[hoerwind]

Re : Copier autant de fois que

Bonjour, salut Dranbreb,

Une proposition par formule en pièce jointe.

 

[Gizmmo]

Re : Copier autant de fois que

Re bonjour,

Dranreb, ta solution fonctionne parfaitement.
Hoerwind, ca marche aussi mais j'ai déjà finalisé ma feuille avec la solution de Dranreb.

Merci beaucoup à tous les 2