bouton creation nouvelle feuille

[jcc]

bonjour a tous

j'aimerais creer un bouton macro qui , lors de son activation
,creera automatiquement la copie de la feuille1 en feuille 1(2) , sans oublier d'effacer les données entrées automatiquement sur la feuille 1
merci de me dire si cela est possible et de m indiquer le code a utiliser

merci

 

[andré]

Salut jcc,

Enregistre la macro et tu auras le code.
Après avoir copié et sélectiuonné ta feuille, tu fais F5, Cellules, Constantes, OK, Delete.

André

 

[sousou]

Ce petit code devrais te satisfaire, ce n'est qu'un exemple de soultion.
Laisse aller ton imagination.


Sub copie()
Set modèle = ThisWorkbook.Worksheets("feuil1")
modèle.Copy after:=modèle
ActiveSheet.UsedRange.ClearContents
ActiveSheet.Name = InputBox("Nom de la nouvelle feuille :")

End Sub