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 sous le message qui contient la solution stp?
Cela nous aide à déterminer qui a encore besoin d’aide et qui est sauvé!
Merci