Afficher une feuille

Bonjour à tous,

Adage dit "Pourquoi faire facile quand on peut faire compliquer"

Voilà je voudrai faire afficher ma feuille par l'intermédiaire d'une boite à message.

pour le moment je suis arrivé à ceci. Mais là je bloque pourquoi?

Tout d'abord est-il possible de le faire?

Sub afficherNF()

Dim Feuille, NF, Rep As String
        NF = ActiveSheet.Name
        Rep = InputBox("Le nom de la feuille ?", , "Feuille")
        If Rep = "" Or IsNumeric(Rep) = True Then Exit Sub
        Application.ScreenUpdating = False
    For Each Feuille In ActiveWorkbook.Sheets
        With Feuille
            .Activate

        End With
    Next Feuille
        Sheets(NF).Activate
        End Sub

Si quelqu'un pourrait me donner la solution se serait très gentil

Avec mes remerciements anticipés

Amicalement

Noel

Bonjour,

Sub afficherNF()
Dim NF As String, Rep As String
    NF = ActiveSheet.Name
    Rep = InputBox("Le nom de la feuille ?", , "Feuil")
    If Rep = "" Or IsNumeric(Rep) = True Then Exit Sub
        With Sheets(Rep)
            .Activate
            MsgBox ("suite macro")
            Application.ScreenUpdating = False
        End With
    Sheets(NF).Activate
End Sub

Amicalement

Claude

Re,

Bonjour Claude,

Merci pour le code.

Je bloque au MsgBox ("suite macro").

Je pense que tu me demandes si il y a une suite de la Macro.

Si c'est ça je n'en ai pas.

Merci de me permettre d'avancer petit à petit

Amicalement

Noel

-- Jeu Mai 06, 2010 3:17 pm --

Re,

Merci Claude de m'avoir laisser trouver la solution.

C'est comme ça qu'on apprend.

Je l'ai résolu.

Merci encore

Amicalement

Noel