VBA Condition "Si la feuille existe" Alors...
Apprenti
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
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 vérifier si une feuille existe
- Ymail.com existe - Forum Mail
- Verifier compatibilite windows 11 - Guide
- Feuille de score belote excel - Forum Excel
- Gmail.fr existe - Forum Gmail
- Ymail.FR, ça existe? - Forum Réseaux sociaux
5 réponses
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
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
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