Selection d'une feuille avec macro et message d'erreur

[lesuisse]

Bonjour à toutes et à tous,


Je souhaite trouver le code d'une macro permettant de sélectionner la feuille donc le nom est contenu dans la cellule active.
Si la feuille n'existe pas (B, C et D dans ce cas), un message apparait disant :"Cette feuille n'existe pas".

Ca donne un code de ce type la mais a marche pas quand la feuille n existe pas :

b = ActiveCell
If Sheets(b).Select = False Then
MsgBox ("Cette feuille n'existe pas")

Merci !

Le Suisse

 

[Minick]

Salut,

Essai comme ca


Sub test()
Dim b As String

b = ActiveCell

On Error GoTo MessageErreur
Sheets(b).Activate
On Error GoTo 0

Exit Sub
MessageErreur:
MsgBox ("Cette feuille n'existe pas")
Resume Next
End Sub

@+
Minick

 

[lesuisse]

Salut Minick, le forum, la France, la Suisse et le reste du monde

Merci encore pour le code. C'est ok, ca fonctionne très bien.

Bon début de semaine à toi.

A+

Le Suisse