Ouverture d'un menu

Excel
1

Bonjour à toutes et tous,

dans mon fichier ci-joint, je souhaiterai avoir ce qui suit;

Lors de l’ouverture du fichier la Feuil1 apparait.
Je voudrai que si je clique sur le bouton Menu, qu’il m’affiche une liste avec les boutons AC1,AC2 et AC3. Donc pour être précis, à l’ouverture du fichier je ne devrai voir que le bouton Menu.

Est-ce possible ?

Merci d’avance à vous pour vos retours.

Cordialement, Rubis

Rubis57-Menu.xlsm (14,5 Ko)

2

Bonjour,

Dans le module “ThisWorkbook” :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  With Sheets("Feuil1")
    For Each sh In .Shapes
      If sh.Name <> "Rectangle 1" Then
        sh.Visible = False
      End If
    Next sh
  End With
End Sub

Private Sub Workbook_Open()
  With Sheets("Feuil1")
    For Each sh In .Shapes
      If sh.Name <> "Rectangle 1" Then
        sh.Visible = False
      End If
    Next sh
  End With
End Sub

Dans le module standard “Module1” :

Sub Bouton()
  For i = 2 To 4
    Sheets("Feuil1").Shapes("Rectangle " & i).Visible = True
  Next i
End Sub

Daniel

3

Bonjour,

Merci pour votre retour et cette proposition. Mais cela n’est pas exactement ce que je souhaite avoir.
Par contre j’ai essayé une autre façon pour vous monter ce que je voudrai avoir. Je ne sais pas si mon travail dans le fichier Rubis57-Menus1 est correct pour vous les pros, donc j’attends votre retour.

Merci à vous.

Rubis57-Menu1.xlsm (75,7 Ko)

4

Bonjour,

Oui, c’est très bien.

Daniel

5

Bonsoir,

Parfait, cela me rasure. Merci pour votre participation.

A une prochaine fois.

Rubis