XL 2016 Dupliquer une feuille puis clear

[anis.abbadi]

Bonjour,

voici le code que j'ai

Sub Btn_Intervenant()
Worksheets("feuil2").Copy Before:=Sheets("Feuil3")
End Sub

Je souhaite dupliquer la feuille "Feuil2" avant la Feuil3 mais je n'arrive pas à la clean avec ClearContent.
De plus je voudrais clean de E13:W24 et j'aurai un nombre indéterminé de copie de "Feuil2" à faire.

Merci d'éclairer ma lanterne

 

[Hasco]

Bonjour,

Normalement après copy la nouvelle feuille devient la feuille active donc:

Worksheets("feuil2").Copy Before:=Sheets("Feuil3")
'Nettoyer la nouvelle feuille
ActiveSheet.Range("E13:W24").ClearContents

'S'il s'agit de nettoyer la feuille feuil2: (votre question n'est pas claire sur ce sujet)
Sheets("Feuil2").Range("E13:W23").ClearContents

Cordialement

 

[chris]

Bonjour

Il serait plus propre et moins risqué d'avoir un onglet vide de données servant de modèle (ou même une feuille modèle sous forme de xltx) qui serait utiliser pour la copier que de vider une copie remplie.