message erreur quand suppression feuille

[bomber]

Bonjour à tous

J'ai un usf avec des checkbox qui correspondent chacun à une feuille (quand celle-ci est créée).Quand la checkbox est cochée la feuille doit s'effacer à la validation.
Je voudrais savoir ce qu'il faut rajouter à mon code pour qu'apparaisse un message d'erreur quand la feuille correspondant à la case à cocher n'existe pas. A chaque fois c'est le message d'erreur 'Erreur d'exécution 9' qui s'affiche.

If supprimerdespermis.supb = True Then
Sheets('B').Delete
End If

If supprimerdespermis.supbavecaac = True Then
Sheets('B avec AAC').Delete
End If
...


Merci d'avance

Guillaume

 

[myDearFriend!]

Bonsoir Guillaume, le Forum,

Si j'ai bien compris la question...
Tu peux essayer le code ci-dessous :

Sub Traitement()
Dim NomFeuille As String
      NomFeuille = 'B'
      If FeuilleExiste(NomFeuille) Then
            Application.DisplayAlerts = False
            Sheets(NomFeuille).Delete
            Application.DisplayAlerts = True
      Else
            MsgBox 'La feuille ' & NomFeuille & ' n'existe pas'
      End If
End Sub

Function FeuilleExiste(F As String) As Boolean
      On Error Resume Next
      FeuilleExiste = Not ThisWorkbook.Sheets(F) Is Nothing
End Function

Cordialement,

 

[bomber]

Bonjour Didier

Merci beaucoup pour ton code ça m'a bien dépanné.

Cordialement