Effacer feuille et recopie "vierge"

[tactic6]

Bonsoir le forum et tous les autres
j'aimerais avoir votre avis sur ce petit désagrément:
Dans mon classeur j'utilise la macro suivante:

Sub EFFACER(ByVal control As IRibbonControl)
Application.ScreenUpdating = False
Worksheets("SAISIE").Select

If MsgBox("                                    Attention tout va être éffacé                                                                                                                                                                                               Cliquez sur Non si vous devez sauvegarder votre travail?                ", vbInformation + vbYesNo, "Confirmation") = vbYes Then
Sheets("SAISIE").Unprotect
Range("c12").Select
Selection.ClearContents
Range("G5").Value = "Date"
    Range("j6").Select
    Selection.ClearContents

Sheets("Original").Range("B15:K59").Copy Destination:=Sheets("SAISIE").Range("B15:K59")
ActiveSheet.Protect
Range("C12").Select
End If
End Sub

qui a pour but d'effacer la feuille "SAISIE" et d'y coller les données de la feuille "Original"
le problème est qu'au bout de quelques effacements la feuille "SAISIE" rame énormément et pour y remédier je la supprime et fais une copie de la feuille "Original" que je renomme "SAISIE"
Mes questions:
Est ce normale que ça rame
Peut on créer une macro qui supprime la feuille "SAISIE", qui fasse une copie de la feuille "Original" et qui la renomme "SAISIE" ?
Merci à tous

 

[kjin]

Re : Effacer feuille et recopie "vierge"

Doublon la faute à Java

 

[kjin]

Re : Effacer feuille et recopie "vierge"

Bonsoir,
Avec "l' Henry Gistrair de McRow" (enregistreur de macro, dixit MJ13), tu y arriveras sans doute tout seul.Restera ensuite à nettoyer le code de tous les "select" et "scrollrow" inutiles.
Essaies et reviens si ça coince
A+
kjin

 

[tactic6]

Re : Effacer feuille et recopie "vierge"

Re bonsoir à tous
je sais que je suis mauvais et vous demande beaucoup d'indulgence
voici mon code
svp pourriez vous y jeter un oeil et me dire

Sub onglet
Sheets (SAISIE).delete
Sheets (Original).copy
Sheets (Original2).Select
Sheets (Original2).Name = SAISIE
End Sub

Vous en pensez quoi ?
Bien sur ça ne marche pas

 

[kjin]

Re : Effacer feuille et recopie "vierge"

Re,
C'est correct
Juste désactiver le message d'alerte pour la suppression de feuille et enlever le "select"

Sub Onglet()
Application.DisplayAlerts = False
    Sheets("Saisie").Delete
    Sheets("Original").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Saisie"
Application.DisplayAlerts = True
End Sub

 

[tactic6]

Re : Effacer feuille et recopie "vierge"

Re,
merci pour ton aide

 

[tactic6]

Re : Effacer feuille et recopie "vierge"

Re
Nickel
et pour la remettre en position 1
que dois je rajouter
Merci

 

[tactic6]

Re : Effacer feuille et recopie "vierge"

Re
j'ai trouvé
pour ceux que ça intéresse

Sub Onglet()
Application.DisplayAlerts = False
    Sheets("Saisie").Delete
    Sheets("Original").Copy After:=Sheets(1)
    ActiveSheet.Name = "Saisie"
Application.DisplayAlerts = True
End Sub