XL 2016 Supprimer les copies d'une feuille

christ77000 · 29 Mars 2020

Bonsoir, j'ai un bout de code qui me supprime bien la feuille nommée en D29.
Maintenant j'ai une macro pour créer des copies de feuilles. Ma question est comment supprimer une suite de feuille sans supprimer l'original
exemple je copie la feuil1 donc j'ai bien Feuil1, Feuil1 (2), Feuil1 (3), Feuil1 (4) ne pas supprimer Feuil1. Merci pour votre aide.

VB:

Dim plageNoms As Range
Set plageNoms = Range("D29")
Application.DisplayAlerts = False
For Each cell In plageNoms
Sheets(cell.Value).Delete

Patrice33740 · 30 Mars 2020

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

Patrice33740 · 29 Mars 2020

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.

christ77000 · 30 Mars 2020

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

Patrice33740 · 30 Mars 2020

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

christ77000 · 30 Mars 2020

Merci beaucoup 33740

XL 2016 Supprimer les copies d'une feuille

christ77000

XLDnaute Occasionnel

Patrice33740

Patrice33740

XLDnaute Impliqué

christ77000

XLDnaute Occasionnel

Patrice33740

XLDnaute Impliqué

christ77000

XLDnaute Occasionnel

Discussions similaires