VB: Test d'existence d'une feuille?

Marsh Posté le 21-11-2007 à 11:55:51

salut à tous, savez vous s'il existe un test d'existence d'une feuille, de type IsNumeric pour une cellule?

par ex, je voudrais tester si une feuille qui s'appelle "Bilan" existe dans une condition logique, cad:
Si la feuille "Bilan" Existe, alors faire cela....

Merci à vous

Marsh Posté le 21-11-2007 à 11:55:51

Marsh Posté le 21-11-2007 à 12:58:34

Function exist_feuille(nom_feuille As String) As Boolean

exist_feuille = False

For Each ws In Worksheets
If ws.Name = nom_feuille Then
exist_feuille = True
Exit Function
End If
Next ws

End Function

Sub test_exist_feuille()
MsgBox (exist_feuille("Feuill2" ))
MsgBox (exist_feuille("Feuil2" ))
End Sub

Marsh Posté le 25-11-2007 à 18:22:31

il y a plus rapide

Code :

Function exist_feuille(nom_feuille as string) as boolean
Dim shFound as Worksheet
on error resume next
set shFound = Sheets(nom_feuille)
if(err.Num <> 0)then
exist_feuille = False
else
exist_feuille = true
end if
on error goto 0
end function

Note : je ne l'ai pas testé, il peut y avoir une faute de frappe ou deux

Marsh Posté le 25-11-2007 à 18:31:55

Encore une possibilité...

Code :

Function WsExist(Nom$) As Boolean
On Error Resume Next
WsExist = Sheets(Nom).Index
End Function

A+

Marsh Posté le 07-12-2007 à 10:30:29

Un grand merci à vous !! (avec du retard....), vos fonctions fonctionnent très bien!!!

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *