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

Signaler
Messages postés
201
Date d'inscription
mercredi 1 décembre 2004
Statut
Membre
Dernière intervention
13 août 2005
-
Messages postés
195
Date d'inscription
vendredi 19 novembre 2004
Statut
Membre
Dernière intervention
30 novembre 2009
-
bonjour,

j'ai créé un bouton dans la barre de menu excel, permettant d'accéder directement à certains form du soft que je fais sous VB editor. Ce bouton est désactivé pour tout autre classeur autre que celui ou j'ai besoin du soft, grâ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ésactivé lorsque on se trouve sur une page du classeur qui n'a pas de nom uniquement numérique...

une idée?

Daydayerement Vôtre

4 réponses

Messages postés
195
Date d'inscription
vendredi 19 novembre 2004
Statut
Membre
Dernière intervention
30 novembre 2009

Essaie dans l'évè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ésactiver ton bouton

'

End If

End Sub
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 179 internautes nous ont dit merci ce mois-ci

Messages postés
201
Date d'inscription
mercredi 1 décembre 2004
Statut
Membre
Dernière intervention
13 août 2005

Daydayerement Vôtre
Messages postés
201
Date d'inscription
mercredi 1 décembre 2004
Statut
Membre
Dernière intervention
13 août 2005

merci, beaucoup de ton aide! j'avias trouvé les 'deactivate' etc mais je ne savais pas comment m'en servir... maintenant ca va!

Daydayerement Vôtre
Messages postés
195
Date d'inscription
vendredi 19 novembre 2004
Statut
Membre
Dernière intervention
30 novembre 2009

Pô de souci