Test d'existance de feuille

[kedas]

Salut a tous
Je suis débutant en vba sous excel et je coince dans mes codes.
En fait j'ai un classeur avec de multiples feuille, alors pour m'aider a parcourir celles ci, j'ai créer un userform de recherche. Jusque là, pas de problème.
Ca se complique lors que la feuille rechercher n'existe pas. j'ai alors une erreur d'exécution '9' : l'indice n'appartient pas à la sélection.

Ce que je souhaite est simplement d'avoir le message "la feuille n'existe pas!" dans mon lblmessage.

Merci de bien vouloir m'aider
A bientot

 

[Cousinhub]

Re : Test d'existance de feuille

Bonjour, pourquoi ne pas ajouter tes feuilles dans ton combobox (si c'est un combobox) à l'initialisation de l'userform?

Private Sub UserForm_Initialize()
For Each sh In ActiveWorkbook.Worksheets
ComboBox1.AddItem sh.Name
Next
End Sub

 

[Gorfael]

Re : Test d'existance de feuille

Salut a tous
Je suis débutant en vba sous excel et je coince dans mes codes.
En fait j'ai un classeur avec de multiples feuille, alors pour m'aider a parcourir celles ci, j'ai créer un userform de recherche. Jusque là, pas de problème.
Ca se complique lors que la feuille rechercher n'existe pas. j'ai alors une erreur d'exécution '9' : l'indice n'appartient pas à la sélection.

Ce que je souhaite est simplement d'avoir le message "la feuille n'existe pas!" dans mon lblmessage.

Merci de bien vouloir m'aider
A bientot

Salut
en admettant que le nom recherché soit dans Nom_Rech

Dim F as WorkSheet
Dim Flg as Boolean
....
flg=true
For each F in sheets
if F.name=Nom_Rech then
Flg=false
exit for
next F
if flg then
msgbox "la feuille " & Nom_Rech & " n'existe pas!", vbokonly, "Feuille introuvable"
exit sub
endif
.............. le reste de ta macro

A+

 

[Cousinhub]

Re : Test d'existance de feuille

Re-,
si tu veux absolument conserver ta liste, regarde le fichier joint, avec un combo comprenant uniquement les feuilles du classeur, et un autre, avec possibilité d'erreur.

 

[kedas]

Re : Test d'existance de feuille

Merci a tous pour votre aide
Toutes vos contributions m'ont été d'une grande utilité
Mon problème a été résolu.

MERCI ENCORE