Vba - Supprimer puis créer feuille

pepsi · 30 Mars 2011

Bonjour,

J'ai une macro qui supprime puis créé une feuille excel

Mais avant de la supprimer, je voudrais d'abord vérifier si elle existe car sinon, le code ne marche pas.

Donc, si elle n'existe pas, ne pas demander la supression.

Comment faire ?

Merci d'avance

Code:

Sub copier()

Application.DisplayAlerts = False

Sheets("copie_feuil").Delete

Application.DisplayAlerts = True

Sheets("feuil2").Select

ActiveSheet.Copy after:=Sheets(4)
ActiveSheet.Name = "copie_feuil"

End Sub

Guest · 30 Mars 2011

Re: Vba

Bonjour,

Code:

Sub copier()
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("copie_feuil").Delete
    On Error GoTo 0
    Application.DisplayAlerts = True
    Sheets("feuil2").Select
    ActiveSheet.Copy after:=Sheets(4)
    ActiveSheet.Name = "copie_feuil"
End Sub

Méthode 2 (en parcourant toutes les feuilles)

Code:

Sub copier()
    Dim sh
    Application.DisplayAlerts = False
    For Each sh In Worksheets
        If sh.Name = "copie_feuil" Then sh.Delete
    Next
    Application.DisplayAlerts = True
    Sheets("feuil2").Select
    ActiveSheet.Copy after:=Sheets(4)
    ActiveSheet.Name = "copie_feuil"
End Sub

A+

Vba - Supprimer puis créer feuille

pepsi

XLDnaute Occasionnel

Guest

Guest

Discussions similaires

Vba - Supprimer puis créer feuille

pepsi

XLDnaute Occasionnel

Guest

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency