Bonjour,

Dans une barre de menu que j'ai créé, je voudrais cacher un bouton
qui serai en .Controls(13) qui se nommerai .Controls("Imprimer") .
Ce bouton ne serai vue que par les différentes feuilles à imprimer
qui sont au nombre de 6 (Devi1page, Devis2pages, Facture1page, ect...)
exemple: si feuille active "Devis1page", bouton visible, j'imprime sinon bouton caché, si feuille active "Facture1page" bouton visible, j'imprime sinon bouton
caché...
J'ai déjà un bouton de cacher mais je ne sai pas adapter le code à d'autre boutons.
voici le code qu'a créé Michdenis pour cacher un bouton en .Controls(2).Controls"Menu"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
With Application.CommandBars("Denis").Controls(2).Controls("Menu")
    If UCase(Sh.Name) = "MENU" Then
        '.Enabled = True
        .Visible = False
    Else
        '.Enabled = False
        .Visible = True
    End If
End With
End Sub
si quelqu'un pouvait m'aider, ce serai avec grand plaisir.
Peponne31