Comment faire afficher une page
Résolu
17cha
Messages postés
58
Statut
Membre
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
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.
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.
1 réponse
-
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
