Logique Feuille_Existe()

Nairolf · 21 Avril 2021

Salut,

Voici un code inspirer du code de Yeahou : Classeur_Ouvert

Code:

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 · 21 Avril 2021

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).

VB:

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 · 21 Avril 2021

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 · 26 Avril 2021

Nairolf à dit:
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).

VB:

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 · 26 Avril 2021

Salut Guy,

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

Logique Feuille_Existe()

Nairolf

XLDnaute Accro

Nairolf

XLDnaute Accro

Nairolf

XLDnaute Accro

Guy_M

XLDnaute Occasionnel

Nairolf

XLDnaute Accro

Discussions similaires