Fichier calculation
Bonjour
J'ai deux feuilles une nommée base et l'autre feuille1.
Dans la feuille Base j'ai deux celulles en E9 pour le nombre de ligne et en E10 pour le nombre d'article.
J'arrive à faire copié une ligne et coller plusieur fois en fonction de la celulle E feuille base et j'aimerais ensuite copié les lignes créées en fonction du de la case E10 nombre d'article.
J'ai réuissi à faire un bout du code VBA mais là je bug complètement.(voir code ci-dessous)
Est ce que vous pourriez m'aider, je suis un peu novice dans ce domaine.
Merci
Sub nombreligne()
Dim I As Integer
Sheets("Base").Select
Range("E9").Select
For I = 1 To Range("E9").Value
Sheets("sheet1").Select
Rows(12).Copy Range("A" & I + 12)
Sheets("sheet1").Select
Range("A12:A16").MergeCells = True
Range("D12:D16").MergeCells = True
Range("E12:E16").MergeCells = True
Range("F12:F16").MergeCells = True
Range("G12:G16").MergeCells = True
Range("H12:H16").MergeCells = True
Range("I12:I16").MergeCells = True
Range("J12:J16").MergeCells = True
Range("K12:K16").MergeCells = True
Range("L12:L16").MergeCells = True
Range("M12:M16").MergeCells = True
Range("N12:N16").MergeCells = True
Range("O12:O16").MergeCells = True
Range("P12:P16").MergeCells = True
Range("Q12:Q16").MergeCells = True
Range("R12:R16").MergeCells = True
Next I
End Sub