Détection d'une feuille

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

Cliquez pour agrandir...

salut

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

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]