Suppr feuille sauf une nommée Bilan

[julien974]

Bonjour,

Je recherche une macro qui supprime toutes les feuilles d'un classeur sauf celle se nommant "bilan"

Existe t elle?

Merci de votre implication,

Juli3n974

 

[sousou]

Re : Suppr feuille sauf une nommée Bilan

Bonjour

Quelquechose comme cela doit fonctionner
displayalert=false empèche excel de demander la confirmation de la suppression

application.displayalerts=false
For each f in sheets
if f.name<>"bilan"then f.delete
next

 

[Etienne2323]

Re : Suppr feuille sauf une nommée Bilan

Bonjour Julien974,
tu peux essayer quelque chose comme ceci :

Sub test()

Dim Sheet As Object
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
For Each Sheet In Worksheets
 'Si le nom de la feuille est différent de Bilan, alors supprime la.
    If Sheet.Name <> "Bilan" Then
        Sheet.Delete
    End If
    
Next
 
Application.DisplayAlerts = True
Application.ScreenUpdating = True
 
End Sub

Cordialement,

Étienne

 

[Catrice]

Re : Suppr feuille sauf une nommée Bilan

Bonsoir,

Tu peux essayer ceci :

Sub test()
Application.DisplayAlerts = False
For Each X In ThisWorkbook.Sheets
If X.Name <> "bilan" Then X.Delete
If Sheets.Count = 1 Then Exit Sub
Next
Application.DisplayAlerts = True
End Sub

 

[julien974]

Re : Suppr feuille sauf une nommée Bilan

Merci les Exceliens, toutes vos réponses fonctionnent!!!

Cordialement,

Juli3n974