Discussion :

[Brkahh]

Bonjour,

Je voudrais supprimer toutes les worksheets existantes après une Worksheet nommée "ABC".

J'ai pour l'instant le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Sub DeleteSheets()
 
For Each Worksheet In Worksheets
If (Worksheet.Name <> "AAA" Or Worksheet.Name <> "BBB" Or Worksheet.Name <> "CCC" Or Worksheet.Name <> "ABC") Then
Worksheet.Delete
End If
Next
 
End Sub

Le code ne fonctionne pas très bien et je trouve ca un peu rigide.

Comment pourrais-je faire?

Merci beaucoup

B.

[Philippe Tulliez]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub DeleteSheets()
 Dim flagDelete As Boolean
 Dim sht As Worksheet
 Application.DisplayAlerts = False
 For Each sht In Worksheets
  If flagDelete Then sht.Delete
  If Not (flagDelete) Then flagDelete = (sht.Name = "ABC")
 Next
 Application.DisplayAlerts = True
End Sub