A voir également:
- Comment supprimer des feuilles temporaires
- Comment supprimer une page sur word - Guide
- Supprimer compte instagram - Guide
- Supprimer fichiers temporaires windows 10 - Guide
- Comment supprimer bing - Guide
- Supprimer edge - Guide
1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
Modifié par pijaku le 27/04/2011 à 15:22
Modifié par pijaku le 27/04/2011 à 15:22
Salut,
!!! Attention ce code contient un .Delete!! A tester sur une copie de votre classeur
Supprime les feuilles répertoriées dans le Array : "Feuil3", "Feuil4", "Feuil5" et "Feuil6" seront donc supprimées...
Franck P
!!! Attention ce code contient un .Delete!! A tester sur une copie de votre classeur
Supprime les feuilles répertoriées dans le Array : "Feuil3", "Feuil4", "Feuil5" et "Feuil6" seront donc supprimées...
Sub SupprFeuilTemp() Dim FeuilTemp As Variant For Each FeuilTemp In Array("Feuil3", "Feuil4", "Feuil5", "Feuil6") Application.DisplayAlerts = False With Sheets(FeuilTemp) .Delete End With Application.DisplayAlerts = True Next End Sub
Franck P
29 avril 2011 à 09:36
29 avril 2011 à 10:21
De rien pour la réponse.
Voici un autre code alors :
1- si tu es sure de toi (et de moi...) et que tu ne veux plus des messages d'alerte, suffit de passer les lignes 'Application.DisplayAlerts = False et 'Application.DisplayAlerts = True en ligne de code (supprime les ' devant)
2- On ne le dira jamais assez : Ce code contient un .Delete, à tester sur une copie de fichier
3- les sources de la fonction sont citées dans le code...
A+
29 avril 2011 à 11:31
Et bien c'est parfait, c'est exactement ce que je voulais, merci beaucoup pour ton aide
a++