Copier autant de fois que

Dranreb

XLDnaute Barbatruc

• 17 Octobre 2011

• #2

Re : Copier autant de fois que

Bonjour.
Ça par exemple:

VB:

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.

Cliquez pour agrandir...

Dites de quoi ils dépendent alors.
À +

 

Dernière édition: 17 Octobre 2011

Vote positif 0 Vote négatif

G

Gizmmo

Guest

• 17 Octobre 2011

• #3

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.

 

Vote positif 0 Vote négatif

H

hoerwind

XLDnaute Barbatruc

• 17 Octobre 2011

• #4

Re : Copier autant de fois que

Bonjour, salut Dranbreb,

Une proposition par formule en pièce jointe.

 

Pièces jointes

• ListeDeveloppéeV2.xls

  30 KB · Affichages: 46

Vote positif 0 Vote négatif

G

Gizmmo

Guest

• 17 Octobre 2011

• #5

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

 

Vote positif 0 Vote négatif