Discussion :

[Progeric]

Bonjour,

Est-il possible de supprimer les feuilles dont le CodeName commence par "Feuil"
J'ai cette macro mais je me demande s'il n'y a pas plus simple

Merci pour votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub suppfeuil()
  Application.ScreenUpdating = False 'Désactivation de la mise à jour de l'écran pour gain de temps
  Application.Calculation = xlCalculationManual 'Désactivation du calcul auto sur modif
  '  supprimer tous les onglets qui ne sont ni "SOURCE" ni "LISTE"
  For Each nomfeuil In Worksheets
    Select Case nomfeuil.CodeName
      Case "SOURCE"
      Case "LISTE"
      Case Else
        Application.DisplayAlerts = False ' Désactivation de la demande de suppression
        nomfeuil.Delete
        Application.DisplayAlerts = True ' Activation de la demande de suppression
    End Select
  Next nomfeuil

[Raccourcix]

Bonjour

Je ne sais pas si c'est plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    Application.DisplayAlerts = False
       
    For i = Worksheets.Count To 1 Step -1
            If vos conditions Then Worksheets(i).Delete
    Next i
    Application.DisplayAlerts = True

Stéphane

[Progeric]

Merci pour cet autre code mais par plus simple j'entends ne pas faire de boucle du style :
Select all worksheets if left(codename,5)="Feuil"
puis
delete.select

Pas de boucle avec select case ou for next

[deedolith]

Hello,

La collection Worksheets contient les index / noms des feuilles.
Hors, tu as besoin de la propriété CodeName, tu n'as pas 36 solutions:
1) Faire une boucle.
2) Passer par un gestionnaire d'erreur, mais c'est très moche, je ne recommande pas.

[Philippe Tulliez]

Bonjour,
A moins de connaître à l'avance le nom des feuilles, je ne vois pas comment on pourrait se passer d'une boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub t()
  Dim sht As Worksheet
  Application.DisplayAlerts = False
  For Each sht In ThisWorkbook.Worksheets
    With sht
     If Left(.CodeName, 5) = "Feuil" Then .Delete
    End With
  Next
  Application.DisplayAlerts = True
  Set sht = Nothing
End Sub

En connaissant le nom des feuilles (pas le CodeName)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub T1()
  Application.DisplayAlerts = False
  Sheets(Array("Feuil35", "Feuil36", "Feuil37")).Delete
  Application.DisplayAlerts = True
End Sub

[Progeric]

Merci pour vos réponses
Tant pis, je vais faire une boucle

[Nain porte koi]

juste pour rigoler parce que ça n'exclu pas une boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
' suppression des feuilles sans faire de boucle
    Application.DisplayAlerts = False
    Sheets(Feuille).Delete
    Application.DisplayAlerts = True

Ah mais il manque le contenu de "Feuille"... qui est un tableau... rempli par une boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Option Explicit
Option Base 1
 
Sub t()
 
    Dim i As Long
    Dim Nb_Feuille As Long
    Dim Num_Feuille As Long
 
    Nb_Feuille = ThisWorkbook.Worksheets.Count
    Dim Feuille() As String
    ReDim Feuille(Nb_Feuille)
 
    For i = 1 To ThisWorkbook.Worksheets.Count
        If Left(Worksheets(i).CodeName, 5) = "Feuil" Then
            Num_Feuille = Num_Feuille + 1
            Feuille(Num_Feuille) = Worksheets(i).Name
        End If
    Next i
    ReDim Preserve Feuille(Num_Feuille)
 
' suppression des feuilles sans faire de boucle
    Application.DisplayAlerts = False
    Sheets(Feuille).Delete
    Application.DisplayAlerts = True
 
End Sub

[deedolith]

@Nain porte koi:

Ca ne peut pas fonctionner.
La propriété par defaut (Item) de la collection Sheets prend en paramètre soit l'index (un entier au sens mathématique) soit le nom (une chaine de caractères) d'une et une seule feuille.
En aucun cas un tableau ni conteneur quelconque.

[Nain porte koi]

@deedolith euh... chez moi ça fonctionne et l'enregistreur le propose aussi

[deedolith]

Etonnant,
Office 365 ?

Sur 2016, ca fait coin coin.

[Nain porte koi]

Ah oui, effectivement c'est du 365, je ne pensais pas que ça avait évolué depuis 2016, surtout que la suppression de feuille n'est pas un truc spécifique à 365