Supprimer la fiche where name like

Comment puis-je supprimer une feuille où le nom de la feuille comme

Left(SheetExists.Name, 16) = "Mgt Report as at"

Essayé:

Sheets(Left(SheetExists.Name, 16) = "Mgt Report as at").Delete

OriginalL'auteur HL8 | 2012-08-24

  1. 12

    Quelque chose comme ça (pas testé):

    For Each s in ActiveWorkbook.Sheets
    If Left(s.Name, 16) = "Mgt Report as at" Then
        s.Delete
    End If
Next s
    + 1 N'est que l'OP voulait.

    OriginalL'auteur assylias

  2. 4

    Une autre manière, en utilisant des LIKE comme vous l'avez mentionné dans le titre de votre question.

    Également noter que, dans un tel scénario, vous devez être prudent lorsque vous supprimez les feuilles. Voir les commentaires dans le code ci-dessous.

    Option Explicit

Sub Sample()
    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Sheets
        If ws.Name Like "Mgt Report as at" & "*" Then
            '~~> This check is required to ensure that you don't get an error
            '~~> if there is only one sheet left and it matches the delete criteria
            If ThisWorkbook.Sheets.Count = 1 Then
                MsgBox "There is only one sheet left and you cannot delete it"
            Else
                '~~> This is required to supress the dialog box which excel shows
                '~~> When you delete a sheet. Remove it if you want to see the
                '~~~> Dialog Box
                Application.DisplayAlerts = False
                ws.Delete
                Application.DisplayAlerts = True
            End If
        End If
    Next
End Sub

    OriginalL'auteur Siddharth Rout