Discussion :

[thomas1806]

Bonjour à tous

Je ne trouve pas la façon pour créé une contition si une feuille existe et si oui la supprimer

Du style

Code :

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

1
2
3
4
5
If NomFeuille Existe Then
 
Supprimer Nom feuille
 
End If

Je précise que les noms des feuilles sont renommer par une variable.

merci

[Krovax]

Bonjour
plus simple
Tu veux supprimer la feuille bob tu lui dit : supprime la feuille bob et si tu la trouve pas ne viens pas me casser les .... avec une erreur

Code :

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

1
2
3
4
5
6
7
Dim nomfeuille as string
Nomfeuille="Nom de ta feuille"
 Application.DisplayAlerts=false 'pas de demande de confirmation
on error resume next 'en cas d'erreur continu
Sheets(Nomfeuille).delete
on error goto 0 'en cas d'erreur comporte toi normalement
 Application.DisplayAlerts=True

[Gorfael]

Salut Krovax et le forum
Personnellement, j'aurais plutôt employé "on error resume next" et "on error goto 0" mais chacun sa méthode.
Par contre, si tu veux savoir si elle existe pour tavailler dessus, il existe plusieurs méthodes.
A+

[aalex_38]

Bonjour,

A chacun sa méthode, avant de créer on peut aussi tester tous les noms existant, je sais c'est lourd.

Un exemple extrait d'un focntion perso, Mysheet, le nom de la feuille a créer, Mydel un booléen si suppression :

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
17
18
19
20
21
22
23
24
Function Add_sheet(ByVal MySheet As String, Optional Mydel As Boolean) As Boolean
Dim F1 As Worksheet
For Each F1 In Sheets
If F1.Name = MySheet Then
    If Mydel Then
        F1.Delete
        Exit For
    End If
 
    MsgBox "La feuille " & F1.Name & " existe déja", vbInformation, "Classeur " & F1.Parent.Name
    Exit Function
End If
 
Next
 
' ------------------------------- '
' Ajout de l'onglet
' ------------------------------- '
Set F1 = Sheets.Add(After:=Sheets(Sheets.Count))
F1.Name = MySheet
 
Add_sheet = True
 
End Function