Triplicatat de lignes de codes-barre

Bonjour,

J’ai présentement une colonne d’une centaine de code-barre dans un onglet :
43127
43124
42314
54365
76547

et je dois faire en sorte d’obtenir ceci dans un autre onglet

43127
43127
43127
43124
43124
43124
42314
42314
42314
54365
54365
54365
76547
76547
76547

etc…
bref, de tripliquer chaque ligne.

Si quelqu’un(e) a une idée, je suis très preneur!

Merci beaucoup!

Bonsoir

Classeur1.xlsm (17,8 Ko)

Un petit code

Sub recopie()
'Déclaration Variable
Dim F1 As Range
Dim i As Integer
Dim j As Integer
Dim DernLigne%, dl%
'Attribution variable
DernLigne = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
Set F1 = Feuil1.Range("A2:A" & DernLigne)
'Boucle sur les lignes colonne A
  For i = 1 To F1.Rows.Count
    If F1(i, 1).Value <> "" Then 'si cellule non vide
      dl = Feuil2.Range("A" & Rows.Count).End(xlUp).Row + 1 'Récupère dernière ligne feuil2
      For j = dl To dl + 2 'boucle sur la même cellule de la feuil1 (3 fois)
        Feuil2.Cells(j, 1).Value = F1(i, 1).Value 'copie la donnée
      Next j
    End If
  Next i
End Sub

1 J'aime

Alors, là, je suis bluffé!!!
Bravo!!!

Bonjour

Si ton problème est résolu, peux-tu stp cocher le petit :white_check_mark: sous le message qui contient la solution stp?

Cela nous aide à déterminer qui a encore besoin d’aide et qui est sauvé!

Merci