VBA Condition "Si la feuille existe" Alors...
Fermé
Apprenti
-
2 sept. 2010 à 11:17
ccm81 Messages postés 10907 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2025 - 28 juin 2023 à 20:22
ccm81 Messages postés 10907 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2025 - 28 juin 2023 à 20:22
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!
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:
- Vba tester si une feuille existe
- Flash drive tester - Télécharger - Divers Utilitaires
- Tester son pc - Guide
- Feuille de score belote excel - Forum Excel
- Comment supprimer une feuille sur word - Guide
- Feuille de pointage excel - Télécharger - Tableur
5 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 779
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