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

lesuisse · 5 Septembre 2003

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 · 5 Septembre 2003

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 · 8 Septembre 2003

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

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

lesuisse

Guest

Pièces jointes

Minick

Guest

lesuisse

Guest

Discussions similaires