Répitition automatiques des lignes dans excel
ronaldinoperez
Messages postés
7
Statut
Membre
-
jejelefou Messages postés 310 Statut Membre -
jejelefou Messages postés 310 Statut Membre -
bonjour
j'aime répéter des lignes dans excel 5 fois dans une autre feuille du meme fichier
exemple:
fuil 1:
lign1
lign2
lign3
résultat
fuil2:
lign1
lign1
lign1
lign1
lign1
lign2
lign2
lign2
lign2
lign2
lign3
lign3
lign3
lign3
lign3
merci
j'aime répéter des lignes dans excel 5 fois dans une autre feuille du meme fichier
exemple:
fuil 1:
lign1
lign2
lign3
résultat
fuil2:
lign1
lign1
lign1
lign1
lign1
lign2
lign2
lign2
lign2
lign2
lign3
lign3
lign3
lign3
lign3
merci
1 réponse
-
Bonjour :
voici le code :
Sub repete_5_fois()
imax = 5 'nombre de lignes à repeter
For i = 1 To imax
Sheets("feuil2").Cells(5 * i - 4, 1).Value = Sheets("feuil1").Cells(i, 1).Value
Sheets("feuil2").Cells(5 * i - 3, 1).Value = Sheets("feuil1").Cells(i, 1).Value
Sheets("feuil2").Cells(5 * i - 2, 1).Value = Sheets("feuil1").Cells(i, 1).Value
Sheets("feuil2").Cells(5 * i - 1, 1).Value = Sheets("feuil1").Cells(i, 1).Value
Sheets("feuil2").Cells(5 * i, 1).Value = Sheets("feuil1").Cells(i, 1).Value
Next
End Sub
a+
jéjé-
-
Sub repete_5_fois()
imax = 5 'nombre de lignes à repeter
For i = 1 To imax
for j =1 to 6
Sheets("feuil2").Cells(5 * i - 4, j).Value = Sheets("feuil1").Cells(i, j).Value
Sheets("feuil2").Cells(5 * i - 3, j).Value = Sheets("feuil1").Cells(i, j).Value
Sheets("feuil2").Cells(5 * i - 2, j).Value = Sheets("feuil1").Cells(i, j).Value
Sheets("feuil2").Cells(5 * i - 1, j).Value = Sheets("feuil1").Cells(i, j).Value
Sheets("feuil2").Cells(5 * i, j).Value = Sheets("feuil1").Cells(i, j).Value
Next
next
End Sub
a+
jéjé -
Bonjour :
voici le code :
Sub repete_5_fois_6_colonnes()
imax = 5 'nombre de lignes à repeter
For i = 1 To imax
for j=1 to 6
Sheets("feuil2").Cells(5 * i - 4, j).Value = Sheets("feuil1").Cells(i, 1).Value
Sheets("feuil2").Cells(5 * i - 3, j).Value = Sheets("feuil1").Cells(i, 1).Value
Sheets("feuil2").Cells(5 * i - 2, j).Value = Sheets("feuil1").Cells(i, 1).Value
Sheets("feuil2").Cells(5 * i - 1, j).Value = Sheets("feuil1").Cells(i, 1).Value
Sheets("feuil2").Cells(5 * i, j).Value = Sheets("feuil1").Cells(i, 1).Value
Next
Next
End Sub
a+
-
