Conserver un onglet

[sonskriverez]

Bonjour le forum

avez_vous une petite macro qui supprimerai tous les onglets sauf celui qui dont le nom commence par "Data"

Merci de votre aide

 

[Guiv]

Re : Conserver un onglet

Bonjour,

A copier dans un module standard:

Sub SupprimeFeuilles()

Application.DisplayAlerts = False
For i = Sheets.Count To 1 Step -1
If Left(Sheets(i).Name, 4) <> "Data" Then
Sheets(i).Delete
End If
Next i
Application.DisplayAlerts = True

End Sub

Bonne soirée

Guiv

 

[sonskriverez]

Re : Conserver un onglet

Super merci Guiv

bonne soirée à tous

 

[vbacrumble]

Re : Conserver un onglet

Bonsoir

si on respecte à la lettre

macro qui supprimerai tous les onglets sauf celui qui dont le nom commence par "Data"

Sub SupprimeFeuilles2()
Application.DisplayAlerts = False
For i = 1 to Sheets.Count 
If Not Sheets(i).Name Like "Data*" Then
Sheets(i).Delete
End If
Next i
Application.DisplayAlerts = True
End Sub