Dupliquer lignes

[MACACHOU]

Bonjour à tous,
J'espère ici trouver une solution à mon problème...
Je souhaiterai dupliquer des lignes selon les quantités indiquées.... Etant novice je galère...



Merci de votre aide

 

[Paf]

Re : Dupliquer lignes

Bonjour

un code qui répond (?) à la demande

Sub Duplique()
 Dim Ligne As Integer
 For Ligne = Range("B30").End(xlDown).Row To 31 Step -1
    Rows(Ligne + 1 & ":" & Ligne + Cells(Ligne, 2).Value - 1).Insert Shift:=xlDown
    Range("A" & Ligne & ":G" & Ligne).Resize(Cells(Ligne, 2).Value).FillDown
 Next
End Sub

A+

 

[MACACHOU]

Re : Dupliquer lignes

Salut,
Génial !! autre question, peut on dupliquer a un autre endroit sur la feuille ou sur une autre feuille?
Merci mille fois pour ton aide précieuse

A+

 

[Paf]

Re : Dupliquer lignes

Re

à ce moment là, le code serait différent; orientez vos recherche vers "copier une ligne sur une autre feuille"

bonne suite

 

[laetitia90]

Re : Dupliquer lignes

bonjour MACACHOU,Paf 🙂
une facon de l'ecrire attention j'utilise transpose dans cet exemple... limite 65000 lignes max..

a adapter

Sub es()
  Dim t(), t1(), x As Long, i As Long, k As Long, z As Long
  t = Feuil1.Range("a31:g40")
  For i = 1 To UBound(t)
  For z = 1 To t(i, 2)
  x = x + 1
  ReDim Preserve t1(1 To 7, 1 To x)
  For k = 1 To 7
  t1(k, x) = t(i, k)
  Next k:  Next z: Next i
  Feuil2.[a2].Resize(x, 7) = Application.Transpose(t1)
End Sub

 

[MACACHOU]

Re : Dupliquer lignes

Bonjour Laeticia90, Merci de ton aide je dois avoir un louper je n'arrive pas a la faire fonctionner.... j'ai pourtant créée la feuille 2...
Salutations

 

[laetitia90]

Re : Dupliquer lignes

re tous 🙂

avec ton fichier copy en feuil2

 

[MACACHOU]

Re : Dupliquer lignes

Ah génial, merci mille fois c'est exactement ce que je voulais!!
Merci beaucoup laetitia90
Salutations😉