Insertion d'un nombre de tableaux en fonction d'une variable

Bonjour à tous,

Je rencontre actuellement un problème pour insérer un certains nombre de tableaux en fonction d'une variable.

Cette variable se situe dans une cellule fixe. N'étant pas encore très doué en VBA j'ai essayé quelques petites choses en vain ...

Ci-joint un exemple représentatif de ce que je souhaiterai.

Cordialement,

Stoob

Bonjour Stoob15

Tu y étais presque

voici le code

Sub Insertion()
  Dim nbbat As Integer
  Dim DLig As Long
  ' Récupérer le nombre de fois à reproduire
  nbbat = Range("B3")
  ' Récupérer la dernière ligne de la feuille
  DLig = Cells.SpecialCells(xlCellTypeLastCell).Row
  ' Copier X fois
  For i = 1 To nbbat
    Range("B10:D" & DLig).Copy Destination:=Range("B" & DLig + 2)
    DLig = Cells.SpecialCells(xlCellTypeLastCell).Row
  Next i
End Sub

A+

Bonjour Bruno,

Merci de ta réponse rapide, j'ai essayé le code ci-dessus et il m'indique une erreur 400.

De plus, je ne comprends pas trop pourquoi nous avons besoin de récupérer la dernière ligne de la feuille?

Cordialement,

Stoob

Re,

Stoob15 a écrit :

Bonjour Bruno,

Merci de ta réponse rapide, j'ai essayé le code ci-dessus et il m'indique une erreur 400.[/code]

Je ne vois pas pourquoi

Stoob15 a écrit :

De plus, je ne comprends pas trop pourquoi nous avons besoin de récupérer la dernière ligne de la feuillle?

Autant pour moi je n'avais pas lu correctement l'énoncé de ce que tu souhaitais

Sub Insertion()
  Dim nbbat As Integer
  ' Récupérer le nombre de fois à reproduire
  nbbat = Range("B3")
  ' Copier X fois
  For i = 1 To nbbat
    Range("B10:D24").Copy
    Range("B25").Insert Shift:=xlDown
  Next i
End Sub

A+

Merci Bruno,

Cela fonctionne parfaitement,

Bonne fin de journée