Discussion :

[Ploucouille]

Bonjour,

j'ai bidouillé à partir de scripts récupérés sur le forum cette macro pour supprimer les feuilles inutiles dans mon classeur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub supprimer_feuille_inutiles()
Dim Ws As Worksheet
Application.DisplayAlerts = False
    'Boucle sur toutes les feuille de calcul du classeur.
    For Each Ws In ThisWorkbook.Worksheets
        If Not (Ws.Name = "donnees") Then
        ActiveSheet.Delete
        End If
    Next Ws
End Sub

malheuresement, elle ne supprime pas toutes les feuilles.
Avant

Après 3 éxécutions de la macro


Il faut donc que je l'exécute plusieurs fois pour arriver à mes fins.

Savez vous pourquoi elle ne marche pas du premier coup.

Merci beaucoup,
Guillaume

[melouille56]

Salut

il faut que tu mettes :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub supprimer_feuille_inutiles()
Dim Ws As Worksheet
Application.DisplayAlerts = False
    'Boucle sur toutes les feuille de calcul du classeur.
    For Each Ws In ThisWorkbook.Worksheets
        If Not (Ws.Name = "donnees") Then
        Ws.Delete
        End If
    Next Ws
End Sub

Ws.Delete et pas ActiveSheet.Delete

[Ploucouille]

Merci beaucoup pour cette réponse rapide.

Ca marche nikel!