XL 2016 ouvrir un onglet en tapant son nom dans une zone de texte

bobafric

XLDnaute Occasionnel
Bonjour à tous
Sur la feuille 1 du classeur créer une zone de texte ou une boite (je ne sais plus comment ça se nomme) dans laquelle je tape le nom d'un onglet pour l'ouvrir.
Merci d'avance
 

bobafric

XLDnaute Occasionnel
Bonjour @bobafric, le forum

Je te propose ceci qui me parait bien plus simple....

@Phil69970
Merci Phil pour ta réponse éclair mais je vais avoir une longue liste de noms et ça risque d'être fastidieux.
J'ai déjà un fichier exemple que je joins, les noms sont déjà liés aux onglets mais la liste va être très longue
 

Pièces jointes

  • essai excel.xlsm
    23.9 KB · Affichages: 3

Phil69970

XLDnaute Accro
Re

Que tu écrives la liste de tes onglets une fois pour toute avec un lien qui te renvoie dans l'onglet en question me semble bien plus facile que de taper à chaque fois le nom de l'onglet ou tu désires aller.

Dans un cas tu le fais 1 seule et unique fois dans l'autre cas tu le fait à chaque fois avec le risque d'une erreur de frappe.....
Pur moi y a pas photo 🤔

Si tu as 150 onglets il faut peut être revoir la conception de ton classeur...;)

@Phil69970
 

job75

XLDnaute Barbatruc
Bonjour bobafric,

Menu Développeur, commande Insérer et sous Contrôles ActiveX cliquez sur l'icône Zone de texte.

Déplacez le curseur de la souris sur la feuille et clic gauche enfoncé dessinez l'objet.

Clic droit sur l'objet sélectionné => Visualiser le code et dans VBA complétez la macro :
VB:
Private Sub TextBox1_Change()
On Error Resume Next 'si la feuille n'existe pas
Sheets(TextBox1.Text).Activate 'active la feuille
End Sub
Toujours dans VBA menu Exécution => Quitter le mode Création.

Retournez sur la feuille de calcul par les touches Alt+F11 et entrez le nom d'une feuille dans la TextBox.

A+
 

bobafric

XLDnaute Occasionnel
Bonjour bobafric,

Menu Développeur, commande Insérer et sous Contrôles ActiveX cliquez sur l'icône Zone de texte.

Déplacez le curseur de la souris sur la feuille et clic gauche enfoncé dessinez l'objet.

Clic droit sur l'objet sélectionné => Visualiser le code et dans VBA complétez la macro :
VB:
Private Sub TextBox1_Change()
On Error Resume Next 'si la feuille n'existe pas
Sheets(TextBox1.Text).Activate 'active la feuille
End Sub
Toujours dans VBA menu Exécution => Quitter le mode Création.

Retournez sur la feuille de calcul par les touches Alt+F11 et entrez le nom d'une feuille dans la TextBox.

A+
Super JOB t'es un chef Merci
 
Haut Bas