VBA Condition "Si la feuille existe" Alors...

Fermé
Apprenti - 2 sept. 2010 à 11:17
Patrice33740
Messages postés
8549
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
7 mai 2022
- 2 sept. 2010 à 16:17
Bonjour,

Dans ma macro, jai besoin de verrifier si la feuille "NOM" existe avant de continuer ma procedure, mais je ne sais pas comment cela s'ecrit en VBA, quelqu'un aurait-il une réponse?

Merci!





A voir également:

5 réponses

Patrice33740
Messages postés
8549
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
7 mai 2022
1 750
2 sept. 2010 à 16:17
Bonjour,

Il n'est pas nécessaire de faire une boucle pour chercher si la feuille existe,
il suffit de faire ceci :

Function Feuille_Existe(ByVal Nom_Feuille As String) As Boolean
Dim Feuille As Excel.Worksheet  
  On Error GoTo Feuille_Absente_Error
    Set Feuille = ActiveWorkbook.Worksheets(Nom_Feuille)
  On Error GoTo 0
  Feuille_Existe= True
Exit Function

Feuille_Absente_Error:
  Feuille_Existe= False
End Function

et pour l'utiliser :

If Feuille_Existe("Feuil1") Then
ou

If Not Feuille_Existe("Feuil1") Then
5