Msgbox quand tentative de création d'1 feuille déjà existant

Bonjour tout le monde !

J'utilise une macro qui creer (entre autre) une feuille nommée "Recap" à son lancement :

Sheets.Add.Name = "Recap"

si cette feuille n'a pas été supprimée avant de relancer la macro, cette derniere plante, ce qui est tout à fait normal.

comment pourrais-je faire pour stopper la macro et afficher un message disant de supprimer ou renommer la feuille avant de lancer la macro quand la feuille "Recap" est déjà présente ?

merci d'avance !

Salut,

Voici une possibilité :

Sub Recap()
Dim i As Integer

' Ton début de code

For i = 1 To Sheets.Count
    If Sheets(i).Name = "Recap" Then
        MsgBox "Une feuille nommée ''Recap'' existe déjà ; la renommer ou la supprimer avant de continuer"
        Exit Sub
    End If
Next
Sheets.Add.Name = "Recap"

' Ta fin de code

End Sub

Cordialement.

C'est parfait, merci beaucoup !

Rechercher des sujets similaires à "msgbox quand tentative creation feuille deja existant"