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.
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.
Dernière édition: