VBA Condition "Si la feuille existe" Alors...
Fermé
Apprenti
-
2 sept. 2010 à 11:17
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 - 28 juin 2023 à 20:22
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 - 28 juin 2023 à 20:22
A voir également:
- Vba créer une feuille si elle n'existe pas
- Créer un compte gmail - Guide
- Créer un compte google - Guide
- Créer un compte gmail pour une autre personne - Forum Gmail
- Créer une liste déroulante excel - Guide
- Créer un groupe whatsapp - Guide
5 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 775
2 sept. 2010 à 16:17
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 :
et pour l'utiliser :
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") Thenou
If Not Feuille_Existe("Feuil1") Then
28 juin 2023 à 01:11
Bonjour, Patrice
Merci beaucoup, Votre Fonction Pour tester
si une feuille existe, fonctionne parfaitement
C'est exactement ce dont j'avais besoin
j'ai essayé de l'adapter pour un fonctionnement directement dans la Macro sans succès
mais ce n'est pas très important, utilisé une fonction est finalement beaucoup
plus pratique
Encore Merci
Cordialement
28 juin 2023 à 20:22
Bonjour à tous
Un poil plus simple pour feuille_existe
Public Function FeuilleExiste(nomf As String) As Boolean
On Error Resume Next
FeuilleExiste = Not (Sheets(nomf) Is Nothing)
End Function
Cdlmnt