Bonjour à tous,
Dans un fichier, j'ai une macro qui supprime des feuilles commençant par "feuil". Elle fonctionne très bien lorsqu'il y a des feuilles qui commencent par "feuil" dans mon classeur.
Par contre, lorsqu'il y en a pas, elle me supprime la feuille (qui se nomme "MODOP") où je l'ai insérée!
Savez-vous pourquoi svp?
Voici ma macro:
Sub suppr()
'
' suppr Macro
'
'
'supprime les messages d'alerte
Application.DisplayAlerts = False
For Each Feuille In Worksheets
If Left(Feuille.Name, 5) = "Feuil" Then
If x = 0 Then
Feuille.Activate
x = 1
End If
Feuille.Select Replace:=False
End If
Next Feuille
ActiveWindow.SelectedSheets.Delete
Sheets("MODOP").Select
'rétabli les messages d'alerte
Application.DisplayAlerts = True
End Sub
Merci et bonne journée
Dans un fichier, j'ai une macro qui supprime des feuilles commençant par "feuil". Elle fonctionne très bien lorsqu'il y a des feuilles qui commencent par "feuil" dans mon classeur.
Par contre, lorsqu'il y en a pas, elle me supprime la feuille (qui se nomme "MODOP") où je l'ai insérée!
Savez-vous pourquoi svp?
Voici ma macro:
Sub suppr()
'
' suppr Macro
'
'
'supprime les messages d'alerte
Application.DisplayAlerts = False
For Each Feuille In Worksheets
If Left(Feuille.Name, 5) = "Feuil" Then
If x = 0 Then
Feuille.Activate
x = 1
End If
Feuille.Select Replace:=False
End If
Next Feuille
ActiveWindow.SelectedSheets.Delete
Sheets("MODOP").Select
'rétabli les messages d'alerte
Application.DisplayAlerts = True
End Sub
Merci et bonne journée