boutons dans barre perso grisés

[Evelynetfrancois]

Bonjour à tous et meilleurs voeux 2006

j ai crée une barre perso attachée à mon classeur , est-t-il possible dans certaines conditions (lorsque que je suis sur certaines feuil! en fait ) de faire apparaitre certains boutons grisés , dont inactifs?

merci pour toutes vos sujetions
bonne journée
E et F

 

[Bernard_XLD]

Bonjour

une commande peut désactiver et griser le bouton en même temps, tu peux la lier à l'activation/désactivation de certaines feuilles.

Cordialement, A+

Application.CommandBars('Personnalisé 1').Controls(1).Enabled = False

 

[evelynetfrancois]

merci beaucoup
je vais essaye d adapter a mes besoins
je te tiens au courant
merci beaucoup !!!
e et f

 

[Evelynetfrancois]

Re bonjour !

Voila j ai reussi à faire un truc qui marche , certes , mais je sens que c 'est 'cochon ' pourriez-vous m aider a eclaircir tout ca
j ai tenté
If ActiveSheet.Name = array('sommaire','a','print') Then etc..
mais sans resultat !!

merci beaucoup pour toutes vos sujetions

E et F


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.CommandBars('mxt').Controls(7).Enabled = True
If ActiveSheet.Name = ('sommaire') Then GoTo fin
If ActiveSheet.Name = ('a') Then GoTo fin
If ActiveSheet.Name = ('i') Then GoTo fin
If ActiveSheet.Name = ('print') Then GoTo fin
If ActiveSheet.Name = ('bh') Then GoTo fin
If ActiveSheet.Name = ('b ind') Then GoTo fin
If ActiveSheet.Name = ('#PASS') Then GoTo fin
If ActiveSheet.Name = ('txt') Then GoTo fin
If ActiveSheet.Name = ('graph') Then GoTo fin
If ActiveSheet.Name = ('aide aux paramètrages') Then GoTo fin
If ActiveSheet.Name = ('infos contact') Then GoTo fin
If ActiveSheet.Name = ('VAC1') Then GoTo fin
If ActiveSheet.Name = ('VAC2') Then GoTo fin
If ActiveSheet.Name = ('VAC3') Then GoTo fin
If ActiveSheet.Name = ('VAC4') Then GoTo fin
If ActiveSheet.Name = ('VAC5') Then GoTo fin
Exit Sub
fin:
Application.CommandBars('mxt').Controls(7).Enabled = False

End Sub

 

[Bernard_XLD]

Re bonjour

plus simple comme cela

A+

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Select Case ActiveSheet.Name
Case Is = 'sommaire', 'a', 'i', 'print', 'bh', 'b ind', '#PASS', 'txt', 'graph', 'aide aux paramètrages', _
'infos contact', 'VAC1', 'VAC2', 'VAC3', 'VAC4', 'VAC5'
Application.CommandBars('mxt').Controls(7).Enabled = False
Case Else
Application.CommandBars('mxt').Controls(7).Enabled = True
End Select
End Sub

 

[evelynetfrancois]

merci pour tout Yeahou !!! ca fonctionne evidement tres bien !!!
bonne soirée et encore merci !!!
E et F