Comment créer une feuille si elle n'existe pas dans le classeur?

En supposant que vous ayez un classeur qui contient plusieurs feuilles de calcul, vous devez maintenant déterminer si un nom de feuille de calcul spécifique existe. Si le nom de la feuille de calcul n'existe pas, veuillez le créer. S'il existe, veuillez envoyer un message d'invite pour vous informer que la feuille existe. Comment pourriez-vous résoudre cette tâche dans Excel?

Créer une feuille si elle n'existe pas dans le classeur avec le code VBA

Créer une feuille si elle n'existe pas dans le classeur avec le code VBA

Le code VBA suivant peut vous aider à vérifier un nom de feuille de calcul spécifique s'il existe dans le classeur, sinon, le code peut créer la feuille selon vos besoins.

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: créez une feuille si elle n'existe pas dans le classeur:

Sub TestSheetCreate()
'Updateby Extendoffice
    Dim newSheetName As String
    Dim checkSheetName As String
    newSheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _
                                    "sheet4", , , , , 2)
    On Error Resume Next
    checkSheetName = Worksheets(newSheetName).Name
    If checkSheetName = "" Then
        Worksheets.Add.Name = newSheetName
        MsgBox "The sheet named ''" & newSheetName & _
        "'' does not exist in this workbook but it has been created now.", _
        vbInformation, "Kutools for Excel"
        
    Else
        MsgBox "The sheet named ''" & newSheetName & _
        "''exist in this workbook.", vbInformation, "Kutools for Excel"
    End If
End Sub

3. Et puis appuyez sur F5 clé pour exécuter ce code, une boîte de dialogue s'affiche pour vous rappeler d'entrer le nom de la feuille que vous souhaitez vérifier, voir capture d'écran:

4. Puis clique OK bouton:

(1.) Si la feuille existe, une boîte de dialogue apparaîtra pour vous rappeler la capture d'écran suivante:

(2.) Si la feuille n'existe pas, elle sera créée immédiatement, voir capture d'écran: