Copier un tableau plusieurs fois sur une même feuille

Bonjour à tous !

Est ce possible de créer une macro qui permettrait de copier un tableau plusieurs fois l'un en dessous de l'autre , sur la même feuille de calcul excel ?

si oui, comment procède t'ont ?

je vous remercie.

Bonjour Jessous, bonjour le forum,

Essaie avec ce code ci-dessous à adapter :

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim PL As Range 'déclare la variable PL (PLage)
Dim F As Variant 'déclare la variable F (Fois)

Set O = Sheets("Feuil1") 'définit l'onglet O (à adapter)
Set PL = O.Range("A1").CurrentRegion 'définit la plage PL (à adapter)
F = Application.InputBox("Entrez le nombre de fois que sera copiée la plage.", "COPIE", Type:=1) 'définit le nombre de fois F
If F = False Then Exit Sub 'si bouton "Annuler", sort de la procédure
With PL.Rows 'prend en compte les lignes de la plage PL
    .Copy .Offset(.Count).Resize(.Count * F) 'copie ces lignes F fois (à Marc à qui je dois ce code)
End With 'fin de la prise en compte des lignes de la plage PL
End Sub

ThauThème a écrit :

Bonjour Jessous, bonjour le forum,

Essaie avec ce code ci-dessous à adapter :

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim PL As Range 'déclare la variable PL (PLage)
Dim F As Variant 'déclare la variable F (Fois)

Set O = Sheets("Feuil1") 'définit l'onglet O (à adapter)
Set PL = O.Range("A1").CurrentRegion 'définit la plage PL (à adapter)
F = Application.InputBox("Entrez le nombre de fois que sera copiée la plage.", "COPIE", Type:=1) 'définit le nombre de fois F
If F = False Then Exit Sub 'si bouton "Annuler", sort de la procédure
With PL.Rows 'prend en compte les lignes de la plage PL
    .Copy .Offset(.Count).Resize(.Count * F) 'copie ces lignes F fois (à Marc à qui je dois ce code)
End With 'fin de la prise en compte des lignes de la plage PL
End Sub

Merci de ton conseil, mais je n'y arrive pas...

J'ai un message d'erreur : erreur d'execution '9':

Re,

Erreur, ça doit être le nom de l'onglet différent de Feuil1. As-tu remarqué que j'ai écrit à adapter pour certaines lignes ? Notamment pour l'onglet et pour la plage PL...

ThauThème a écrit :

Re,

Erreur, ça doit être le nom de l'onglet différent de Feuil1. As-tu remarqué que j'ai écrit à adapter pour certaines lignes ? Notamment pour l'onglet et pour la plage PL...

Rien y fait , je n'y arrive pas ...

Merci quand même , c'est gentil de ta part Thauthème.