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
A voir également:
- Répitition automatiques des lignes dans excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Écrire plusieurs lignes dans une cellule excel mac - Guide
- Partager des photos en ligne - Guide
- Si ou excel - Guide
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é
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é
votre code marche trés bien sauf q'l me permet de répéter une seule cellule de ligne et moi j'ai 6 colonnes et n'en pas une seule
tu peux m'aider là
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é
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+