macro affichage onglet

Question

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.

pijaku · Answer

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...

Macro affichage onglet

1 réponse

Votre réponse

Discussions similaires