Dupliquer lignes

Paf

XLDnaute Barbatruc

• 29 Avril 2015

• #2

Re : Dupliquer lignes

Bonjour

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

Code:

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+

 

Vote positif 0 Vote négatif

M

MACACHOU

Guest

• 29 Avril 2015

• #3

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+

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 29 Avril 2015

• #4

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

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 29 Avril 2015

• #5

Re : Dupliquer lignes

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

a adapter

Code:

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

 

Vote positif 0 Vote négatif

M

MACACHOU

Guest

• 30 Avril 2015

• #6

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

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 30 Avril 2015

• #7

Re : Dupliquer lignes

re tous 🙂

avec ton fichier copy en feuil2

 

Pièces jointes

• Classeurvierge (1).xlsm

  81.5 KB · Affichages: 42

Vote positif 0 Vote négatif

M

MACACHOU

Guest

• 30 Avril 2015

• #8

Re : Dupliquer lignes

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

 

Vote positif 0 Vote négatif