VBA Condition "Si la feuille existe" Alors...
Fermé
Apprenti
-
2 sept. 2010 à 11:17
ccm81 Messages postés 10850 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 mars 2024 - 28 juin 2023 à 20:22
ccm81 Messages postés 10850 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 mars 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 une liste déroulante excel - Guide
- Créer un compte gmail pour une autre personne - Forum Gmail
- 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