Pb code VBA - suppression onglet (sauf 1)

[zebanx]

Bonjour,

J'ai un problème de code pour un fichier que je dois régulièrement purger sauf un onglet (recap) que je tiens à conserver.
Pourriez-vous svp m'aider pour la correction du code de la macro suivante ? Merci pour votre aide

Sub SUPPRIME2()
Dim i As Integer
Sheets("RECAP").Select
On Error GoTo FIN
For i = 1 To Worksheets.Count
Application.DisplayAlerts = False
If UCase(Sheets(i).Name) <> "RECAP" Then
Sheets(i).Delete
End If
Next i
Application.DisplayAlerts = True
FIN:
End Sub

 

[pierrejean]

Bonjour zebanx

Teste cette modification:

   For i =  Worksheets.Count to 1 step -1

 

[vgendron]

Hello
avec ceci peut etre .. pas besoin de compter le nombre de feuilles

For Each ws In ActiveWorkbook.Sheets
    If UCase(ws.Name) <> "RECAP" Then ws.Delete
Next ws

 

[zebanx]

Merci messieurs pour cette aide qui permet de résoudre le code -)

-------
Je redonne le code complet pour ceux qui seraient intéressés

Sub SUPPRIME()
'
Dim i As Integer
Sheets("RECAP").Select
On Error GoTo FIN
For Each ws In ActiveWorkbook.Sheets
Application.DisplayAlerts = False
If UCase(ws.Name) <> "RECAP" Then ws.Delete
Next ws
FIN:
End Sub