comment faire afficher une page Résolu/Fermé

Question

Bonjour, 

Je vous soumets ce que j'ai écrit:
Sub recettes ()
      Nchoix = Cells(1, "b")
      NomOnglet = Nchoix
     Cells(1, "c") = Nchoix
       
       If NomOnglet = "f" Then
       Application.DisplayAlerts = False
       Application.Quit
Else: Application.Goto Worksheets("NomOnglet")
End If
End Sub

Avec "f" je quitte bien le classeur, par contre si je mets par exemple feuil4,j'ai une erreur.Comment ouvrir cette feuille.
Je ne trouve pas et désire avoir l'avis de personnes plus compétentes.
Merci.

Configuration: Windows XP / Internet Explorer 7.0

pijaku · Answer

Bonjour,
1- déclare tes variables
2- NomOnglet est une variable donc à utiliser sans les guillemets : WorkSheets(NomOnglet)
3- Pour "aller à" une page, il suffit de l'activer :
Else
    Worksheets(NomOnglet).Activate 
End If 

Ton code devient donc :
Sub recettes () 
Dim Nchoix As String, NomOnglet As String

Nchoix = Cells(1, "b") 
NomOnglet = Nchoix 
Cells(1, "c") = Nchoix 

If NomOnglet = "f" Then 
    Application.DisplayAlerts = False 
    Application.Quit 
Else
    Worksheets(NomOnglet).Activate 
End If 
End Sub

Comment faire afficher une page

1 réponse

Discussions similaires

Newsletters