copier tableau dans une autre feuille à la suite

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

yakin78

XLDnaute Junior
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 !!

Code:
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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
281
Retour