copier tableau dans une autre feuille à la suite

[yakin78]

Bonjour tous le monde ;
Je bloque sur une formule ,j'aimerai copier un tableau dans une autre feuille ,mais pas plus de 5 fois ,a la 5eme fois un message s'affiche "pas plus de 5 semaines" et à chaque incrementation le numero de semaine s'inscrit sur une ligne je suis bloqué je n'arrive pas a finir mon code !!

merci à tous !!

Sub copier_semaine()
Range("A1:W9").Select
    Selection.Copy
    Sheets("Feuil2").Select
    Range("A1").Select
    Sheets("Feuil2").Range("A50").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False

Dim numero As Integer
    numero = 1

    While numero = 5

       numero = numero + 1
    Wend
    ActiveCell.Offset(9, 0).FormulaR1C1 = "Semaine" & numero
    Sheets("Feuil1").Select
    MsgBox ("5 Semaines pas plus !")
    
End Sub

 

[Guest]

Re : copier tableau dans une autre feuille à la suite

Bonjour,

Voir en pièce jointe une façon de faire.

A+

 

[yakin78]

Re : copier tableau dans une autre feuille à la suite

Bonjour à tous

Merci Hasco !!

c'est exactement ce que je recherche !! je l'ai amelioré si ca interesse quelqu'un