XL 2013 Supprimer les Feuilles Excel

[Joseph Haroun]

Bonsoir à la communauté !
Je viens demander l'aide ici parce j'aimerais avoir un code VBA Excel qui puisse me permettre de supprimer une série de feuilles dans un classeur Excel. Notez bien : je souhaite garder une seule feuille.
Je joins un exemple du fichier. Merci d'avance !

 

[Staple1600]

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)

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.

 

[Staple1600]

Re

Pour la question, une solution possible

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

 

[Joseph Haroun]

Re

Pour la question, une solution possible

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

Salut Staple1600 !
Merci beaucoup pour ta prompte réaction à ma difficulté.
Je vais l'essayer et si j'éprouve encore de difficulté sur le sujet, je fais savoir. Encore merci !

 

[Staple1600]

Re

Supprimes ton fichier
Voir le message N°2

 

[Joseph Haroun]

Re

Supprimes ton fichier
Voir le message N°2

Staple1600,
En fait j'aimerais garder la feuille spécifique "Data base" dans mon fichier attaché en annexe.

 

[Joseph Haroun]

OK voici mon fichier Excel où je ne voudrais garder que la feuille nommée "DataBase". Comment supprimer automatiquement par code VBA le reste des feuilles ?
J'espère que mon fichier est maintenant conforme au règlement du Site.

 

[David Aubert]

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

 

[job75]

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

Cette macro n'utilise pas de boucle :

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.

 

[Joseph Haroun]

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

Cette macro n'utilise pas de boucle :

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.

Salut job75 !
Merci pour ta solution à ma préoccupation. Je vais l'essayer et te ferai sous peu le feedback.
Bonne journée !

 

[Joseph Haroun]

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)

Merci beaucoup. Je l'ai noté. Bonne journée !

 

[Joseph Haroun]

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

Merci beaucoup DAVID XLD !
Je ne savais plus comment m'y prendre.

 

[Joseph Haroun]

Bonjour Staple 1600, Bonjour job75 !
Vos solutions ont résolu mon problème. Je vous en remercie.
Merci également à David XLD qui m'a aidé à supprimer le fichier non conforme .
A+
Yusufu