Macro : suppr des onglets fonction des résultats d'une cellule
Fermé
Van
-
30 janv. 2018 à 11:22
f894009 Messages postés 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 - 30 janv. 2018 à 11:48
f894009 Messages postés 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 - 30 janv. 2018 à 11:48
A voir également:
- Macro : suppr des onglets fonction des résultats d'une cellule
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro recorder - Télécharger - Confidentialité
- Tri automatique excel sans macro ✓ - Forum Excel
1 réponse
f894009
Messages postés
17189
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
6 mai 2024
1 705
30 janv. 2018 à 11:48
30 janv. 2018 à 11:48
Bonjour,
un exemple de code a adapter si besoin
un exemple de code a adapter si besoin
Sub sup_feuille() Dim T_Feuil() Application.DisplayAlerts = False 'pas de messagebox pour suppression nf = Worksheets.Count 'nombre de feuille ReDim T_Feuil(nf + 1) 'dimension tableau nom feuille 'boucle our recup nom de feuille For n = 1 To nf T_Feuil(n) = Worksheets(n).Name Next n On Error Resume Next 'traite erreur a la suite sup feuille For n = 1 To nf If Worksheets(T_Feuil(n)).Range("A1") = "VT" Or Worksheets(T_Feuil(n)).Range("A1") = "LP" Then Worksheets(T_Feuil(n)).Delete End If Next n Application.DisplayAlerts = True End Sub