Discussion :

[peponne31]

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
With Application.CommandBars("XXXX").Controls(13).Controls("Imprimer") 'A la place de XXXX mettre le nom de ta CommandBar
    If UCase(Right(Sh.Name, 4)) = "PAGE" Then
        .Visible = True
    Else
        .Visible = False
    End If
End With
End Sub

[peponne31]

Bonjour mercatoq

Merci pour ton aide, le code que tu ma envoyé ne fonctionne pas
deplus il faudrai que ce code soit incorporé au 1er code,
de manière à pouvoir cacher 1 ou plusieurs boutons dans la mème barre.
Merci encore
Peponne31

[peponne31]

J'ai résolu en partie mon problème, voici ce que j'ai fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   On Error Resume Next
   With Application.CommandBars("Denis").Controls(1).Controls("Imprimer")
      If UCase(Sh.Name) = "DEVIS1PAGE" Then
      .Visible = True
      ElseIf UCase(Sh.Name) = "DEVIS2PAGES" Then
      ElseIf UCase(Sh.Name) = "DEVIS" Then
      ElseIf UCase(Sh.Name) = "DEMANDEDEVISFOURNISSEURS" Then
         .Visible = True
      Else
         .Visible = False
      End If
   End With
End Sub

mais dans ma barre de menu, j'ai plusieurs boutons et je ne sais pas
adapter la ligne:
With Application.CommandBars("Denis").Controls(1).Controls("Imprimer") pour
prendre en compte d'autres boutons dans la mème ligne,
Exemple, en .Controls(3) j'ai Facture, en .Control(4) j'ai courrier...
Comment ajouter 1 ou plusieurs Controls dans la ligne que je veux adapter !!!

Merci pour tout aide.
Peponne31

[mercatog]

Une suggestion

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
With Application.CommandBars("Denis")
    If InStr(UCase(Sh.Name), "DEVIS") > 0 Then
        .Controls(1).Controls("Imprimer").Visible = True
        .Controls(3).Controls("Facture").Visible = True
        .Controls(4).Controls("Courier").Visible = True
    Else
        .Controls(1).Controls("Imprimer").Visible = False
        .Controls(3).Controls("Facture").Visible = False
        .Controls(4).Controls("Courier").Visible = False
    End If
End With

PS. n'oublie pas les balises code (#) sur le forum pour une meilleure lisibilité

[peponne31]

Re,

Pour .Controls(1), ça fonctionne mais Facture et Courrier ne doivent pas ètre cachés, se sont des boutons au mème titre que DEVIS lorsque je clique sur Facture, j'ai en sous menu: Facture1page et facture2pages, si j'ouvre une
de ses 2 pages le bouton imprimer doit ètre visible.
Je pensai qu'il était possible de mètre dans la mème procédure le nom des boutons concernés et ensuite définir une action pour chaque bouton.
Ex. si je clique sur le bouton Tools qui est en .Control(7),en sous menu j'ai: Paramètres Société, Débug Programme et Fermer Débug, ce que je voudrai c'est que Fermer Débug n'apparraisse que si j'ai cliquer sur Débug Programme pour pouvoir le refermer.
Merci encore et bonne soirée à tous.
Peponne31

[Pierre Fauconnier]

Bonjour

C'est, comme souvent, un problème de conception avant d'être un problème de code.

A ce stade, il me parait utile que tu découpes d'abord ce que tu souhaites faire, que tu regroupes les actions identiques en petite procédures faciles à gérer, puis que tu les articules dans ton code, en faisant un minimum d'effort pour comprendre les codes qui te sont donnés en réponse à tes messages.

Je t'invite donc, avant de continuer le jeu un peu stérile des questions/réponses, à schématiser sur papier le fonctionnement souhaité de ton application, puis de venir nous retrouver pour les points qui posent problème.