copier feuilles

matteo91

XLDnaute Nouveau
bonjou,

je souhaite savoir si il est posible de copier une feuille 10 fois d'un seul coup

merci
 
T

Temjeh

Guest
Bonjour à tous

L'idée de Spock en action (Nom de feuil a adapté):

Dim x As Integer
x = InputBox('Enter le nombre de copie')
For numtimes = 1 To x
ActiveWorkbook.Sheets('Feuil1').Copy _
After:=ActiveWorkbook.Sheets('Feuil1')
Next


A+

Temjeh
 

Discussions similaires

Réponses
9
Affichages
404

Statistiques des forums

Discussions
312 438
Messages
2 088 410
Membres
103 845
dernier inscrit
anasabir2024