Message d'erreur dans une macro

[lesuisse]

Bonjour à toutes et à tous,

Voila la macro suivante :

b = ActiveCell
Sheets(b).Select

Cependant, il se peut que b n'existe pas... Et il y a toujours ce message d'erreur qui apparait avec comme choix End ou Debug...
Comment faire pour qu'il y ait une msgbox qui apparaisse et qui dise que la feuille que l'utilisateur veut selectionner n'existe pas

Merci pour votre aide et bonne journée

Le Suisse

 

[Michel]

bonjour lesuisse

peux tu essayer la macro ci dessous . l'exemple gere l'erreur (code 9) si la feuille n'est pas trouvée

Sub message()
Dim b As Byte

On Error GoTo fin

b = ActiveCell
Sheets(b).Select
Exit Sub

fin:
If Err = 9 Then MsgBox "cette feuille n'existe pas ."

End Sub


bon après midi
Michel

 

[lesuisse]

Hi Michel !!

Merci pour le code...
Mais y'a une petite erreur avec :

Dim b As Byte

Il ne me le prend pas...
Alors j'ai changé par Dim b As String et ca fonctionne a merveille !!

Merci pour ton aide encore...

Bonne fin d'après-midi

Saaaaaaaaluuuuuuuuuuuu Suiiiiiiiiiiiiiiiiiisssse (a proncer lentement...)

Le Suisse