Dupliquer lignes avec valeurs 4 fois

Bonsoir à tous,

Je cherche une formule ou une macro qui pourrait dupliquer 4 fois des lignes dans l'idéale pour un nombre variable de lignes (ici 1807). Voici un exemple:

J'ai en colonne A : 53,59,66,72

Le but est d'avoir 53,53,53,53,59,59,59,59,66,66,66,66,72,72,72,72 dans la colonne A

J'ai fait un exemple en pièce jointe sur le feuil2

Merci beaucoup et bonne soirée !

Quik

Bonjour,

Une proposition à étudier.

ALT F8, exécuter la procédure Create_list ou saisir Ctrl+m.

Cdlt.

Public Sub Create_list()
'Ex?cution procédure : Ctrl+m
Dim tbl, arr()
Dim i As Long, j As Long, k As Long
    tbl = Feuil1.Cells(1).CurrentRegion.Value
    ReDim arr(LBound(tbl) To UBound(tbl) * 4)
    k = 1
    For i = LBound(tbl) To UBound(tbl)
        For j = 1 To 4
            arr(k) = tbl(i, 1)
            k = k + 1
        Next j
    Next i
    If k > 0 Then Feuil2.Cells(1).Resize(k - 1).Value = Application.Transpose(arr)
End Sub

Bonjour quik09, Jean-Eric,

je te retourne ton fichier modifié :

Ctrl e ➯ travail effectué !

Alt F11 pour voir le code VBA, puis revenir sur Excel

si besoin, tu peux demander une adaptation.

merci de me dire si ça te convient.

dhany

Re,

Une petite mise à jour pour optimiser (un peu plus) le temps d'exécution.

Cdlt.

Public Sub Create_list()
'Exécution procédure : Ctrl+m
Dim tbl, arr()
Dim I As Long, J As Long, k As Long
    tbl = Feuil1.Cells(1).CurrentRegion.Value
    ReDim arr(LBound(tbl) To UBound(tbl) * 4)
    For I = LBound(tbl) To UBound(tbl)
        For J = 1 To 4
            arr(k + 1) = tbl(I, 1)
            k = k + 1
        Next J
    Next I
    With Feuil2
        .Cells(1).CurrentRegion.ClearContents
        If k > 0 Then .Cells(1).Resize(k).Value = Application.Transpose(arr)
    End With
End Sub

Bonjour Jean-Eric et dhany,

Merci beaucoup pour vos solutions qui fonctionnent parfaitement !

Bonne journée et bonne année !

Quik

merci pour ton retour !

bonne année à toi aussi !

dhany

Bonjour,

@ Quick09,

Je note que tu pas téléchargé mon fichier.

Il est donc inutile de me remercier.

Cdlt.

Bonjour Jean-Eric,

C'est parce que j'ai directement copié ton code !

Re,

Il y a des jours ou il faudrait penser un peu plus !...

Cdlt.

Re,

Je te dis la stricte verité !

Re,

C'est moi qui doit penser un peu plus avant d'écrire.

Cdlt.

Bonjour,

@Jean-Eric

+1 au compteur.

ici, le « ou », c'est pas celui de « ou bien » ; il faut lire « où » !

est-ce au demandeur que Jean-Eric dit cela ? non, c'est à propos de lui-même !

vous ne me croyez pas ? lisez la suite :

@Jean-Eric

+1 au compteur.

donc de son propre aveu, Jean-Eric reconnaît qu'il y a des fois où il ne réfléchis pas assez !

alors qui donc écrit des posts inutiles ? m'est avis qu'c'est plutôt TOI, Jean-Eric !

alors ne viens pas m'chercher chaque fois qu'tu penses que j'ai écrit un post inutile !

pour le coup, c'est bien une autre preuve que tu réfléchis pas assez !

dhany