Logique Feuille_Existe()

[Nairolf]

Salut,

Voici un code inspirer du code de Yeahou : Classeur_Ouvert

Function Feuille_Existe(ByVal Nom_Feuille$) As Boolean
    Application.Volatile
    On Error Resume Next
    Dim Test_Objet As Worksheet
    Set Test_Objet = Worksheets(Nom_Feuille)
    If Not Test_Objet Is Nothing Then Feuille_Existe = True
End Function

 

[Nairolf]

Petite modification (déclaration de la variable Nom_Feuille en chaîne de caractères) à partir du code de patricktoulon : sheetsExiste
J'ai aussi supprimé les éléments qui me semblaient non nécessaires (si je ne me trompe pas).

Function Feuille_Existe(Nom_Feuille As String) As Boolean
    Application.Volatile
    Dim Test_Objet As Worksheet
    Set Test_Objet = Worksheets(Nom_Feuille)
    If Not Test_Objet Is Nothing Then Feuille_Existe = True
End Function

 

[Nairolf]

Je viens de me rendre compte que j'avais fait un doublon de la proposition de Yeahou : Feuille_Existe

@David Aubert, tu peux supprimer ce fil si tu veux.

 

[Guy_M]

Petite modification (déclaration de la variable Nom_Feuille en chaîne de caractères) à partir du code de patricktoulon : sheetsExiste
J'ai aussi supprimé les éléments qui me semblaient non nécessaires (si je ne me trompe pas).

Function Feuille_Existe(Nom_Feuille As String) As Boolean
    Application.Volatile
    Dim Test_Objet As Worksheet
    Set Test_Objet = Worksheets(Nom_Feuille)
    If Not Test_Objet Is Nothing Then Feuille_Existe = True
End Function

Bonjour Nairolf,
Malheureusement " On Error Resume Next" est nécessaire car Worksheets(Nom_Feuille) sur un Nom_Feuille inexistant retourne une erreur.

 

[Nairolf]

Salut Guy,

Tu as raison et Yeahou dans son code Feuille_Existe l'a bien intégré lui.