Tester ou vérifier si la feuille existe

Question

Dim wkbkdestination As Workbook
Dim destsheet As Worksheet

For Each ThisWorkSheet In wkbkorigin.Worksheets 
    'this throws subscript out of range if there is not a sheet in the destination 
    'workbook that has the same name as the current sheet in the origin workbook.
    Set destsheet = wkbkdestination.Worksheets(ThisWorkSheet.Name) 
Next

En gros, je passe en revue toutes les feuilles du classeur d'origine, puis j'active la fonction destsheet dans le classeur de destination vers la feuille portant le même nom que la feuille actuellement itérée dans le classeur d'origine.

Comment puis-je tester si cette feuille existe ? Quelque chose comme :

If wkbkdestination.Worksheets(ThisWorkSheet.Name) Then

Answer 1

Avec plusieurs années de retard, mais j'avais besoin de faire ça et je n'aimais aucune des solutions postées... J'en ai donc inventé une, grâce à la magie de (geste des mains arc-en-ciel de Bob l'éponge) "Evaluate()" !

Evaluate("IsError(" & vSheetName & "!1:1)")

Renvoie VRAI si la feuille n'existe pas ; FAUX si la feuille existe. Vous pouvez substituer n'importe quelle plage à "1:1", mais je vous déconseille d'utiliser une seule cellule, car si elle contient une erreur (par exemple, #N/A), elle retournera True.

Answer 2

Mettez le test dans une fonction et vous pourrez le réutiliser et vous aurez une meilleure lisibilité du code.

N'utilisez PAS l'option "On Error Resume Next" car elle pourrait entrer en conflit avec d'autres parties de votre code.

Sub DoesTheSheetExists()
    If SheetExist("SheetName") Then
        Debug.Print "The Sheet Exists"
    Else
        Debug.Print "The Sheet Does NOT Exists"
    End If
End Sub

Function SheetExist(strSheetName As String) As Boolean
    Dim i As Integer

    For i = 1 To Worksheets.Count
        If Worksheets(i).Name = strSheetName Then
            SheetExist = True
            Exit Function
        End If
    Next i
End Function

Answer 3

Pourquoi ne pas simplement utiliser une petite boucle pour déterminer si la feuille de calcul nommée existe ? Imaginons que vous recherchiez une feuille de calcul nommée "Sheet1" dans le classeur actuellement ouvert.

Dim wb as Workbook
Dim ws as Worksheet

Set wb = ActiveWorkbook

For Each ws in wb.Worksheets

    if ws.Name = "Sheet1" then
        'Do something here
    End if

Next

Answer 4

Public Function WorkSheetExists(ByVal strName As String) As Boolean
   On Error Resume Next
   WorkSheetExists = Not Worksheets(strName) Is Nothing
End Function

sub test_sheet()

 If Not WorkSheetExists("SheetName") Then
 MsgBox "Not available"
Else MsgBox "Available"
End If

End Sub

Answer 5

    For Each Sheet In Worksheets
    If UCase(Sheet.Name) = "TEMP" Then
    'Your Code when the match is True
        Application.DisplayAlerts = False
        Sheet.Delete
        Application.DisplayAlerts = True
    '-----------------------------------
    End If
Next Sheet