Copier/coller une ligne un nombre de fois déterminé Fermé

Question

Bonjour, 
Novice en vba, j'ai besoin de votre aide.
J'ai un fichier qui contient un très grand nombre de ligne (+ de 10 000).
Je souhaite copier coller les cellules des colonnes A à E de chaque ligne dans un autre onglet en copiant à chaque fois la ligne source 12 fois. Le but final sera de mettre des valeurs mensuelles dans la colonne F en verticale (d'où l'intérer de copier coller 12 fois à chaque fois). J'imagine également qu'il va falloir utiliser une boucle de type For / Next
En bref, j'aimerai obtenir quelque chose comme ça
onglet 1
A1  B1  C1  D1  E1
A2  B2  C2  D2  E2
A3  B3  C3  D3  E3
onglet 2
A1  B1
A1  B1
A1  etc
A1
A1
A1
A1
A1
A1
A1
A1
A1
A2
A2
A2
A2
A2
A2
A2
A2
A2
A2
A2
A2
etc
Merci d'avance pour votre aide.
Bien à vous.
Clemisch

yg_be · Answer

l'autre onglet est dans le même fichier?

yg_be · Answer

Suggestion de code VBA :
Option Explicit
Sub clemish()
Dim numligneA As Long, numligneB As Long
Dim i As Integer
numligneA = 1
numligneB = 1
Do While Worksheets("FA").Cells(numligneA, 1).Value <> ""
    For i = 1 To 12
        Worksheets("FA").Rows(numligneA).Copy _
             Worksheets("FB").Rows(numligneB)
        numligneB = numligneB + 1
    Next i
    numligneB = numligneB + 1 ' pour passer une ligne
    numligneA = numligneA + 1
Loop
End Sub

Copier/coller une ligne un nombre de fois déterminé

2 réponses

Discussions similaires