Aide pour terminer un code

Version imprimable

Bonsoir à tous,

Dans mon application, des icônes me servent à ouvrir des feuilles de calcul. Une icône = une feuille.
Sauf pour 2 d'entre-elles où il faut qu'une autre feuille soit ouverte en même temps et c'est là que ça coince.
Merci pour l'aide que vous pourrez m'apporter. Je suis certain que c'est une bricole mais je n'arrive pas à trouver.

Code pour l'ouverture d'une feuille :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Commande(control As IRibbonControl)
Dim sh As Worksheet
    Select Case MsgBox("Vous avez cliqué sur le bouton ""Commandes""", vbYesNo, "Est-ce bien votre choix ?")
        Case vbYes
            MsgBox "J'ouvre la feuilles..."
    Sheets("Commandes").Visible = 1
    For Each sh In Sheets
        If sh.Name <> "Commandes" Then sh.Visible = 2
    Next
        Case vbNo
        Exit Sub
    End Select
End Sub

Code pour l'ouverture de 2 feuilles (ça ne fonctionne pas) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
'Dans ce code, les feuilles Commandes et BCommandes doivent être ouvertes en même temps
 
Sub BCommande(control As IRibbonControl)
Dim sh As Worksheet
    Select Case MsgBox("Vous avez cliqué sur le bouton ""BCommandes""", vbYesNo, "Est-ce bien votre choix ?")
        Case vbYes
            MsgBox "J'ouvre la feuille..."
    Sheets("BCommandes").Visible = 1
    Sheets("Commandes").Visible = 1
    For Each sh In Sheets
        If sh.Name <> "BCommandes" Then sh.Visible = 2
        If sh.Name <> "Commandes" Then sh.Visible = 2
    Next
        Case vbNo
        Exit Sub
    End Select
End Sub

Bonsoir,

Simplement avec un démarche logique en sachant qu'une feuille au moins doit rester visible.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
'Dans ce code, les feuilles Commandes et BCommandes doivent être ouvertes en même temps
 
Sub BCommande(control As IRibbonControl)
Dim sh As Worksheet
    Select Case MsgBox("Vous avez cliqué sur le bouton ""BCommandes""", vbYesNo, "Est-ce bien votre choix ?")
        Case vbYes
            MsgBox "J'ouvre la feuille..."
            With Sheets("BCommandes")
                .Visible = 1
                .Activate
            End With
            For Each sh In Sheets
                If sh.Name = "BCommandes" Or sh.Name = "Commandes" Then
                    sh.Visible = 1
                Else
                    sh.Visible = 2
                End If
            Next
        Case vbNo
            Exit Sub
    End Select
End Sub

Cela dit, je ne souhaites pas utiliser ton classeur car passer son temps à valider des messages n'est pas ma tasse de thé ;)

01/04/2019, 21h09
Vba14

Bonsoir anasecu,

Merci pour ta réponse. N'aie crainte, ces messages ne resteront pas dans mon application, ce sont des essais que je fais dans un fichier exemple, dans l'original il n'y aura de tout ça. Ils ne servent qu'à encombrer le fichier.
Bonne soirée et encore merci
Amicalement