Macro affichage onglet

-
Bonjour,

J'ai une macro me permettant de chercher le nom d'un onglet dans mon classeur via une fenêtre de dialogue mais je souhaiterais que la recherche ne se fasse que sur les onglets visibles de mon classeur ?
que puis je ajouter à mon code?

Sub aff_Onglet()
    Dim nomF As String
    nomF = InputBox("Saisir le nom de l'onglet", "Activer onglet")
        Worksheets(nomF).Activate
   On Error Resume Next
    On Error GoTo 0
End Sub


EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ICI

Merci d'y penser dans tes prochains messages.
Afficher la suite 

Votre réponse

1 réponse

Messages postés
12245
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
30 novembre 2018
15
0
Merci
Bonjour,

3 choses :

1- Le gestionnaire d'erreur.
Tel qu'il est codé, il est inutile. L'unique bug que pourrait rencontrer ta macro doit se trouver entre les deux lignes :
On Error Resume Next
'ICI la ligne qui risque de faire bugguer le programme
On Error GoTo 0

A toi de savoir ce qui peut bloquer ;-)

2- Pourquoi vouloir coder cela?
Excel donne déjà la possibilité de naviguer entre les feuilles visibles du classeur actif. Tu disposes déjà de 4 flèches de navigation entre les feuilles, en bas à gauche de ton classeur, justeà la gauche de ton premier onglet.
Essaie un clic droit sur ces flèches, juste pour voir...

3- Tant qu'à vouloir le coder...
Autant le faire un peu mieux.
Pourquoi pas avec un UserForm contenant une ListBox.
Au lancement de l'UserForm, la ListBox affiche le nom des feuilles visibles, au clic sur un des items de la listbox, la feuille est sélectionnée et l'userform se ferme...
ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
264 -
Bonjour, Franck,
En ce qui concerne le point 2
Il s'est peut-être mis (plusieurs raisons possibles) dans un cas où cet affichage (onglets, flèches, etc ...) n'est plus accessible
pijaku
Messages postés
12245
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
30 novembre 2018
15 > ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
-
Bonjour Jacques,

En effet, ce n'est pas faux.
Je n'y ai pas pensé.
ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
264 > pijaku
Messages postés
12245
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
30 novembre 2018
-
Il est peut-être même allé encore plus loin ...
Avec ceci, par exemple :
ActiveWindow.DisplayWorkbookTabs = False
qui n'afficherait rien, tout en ne rendant pas les feuilles inaccessibles par code (au contraire du masquage).
Commenter la réponse de pijaku

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.