XL 2016 accès feuilles masquées par bouton

[crown54]

Bonjour à tous,
je fais une nouvelle fois appel à vos connaissances. J'ai un fichier excel avec plusieurs onglets. Une feuille choix d'onglet est présente et je souhaite par le biais d'un bouton pour chaque onglet le faire apparaitre et uniquement celui-là. A l'inverse quand je suis sur l'onglet en question, j'ai un bouton retour qui me permet de revenir sur la feuille choix d'onglet.
J'ai réussi à le faire via la commande suivante :
Private Sub CommandButton2_Click()
Sheets("choix onglets").Visible = True
Sheets("choix onglets").Select
End Sub

Par contre sur ma feuille de choix d'onglet, j'ai plusieurs boutons mais ça ne fonctionne pas, j'ai une erreur d'execution 1004: la méthode 'visible' de l'objet '_Worksheet' a échoué.
Voici mon code:

Private Sub CommandButton1_Click()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
With sh
If Not .Name = "Nom onglet" Then .Visible = False
End With
Next
End Sub

Private Sub CommandButton2_Click()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
With sh
If Not .Name = "Nom onglet Then .Visible = False
End With
Next
End Sub

Private Sub CommandButton3_Click()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
With sh
If Not .Name = "Nom onglet" Then .Visible = False
End With
Next
End Sub

Private Sub CommandButton4_Click()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
With sh
If Not .Name = "Nom onglet" Then .Visible = False
End With
Next
End Sub

Private Sub CommandButton5_Click()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
With sh
If Not .Name = "Nom onglet" Then .Visible = False
End With
Next
End Sub

Private Sub CommandButton6_Click()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
With sh
If Not .Name = "Nom onglet" Then .Visible = False
End With
Next
End Sub

Private Sub CommandButton7_Click()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
With sh
If Not .Name = "Nom onglet" Then .Visible = False
End With
Next
End Sub

Private Sub CommandButton8_Click()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
With sh
If Not .Name = "Nom onglet" Then .Visible = False
End With
Next
End Sub


Auriez-vous une idée de la provenance de l'erreur s'il vous plait?
Merci d'avance.

 

[Phil69970]

Bonjour @crown54

J'ai pas vu ton fichier que tu décris si bien
Mettre le code entre balise le rend beaucoup plus digeste !!!

 

[crown54]

oups désolé je ne sais pas comment fonctionnent les balises, je n'ai jamais fait.
Je vous mets le fichier en PJ du coup. Je l'ai un peu épuré

 

[Phil69970]

@crown54

Je vous mets le fichier en PJ du coup.

Toujours pas vu le fichier

 

[crown54]

@crown54


Toujours pas vu le fichier

Je n'arrive pas il ne l'accepte pas alors qu'il est en .xlsm

 

[crown54]

il est trop volumineux malgré l'épuration

 

[vgendron]

Bonjour
la taille est limitée à 1Mo

il suffit de réduire le nombre de lignes du fichier
pas besoin d'avoir 500 lignes si une dizaine suffit pour bien comprendre la structure de ton fichier

 

[crown54]

oui il n'y a plus de lignes mais ce sont les boutons qui l'alourdissent

 

[vgendron]

à priori, tu as 8 boutons qui ont le meme code
supprimes en 7 ...

 

[crown54]

J'ai enlevé les images des boutons et c'est ok

 

[crown54]

ça fonctionne bien quand il y a un seul bouton mais dès que j'en mets un second j'ai l'erreur indiquée avec dans le code le .Visible=False surligné en jaune.

Private Sub CommandButton2_Click()
Dim sh As Worksheet
 For Each sh In ThisWorkbook.Worksheets
  With sh
   If Not .Name = "Microscopes" Then .Visible = False
  End With
 Next
End Sub

quelqu'un pourrait me dire comment fonctionne cette commande et pourquoi quand j'en mets plusieurs de ce style cela ne marche pas?
Merci et bonne après-midi

 

[vgendron]

Bonjour
l'erreur provient certainement du fait que si ton code est amené à masquer la SEULE feuille encore affichée.. plantage...

plutot qu'avoir 10 boutons.. pourquoi ne pas avoir UN seul bouton qui affiche la feuille que tu as selectionnée dans la liste

cf PJ

 

[crown54]

Bonjour vgendron et merci pour ta réponse.
En fait, je veux un onglet sommaire qui permettent de naviguer dans les différentes feuilles selon le bouton cliqué comme tu peux le voir ici

 

[crown54]

En fait c'est le fait de masquer les onglets qui plante le truc

 

[vgendron]

alors
tu mets plusieurs boutons avec chacun un nom spécifique (celui de la feuille à afficher)
et UNE seule macro affectée à tous les boutons
lorsque tu cliques sur un des boutons, la macro regarde le nom du bouton qui l'a appelée.. et affiche la feuille adéquate