Suppression onglets sous conditions

[mfb]

Bonjour à Tous.
Une macro récupérée sur le forum permet de supprimer des onglets (feuille) avec des conditions sur leurs noms.
En l'occurrence, dans le fichier joint, les 2 premiers caractères du nom à savoir 20.
Si au 1er clic tous les onglets dont le nom commence par 20 s' effacent bien au 2ème un autre onglet ne débutant pas par 20 s' efface ???
J'ai, sans succès, tenté de mettre une condition si 2 premiers caractères sont<> 20 mais sans succès.
Je m'en remets à vos compétences.
Merci d'avance;
A+
Daniel

 

[john]

Re : Suppression onglets sous conditions

Bonjour,

Mets ceci dans ton code du bouton :
Sub Bouton1_Clic()
Dim feuille As Variant
Application.DisplayAlerts = False
For Each feuille In Worksheets
If Left(feuille.Name, 2) = "20" Then
feuille.Activate
feuille.Delete
End If
Next feuille
Application.DisplayAlerts = True
End Sub

Bonne fin de journée.

John

 

[mfb]

Re : Suppression onglets sous conditions

Re,
C'est exact ça marche.
Merci John
A+
Daniel

 

[john]

Re : Suppression onglets sous conditions

De rien
Bonne fin de journée.
John