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