Discussion :

[gilles06]

Bonjour,

J'ai bien cherche et je n'ai pas trouve le moyen de verifier en VBA qu'une feuille existe bien dans le document.
En fait j'ai une macro qui tourne sur la feuille dont le nom est indique dans un champ. Bien entendu je voudrais verifier si la feuille existe bien avant de lancer la macro et ce sans planter excel.

Si vous pouviez m'aider, je vous remercie par avance

[Bigalo]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Verif()
Dim f As Worksheet
    On Error Resume Next
    Set f = Sheets("LeNomDeLaFeuille")
    On Error GoTo 0
    MsgBox f Is Nothing
End Sub

[Pierre Fauconnier]

Bonsoir

Attention. La procédure de Michel teste si une feuille de calcul existe. La procédure enverra le message VRAI, soit la feuille n'existe pas..., si tu testes avec le nom d'une feuille graphique qui existe, ce qui peut poser problème si la suite de la procédure tente d'affecter le nom testé à une feuille, quelle qu'elle soit...

Personnellement, je préfère utiliser une fonction dont le nom est explicite, et qui renvoie TRUE ou FALSE

La fonction suivante permet de tester l'existence d'une feuille dont le nom d'onglet est passé en paramètre, quel que soit le type de la feuille.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Function FeuilleExiste(NomFeuille) As Boolean
    Dim f As Object
    On Error Resume Next
    Set f = Sheets(NomFeuille)
    If Err = 0 Then FeuilleExiste = True
    Set f = Nothing
End Function

L'avantage de passer par une fonction est le réemploi aisé du code

Ok?

[gilles06]

Merci a tous

C'est bien sympa.