XL 2016 Supprimer les copies d'une feuille

Patrice33740

XLDnaute Impliqué

• 29 Mars 2020

• #2

Si on se limite à ton exemple, il suffit de supprimer les feuille dont le nom se termine par une parenthèse.

Mais le meilleur moyen de détecter une copie d'une feuille dans un classeur, c'est de d'utiliser un codename spécifique : toutes les copies commencent par ce codename.

 

Vote positif 0 Vote négatif

C

christ77000

XLDnaute Occasionnel

• 30 Mars 2020

• #3

J'ai tester ce code mais ca plante sur end If sans bloc If

VB:

Sub Supfeuil()
Dim Ws As Worksheet
If Ws.Name Like "(*)" Then
  Application.DisplayAlerts = False
  For Each Ws In Sheets
          Ws.Delete
End If
  Next Ws
  Application.DisplayAlerts = True
    
End Sub

 

Vote positif 0 Vote négatif

Patrice33740

XLDnaute Impliqué

• 30 Mars 2020

• #4

Ce serait plutôt :

VB:

Sub Supfeuil()
Dim Ws As Worksheet
  For Each Ws In Sheets
      If Ws.Name Like "*(*)" Then
          Application.DisplayAlerts = False
          Ws.Delete
          Application.DisplayAlerts = True
      End If
  Next Ws
End Sub

 

Vote positif 0 Vote négatif

Solution

C

christ77000

XLDnaute Occasionnel

• 30 Mars 2020

• #5

Merci beaucoup 33740

 

Vote positif 0 Vote négatif