XL 2013 Supprimer les Feuilles Excel

Joseph Haroun · 29 Mai 2019

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 · 29 Mai 2019

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 · 29 Mai 2019

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

Joseph Haroun · 29 Mai 2019

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

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 · 29 Mai 2019

Re

Supprimes ton fichier
Voir le message N°2

Joseph Haroun · 29 Mai 2019

Staple1600 à dit:
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 · 29 Mai 2019

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 · 29 Mai 2019

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

job75 · 29 Mai 2019

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.

Joseph Haroun · 29 Mai 2019

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.

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 · 29 Mai 2019

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)

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

Joseph Haroun · 29 Mai 2019

David XLD à dit:
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 · 30 Mai 2019

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

XL 2013 Supprimer les Feuilles Excel

Joseph Haroun

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Joseph Haroun

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

Joseph Haroun

XLDnaute Junior

Joseph Haroun

XLDnaute Junior

Pièces jointes

David Aubert

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Joseph Haroun

XLDnaute Junior

Joseph Haroun

XLDnaute Junior

Joseph Haroun

XLDnaute Junior

Joseph Haroun

XLDnaute Junior

Discussions similaires