supprimer onglets si numérique

[Citaro]

Bonjour au forum,
Je voudrais trouver un code VBA pour supprimer tous les onglets qui ont un nombre qui varie suivant les cas comme nom.
Merci d'avance
Citaro

 

[Pierrot93]

Re : supprimer onglets si numérique

Bonjour Citaro,

je te suggerais tout d'abord cette lecture :
Lien supprimé

très peu d'explication dans ton post et dans ton fichier d'ailleurs... Avec ce que je suppose...

Option Explicit
Sub test()
Dim ws As Worksheet
On Error Resume Next
Application.DisplayAlerts = False
For Each ws In Worksheets
    If IsNumeric(ws.Name) Then ws.Delete
Next ws
Application.DisplayAlerts = True
End Sub

bon après midi
@+

 

[Citaro]

Re : supprimer onglets si numérique

Merci Pierrot 93 pour la réponse,
Pour la première partie , tu as raison, je me suis empressé de faire le post avec un manque de politesse évident.
Désolé
Pour le code, il fonctionne à merveille

Merci Citaro

 

[klin89]

Bonjour Citaro,

Pas piger la fin de ta question, mais bon :

Sub test()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Worksheets
    If IsNumeric(ws.Name) Then ws.Delete
Next ws
Application.DisplayAlerts = True
End Sub

Klin89