MsgBox variable non trouvé

[Michael78]

Bonjour,

Et tout mes vœux pour cette nouvelle année...

Je recherche à afficher une feuille précise d'un classeur. Pour cela je rentre son nom dans une InputBox, 2 solutions :

* La feuille existe => il l'affiche
* La feuille n'existe pas => il affiche une MsgBox "Pas d'agent trouvé"

J'ai essaye avec :
If Agent <> 0 Then
MsgBox "Pas...."

je l'ai torturé dans tous les sens mais je ne trouve pas....

Mais impossible de l'écrire correctement. Actuellement voici mon code qui fonctionne uniquement si la feuille fonctionne :

Sub Recherche_agent()

Dim Agent As String
Agent = InputBox("nom de l'agent recherché :", "choix de l'onglet")
Sheets(Agent).Activate


End Sub

 

[job75]

Bonjour Michael78,

Sub Recherche_agent()
Dim Agent As String
Agent = InputBox("nom de l'agent recherché :", "choix de l'onglet")
If Agent = "" Then Exit Sub
On Error Resume Next
Sheets(Agent).Activate
If ActiveSheet.Name <> Agent Then MsgBox "'" & Agent & "' pas trouvé..."
End Sub

A+

 

[Michael78]

Merci, le code fonctionne à un détail...

Si tu cherche :
BRUNO, cela fonctionne
mais si tu cherche Bruno, il t'affiche bien la feuille mais aussi la MsgBox.
Du coup, j'ai ajouté UCase pour que la différence de casse ne sois pas prise en compte

Merci a toi!!

 

[job75]

Re,

Oui, et le plus simple :

If Err Then MsgBox "'" & Agent & "' pas trouvé..."

A+

 

[Michael78]

Merci Job75