VB: Test d'existence d'une feuille?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : VB: Test d'existence d'une feuille?

la tortue ninja

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

Publicité

olivthill

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

dreameddeath

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

galopin01

Encore une possibilité...

Code :

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

A+

la tortue ninja

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

VB: Test d'existence d'une feuille?

Sujets relatifs
Info bulle sur un bouton sur une feuille.	supprimer tous les graphiques dans une feuille de calcul
[Non résolu] fermer un userform mais RESTER dans la feuille en cours	sessions: test si identifiant de connexion dejà en cours d'utilisation
enregistre une feuille excel	Récuperer nom bouton feuille excel
Feuille de calcul	probleme d'execution de macro sur feuille vérouillée ( partiellement)
[C#.net] Tester l'existence d'un répertoire sur un serveur FTP	Recupérer une ligne et la coller dans une autre feuille
Plus de sujets relatifs à : VB: Test d'existence d'une feuille?

Page générée en 0.030 secondes