Détection d'une feuille

[LaurentG]

Bonjour,

J'aurais besoin d'une petite ligne de code qui vérifie la présence d'une feuille dans un classeur.

Par exemple :

if sheets('feuil1').exist ...

Quelqu'un aurait une idée?

Merci
Laurent.

 

[Hervé]

bonsoir laurent

une solution donnée par Maitre Ti, sur ce forum :

Sub Bouton1_QuandClic()
'test
MsgBox ExisteFeuille('feuil1')
End Sub
'______________________________________________
Private Function ExisteFeuille(ByVal WsName$) As Boolean
'fonction de Ti
On Error Resume Next
ExisteFeuille = Not ThisWorkbook.Worksheets(WsName) Is Nothing
End Function

salut

 

[LaurentG]

Bonjour!

Merci, mais j'ai un petit problème.
En fait, il s'agit du nom de l'onglet que je cherche à vérifier.
Quand on est dans visual Basic Editior, dans le 'Microsoft Excel Objets' on a le nom des feuilles de la manière suivante :

Feuil1 (INPUT)
Feuil2 (DONNEES)
...

Avec la macro ci-dessus, il vérifie le 'Feuil1'. Mais je cherche à vérifier le 'INPUT'. Si je mets

MsgBox ExisteFeuille('INPUT')

J'aurais une message box indiquant FAUX.

Si quelqu'un a une idée...

Merci

Laurent

 

[Papaye]

Bonjour Laurent, bonjour Hervé,

Laurent, j'ai modifié un peu le code d'Hervé.

Est ce que c'est plus clair ?

Papaye [file name=Laurent_20060616110344.zip size=8363]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Laurent_20060616110344.zip[/file]