XL 2013 Supprimer les Feuilles Excel

Pour tous

1 - Conformité RGPD
Tout message ou fichier déposé sur ce site ne doit pas comporter de données à caractère personnel (DCP).
Il convient d’anonymiser toutes les données permettant d’identifier directement ou indirectement une personne.
XLD ne saurait être tenu responsable au cas où un visiteur du site posterait des données non conformes à la législation en vigueur.

Cliquez pour agrandir...

Staple1600 à dit:

Re

Pour la question, une solution possible

VB:

Sub SupprimerFeuilles_Sauf_Une()
Dim s As Worksheet
Application.DisplayAlerts = False
For Each s In Worksheets
If s.Index > 1 Then
s.Delete
End If
Next
Application.DisplayAlerts = True
End Sub

Cliquez pour agrandir...

Staple1600 à dit:

Re

Supprimes ton fichier
Voir le message N°2

Cliquez pour agrandir...

job75 à dit:

Bonjour Yusufu ibn Anurahi, JM, David, le forum,

Cette macro n'utilise pas de boucle :

VB:

Sub SupprimerFeuilles()
Sheets("DataBase").Move Before:=Sheets(1) 'place en tête
Application.DisplayAlerts = False
Sheets(Evaluate("TRANSPOSE(ROW(2:" & Sheets.Count & "))")).Delete
End Sub

Bonne journée.

Cliquez pour agrandir...

Staple1600 à dit:

Bonsoir le fil,

Avant de supprimer les feuilles, il faut supprimer le fichier dans ton message
(et le remplacer par un fichier sans données confidentielles)
C'est pourtant indiqué dans la charte du forum au point 1)

Cliquez pour agrandir...

David XLD à dit:

Bonjour,
J’ai supprimé les fichiers avec des données confidentielles...
Bonne soirée
David

Cliquez pour agrandir...