Créer ou remplacer une feuille de calcul

Les exemples suivants montrent comment déterminer si une feuille de calcul existe, puis comment créer ou remplacer la feuille de calcul.

Exemple de code fourni par : Tom Urtis, Atlas Programming Management

Détermination de l’existence d’une feuille de calcul

Cet exemple montre comment déterminer si une feuille de calcul nommée « Sheet4 » existe à l’aide de la propriété Name de l’objet Worksheet . Le nom de la feuille de calcul est spécifié par la variable mySheetName.

Sub TestSheetYesNo()
    Dim mySheetName As String, mySheetNameTest As String
    mySheetName = "Sheet4"
    
    On Error Resume Next
    mySheetNameTest = Worksheets(mySheetName).Name
    If Err.Number = 0 Then
        MsgBox "The sheet named ''" & mySheetName & "'' DOES exist in this workbook."
    Else
        Err.Clear
        MsgBox "The sheet named ''" & mySheetName & "'' does NOT exist in this workbook."
    End If
End Sub

Création de la feuille de calcul

Cet exemple montre comment déterminer si une feuille de calcul nommée « Sheet4 » existe. Le nom de la feuille de calcul est spécifié par la variable mySheetName. Si la feuille de calcul n'existe pas, cet exemple montre comment créer une feuille de calcul nommée « Sheet4 » à l'aide de la méthode Add de l'objet Worksheets.

Sub TestSheetCreate()
    Dim mySheetName As String, mySheetNameTest As String
    mySheetName = "Sheet4"
    
    On Error Resume Next
    mySheetNameTest = Worksheets(mySheetName).Name
    If Err.Number = 0 Then
        MsgBox "The sheet named ''" & mySheetName & "'' DOES exist in this workbook."
    Else
        Err.Clear
        Worksheets.Add.Name = mySheetName
        MsgBox "The sheet named ''" & mySheetName & "'' did not exist in this workbook but it has been created now."
    End If
End Sub

Remplacement de la feuille de calcul

Cet exemple montre comment déterminer si une feuille de calcul nommée « Sheet4 » existe. Le nom de la feuille de calcul est spécifié par la variable mySheetName. Si la feuille de calcul n'existe pas, cet exemple montre comment supprimer la feuille de calcul existante à l'aide de la méthode Delete de l'objet Worksheet, puis comment créer une feuille de calcul nommée « Sheet4 ».

Important Toutes les données de la feuille de calcul d’origine nommée « Sheet4 » sont supprimées lorsque la feuille de calcul est supprimée.

Sub TestSheetReplace()
    Dim mySheetName As String
    mySheetName = "Sheet4"
    
    Application.DisplayAlerts = False
    On Error Resume Next
    Worksheets(mySheetName).Delete
    Err.Clear
    Application.DisplayAlerts = True
    Worksheets.Add.Name = mySheetName
    MsgBox "The sheet named ''" & mySheetName & "'' has been replaced."
End Sub

À propos du collaborateur

MVP Tom Urtis est le fondateur de gestion Atlas de programmation, un service complet Microsoft Office et société de solutions d’entreprise Excel dans la Silicon Valley. Tom comporte plus de 25 ans d’expérience dans la gestion d’entreprise et de développement Microsoft Office applications et représente co-auteur de « Macro Sainte ! Il existe 2 500 exemples VBA Excel ».

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.