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

Question

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!





Configuration: Windows XP / Internet Explorer 6.0

Patrice33740 · Accepted Answer

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") Thenou

If Not Feuille_Existe("Feuil1") Then

Bidouilleu_R · Answer

sub test()
Dim Sh as Variant    
Dim feuilleExiste as boolean

For Each Sh In Worksheets
        If Sh.Name = "NOM" Then
           MsgBox "lafeuille " & Sh.Name & " existe"
           feuilleExiste=true
        End If
Next

' maintenant tu peux faire if feuilleExiste then.....

End sub

Apprenti · Answer

Merci beaucoup!

Est ce que je peux faire quelque chose comme ca : 

(...) le debut de ma sub principale (...)

Call test (NomCherche)

If FeuilleExiste Then

(....)

?

Bidouilleu_R · Answer

Fais plutôt comme cela... 


Function IsFeuilleExiste(NomFeuille As String) As Boolean 
' la fonction renvoie True ou False 
On Error Resume Next 

Dim Sh As Variant 
IsFeuilleExiste = False 
For Each Sh In Worksheets 
    If Sh.Name = NomFeuille Then 
        IsFeuilleExiste = True 
    End If 
Next 

End Function 


et pour l'utiliser 

Sub test() 
y = IsFeuilleExiste("Feuil100") ' renvoie faux ... feuil100 n'existe pas
z=IsFeuilleExiste("Feuil1") ' renvoie vrai ...feuil1 existe
End Sub

Apprenti · Answer

merci beaucoup c'est super!

bonne journée

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

5 réponses

Discussions similaires

Newsletters