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

Rechercher des sujets similaires à "fichier calculation"