Discussion :

[benoi]

Bonjour,

j'aurai besoin dans un classeur excel, de supprimer une feuille si elle existe!

pourriez-vous m'aider?

Merci d'avance,

Benoit

[Jean-Pierre49]

Bonjour

Essai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    For CompA = 1 To Sheets.Count
        Sheets(CompA).Name ="Toto" then  Sheets(CompA).Delete
    Next CompA

Bon Courage

[Pierre Fauconnier]

Bonjour et bienvenue sur nos forums.

Voici une méthode qui fonctionne. Elle est minimaliste car elle ne gère pas l'erreur éventuelle rencontrée (verrouillage de la structure, par exemple).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    On Error Resume Next
    Application.DisplayAlerts = False
    Sheets("feuil5").Delete
    Application.DisplayAlerts = True

Néanmoins, elle devrait te permettre de t'en sortir

[benoi]

Merci à vous deux!

les deux solutions ont marchés, mais j'ai préféré mettre celle de pierre fauconnier pour éviter d'avoir le message "êtes-vous sur de vouloir supprimer"

Et encore désolé d'avoir posté deux questions dans le même message, je vous jure, chef, ça ne se reproduira plus!

bonne journée,

benoit

[decondelite]

Petite précision sur le code de pierre: si tu place du code derrière, surtout n'oublie pas de mettre l'instruction On Error Goto 0 avant ton code, sinon tu peux avoir des problèmes dans ton code et ne pas les détecter.

Je te suggère donc cette syntaxe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Application.DisplayAlerts = False
On Error Resume Next
Sheets("feuil5").Delete
On Error Goto 0
Application.DisplayAlerts = True
' Ici ton code

[Pierre Fauconnier]

Remarque judicieuse de Decondelite.

Au départ, j'avais voulu donner ma méthode, mais elle peut sembler lourde à certains.

Pourtant, je la préfère à une technique qui utilise la gestion des erreurs.

La voici. Elle s'appuie sur une fonction qui teste l'existence de la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function FeuilleExiste(Nom As String) As Boolean
    Dim sh As Object
 
    For Each sh In Sheets
        If UCase(sh.Name) = UCase(Nom) Then
            FeuilleExiste = True
            Exit For
        End If
    Next
End Function
 
Sub SupprimerFeuille()
    Application.DisplayAlerts = False
    If FeuilleExiste("feuil1") Then Sheets("feuil1").Delete
    Application.DisplayAlerts = True
End Sub