supprimer onglets si numérique

Citaro · 24 Février 2011

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 · 24 Février 2011

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...

Code:

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 · 24 Février 2011

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 · 24 Février 2011

Bonjour Citaro,

Pas piger la fin de ta question, mais bon :

Code:

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

supprimer onglets si numérique

Citaro

XLDnaute Occasionnel

Pièces jointes

Pierrot93

XLDnaute Barbatruc

Citaro

XLDnaute Occasionnel

klin89

XLDnaute Accro

Discussions similaires

supprimer onglets si numérique

Citaro

XLDnaute Occasionnel

Pièces jointes

Pierrot93

XLDnaute Barbatruc

Citaro

XLDnaute Occasionnel

klin89

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency