Dupliquer des lignes entières

[Melanie]

Coucou les amis 🙂

Il y à 30 min je ne savais pas que les macros existaient. Ce qui veut dire que je ny connais vraiment rien.
Je vous explique mon soucis et ma demande.


Je dispose dun catalogue produits, du prêt à porter. Afin d'importer ce catalogue dans prestashop, je dois avant décliner tous les produits en fonction de leurs tailles.

Ce que je voudrais c'est:

1) Dupliquer mes lignes
Un code macro qui me permet simplement de dupliquer X fois chaqu'une de mes lignes entièrement juste en dessous.
Exemple:

Ligne 1: Produit1 Descriptif Taille:SLM Poids
Ligne 2: Produit2 Descriptif Taille:SLM Poids

Dupliquer: 2 fois chaques lignes
Ligne 1: Produit1 Descriptif Taille:SLM Poids
Ligne 1: Produit1 Descriptif Taille:SLM Poids
Ligne 1: Produit1 Descriptif Taille:SLM Poids
Ligne 2: Produit2 Descriptif Taille:SLM Poids
Ligne 2: Produit2 Descriptif Taille:SLM Poids
Ligne 2: Produit2 Descriptif Taille:SLM Poids

*****************
J'ai trouvé un code qui propose cela, seulement, lui copie uniquement la colonne A. Moi je voudrais dupliquer mes lignes entières.

Pouvez-vous soit le corriger ou soit m'en donner un autre svp. Je ne sais pas créer de macro, donc si vous pouviez me le faire dans la pièce que je vous ai ajouté ce sera super. Merci

 

[Modeste]

Re : Dupliquer des lignes entières

Bonjour Mélanie et bienvenue,

Il y a 5 minutes, je ne savais pas qu'existait prestashop ... et je n'en fais pas tout un monde 😀

Plus sérieusement, si tu as trouvé une macro mais que tu enregistres ton fichier au format .xlsx ... la macro n'y est plus! Il faut enregistrer le classeur au format .xlsm

D'autre part, il faut dupliquer les lignes, soit, mais ... en recopiant les différentes tailles renseignées trois fois ou en créant une ligne pour chaque taille? Si oui, quelles seraient les différentes tailles qui pourraient être renseignées? Elles seraient toujours 3? Chacune tient en un seul caractère (pas de XL, ou XXL)?

Bref, dis-nous en un peu plus, si tu veux qu'on t'aide à faire quelque chose d'adapté.
Ceci dit, ne perds pas de vue que nous sommes sur un site d'entraide: on essaie de ne pas "faire à la place de" et les délais ne sont la priorité que du seul demandeur 🙂

 

[klin89]

Re : Dupliquer des lignes entières

Bonjour Mélanie, le forum

A tester

Sub test()
Dim a, b(), i As Long, j As Byte, n As Long
    Application.ScreenUpdating = False
    With Sheets("Feuil1").Range("A1").CurrentRegion
        a = .Value
        ReDim b(1 To UBound(a, 1) * 3, 1 To 4)
        For i = 2 To UBound(a, 1)
            For j = 1 To 3
                b(n + j, 1) = a(i, 2)
                b(n + j, 2) = a(i, 3)
                b(n + j, 3) = a(i, 4)
                b(n + j, 4) = a(i, 5)
            Next
            n = n + 3
        Next
        With .Offset(, .Columns.Count + 1)
            .CurrentRegion.Clear
            .Resize(1, 4).Value = [{"Titre1","Titre2*","SKU","Taille"}]
            .Offset(1).Resize(n, 4).Value = b
        End With
    End With
    Application.ScreenUpdating = True
End Sub

klin89

 

[laetitia90]

Re : Dupliquer des lignes entières

bonjour tous 🙂

on peut egalement utiliser redim preserve

Sub es()
  Dim t(), t1(), x As Long, i As Long, k As Long, z As Byte
  t = Range("a2:d" & Cells(Rows.Count, 1).End(3).Row)
  For i = 1 To UBound(t)
  For z = 1 To 3 '2 fois
  x = x + 1
  ReDim Preserve t1(1 To 4, 1 To x)
  For k = 1 To 4
  t1(k, x) = t(i, k)
  Next k:  Next z: Next i
  [a2].Resize(x, 4) = Application.Transpose(t1)
 End Sub

attention a transpose <65000 lignes