2copies de plagesincrementées

bonjour le forum

à tous ceux qui voudraient voir mon fichier je vous le remet à dispo sur le forum .


merci d'avance à tous ceux qui pourraient m'aider je vias à taton

de mon coté

j'ai peut-etres trouver une piste pour dupliquer en regardant sur le forum :

private sub CommandButton1_click
dim TheSheetName As Stirng

TheSheetName=InputBox ('nom de ma feuille,'nouvelleFeuille')
If TheSheetName='' Then Exit Sub

worksheets('Sheet1').copy After:=Worksheets(Wroksheets.conut)
worrsheets(Worksheets.count).Name=TheSheetName

si l'auteur se reconnait j'aimerais savoir si l'on peut modifier cette procédure à mes besoin

sur ce je vous dit à plus merci d'avance pour tout br44

[file name=exvba_20050807085318.zip size=19831]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exvba_20050807085318.zip[/file]

Cliquez pour agrandir...