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.
A voir également:
- Comment faire afficher une page
- Comment supprimer une page sur word - Guide
- Comment imprimer un tableau excel sur une seule page - Guide
- Afficher google en page d'accueil - Guide
- Comment créer une page facebook - Guide
- Comment traduire une page internet - Guide
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 :
Ton code devient donc :
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
