désactiver un bouton de menu quand on est pas sur une certaine feuille excelRésolu

Question

bonjour, 

j'ai cr&#233;&#233; un bouton dans la barre de menu excel, permettant d'acc&#233;der directement &#224; certains form du soft que je fais sous VB editor. Ce bouton est d&#233;sactiv&#233; pour tout autre classeur autre que celui ou j'ai besoin du soft, gr&#226;ce au code suivant:

Private Sub Workbook_Deactivate()
Dim x, y, Menu_R, Menu_C, NbM
  If Closing = 0 Then
     'get the amount of controls in the bartool
    NbM = Application.CommandBars.ActiveMenuBar.Controls.Count
    'action on the PMS button
        Menu_R = MenuBars(xlWorksheet).Menus(ButtonName).Caption
        'check with of the controls of the bartool
        For y = 1 To NbM
          Menu_C = Application.CommandBars.ActiveMenuBar.Controls(y).Caption
          'if find a control corresponding to  a control of the WP file bartool
          'then make it disabled
          If Menu_R = Menu_C Then
            Application.CommandBars.ActiveMenuBar.Controls(y).Enabled = False
            Exit For
          End If
        Next y
  End If
End Sub

J'aimerais que ce bouton soit aussi d&#233;sactiv&#233; lorsque on se trouve sur une page du classeur qui n'a pas de nom uniquement num&#233;rique...

une id&#233;e?

  Daydayerement V&#244;tre

ricomiracle · Accepted Answer

Essaie dans l'&#233;v&#232;nement:"SheetActivate"

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Dim Feuille As Worksheet

Set Feuille = Sh

If Feuille.Name <> "Feuil1" Then



'code pour d&#233;sactiver ton bouton

'

End If

End Sub

Daydayer · Answer

Daydayerement V&#244;tre

Daydayer · Answer

merci, beaucoup de ton aide! j'avias trouv&#233; les 'deactivate' etc mais je ne savais pas comment m'en servir... maintenant ca va!

  Daydayerement V&#244;tre

ricomiracle · Answer

P&#244; de souci

Désactiver un bouton de menu quand on est pas sur une certaine feuille excel

4 réponses

Discussions similaires