Discussion :

[Triton972]

Bonjour,

J'ai mis en place des menus contextuels dans mes formulaires à partir des exemples de Philippe JOCHMANS. Ils marchent très bien par contre, je souhaiterais optimiser légèrement leur ergonomie :

J'autorise dans le menu contextuel l'accès à différents modes de filtre :

- Filtrer par sélection
- Filtrer hors sélection
- Filtrer

Tout fonctionne comme prévu sauf que je n'arrive pas à injecter au 1° niveau du menu contextuel la commande "Supprimer le filtre dans ...". Cette option n'est disponible qu'au 2° niveau du menu "Filtrer", ce que je trouve un peu "trop profond" dans l'arborescence.

Y a-t-il un moyen de "remonter" cette option au 1° niveau du menu contextuel ?

Merci de vos aides.
Cordialement,

[Invité]

Bonjour

Peux-tu donner plus de détails, entre autre le code que tu as utilisé.

Philippe

[Triton972]

Bonsoir,

Voici le code que j'utilise

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Public Sub ContextuelForm()
    ' ======================================================================================
    ' Auteur        : Starec - Philippe JOCHMANS - http://starec.developpez.com
    ' Description   : Création d'un menu contrextuel simple
    '=======================================================================================
 
    ' ===== déclaration =====
    Dim cmb As Office.CommandBar
    Dim btn As Office.CommandBarButton
    Dim picImage As IPictureDisp
 
    ' ===== suppression de la barre existante =====
    On Error Resume Next
    Application.CommandBars("Menu_Context_Form1").Delete
 
    ' ===== génération du menu contextuel ======
    Set cmb = Application.CommandBars.Add("Menu_Context_Form1", msoBarPopup)
 
    Set btn = cmb.Controls.Add(msoControlButton, 210)   'Tri AZ
    Set btn = cmb.Controls.Add(msoControlButton, 211)   'Tri ZA
    Set btn = cmb.Controls.Add(msoControlButton, 21)    'Couper
    Set btn = cmb.Controls.Add(msoControlButton, 19)    'Copier
    Set btn = cmb.Controls.Add(msoControlButton, 22)    'Coller
    Set btn = cmb.Controls.Add(msoControlButton, 640)   'Filtrer par sélection
    Set btn = cmb.Controls.Add(msoControlButton, 3017)  'Filtrer hors sélection
    Set btn = cmb.Controls.Add(msoControlButton, 7058)  'Supprimer Filtre   => ne s'intègre pas au menu
    Set btn = cmb.Controls.Add(msoControlButton)
    With btn
        .Caption = "&Filtrer"
        .Style = msoButtonCaption
        .OnAction = "FilterMenu"
    End With
 
End Sub

Je lance la procédure dans l'évènement "Load" de mon formulaire de démarrage.

Autre chose que je n'ai pas mentionné dans mon 1° post, j'utilise exclusivement l'application sous le format .accde.

Donc la ligne avant la création du sous-menu "Filtrer"

Code :

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

Set btn = cmb.Controls.Add(msoControlButton, 7058)  'Supprimer Filtre

est toujours inactive.

Cordialement,

[Invité]

Bonjour

Je viens de tester ton code, tous les éléments du menu contextuel s'affichent correctement, mais sont inactifs.

Philippe

[Triton972]

Bonjour Philippe,

Merci pour ta réponse. Chez moi tout est actif sauf "Supprimer filtre" !
Que puis-je faire ? Y a -t-il une solution ?
Cordialement

[LedZeppII]

Bonsoir,

Tu peux essayer avec l'id 605 pour enlever tout les filtres.

Il y a aussi l'id 11108 pour supprimer le filtre sur le champ actif.
Pour celui-la je suis obligé d'utiliser cette méthode :

Code :

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

Application.CommandBars("Form View Control").FindControl(, 11108).Copy cmdBar cmb

Dans cette même barre de menu "Form View Control" on a aussi :
10068 : égal à valeur_champ_actif
10071 : différent de valeur_champ_actif
Ce doivent être les équivalents Access 2007, de filtre par sélection et hors sélection.

A+

[Triton972]

Bonsoir LedZeppII,

Tout çà est fort intéressant J'ai néanmoins quelques difficultés à adapter ta ligne de code pour l'Id 11108, en particulier concernant la variable "cmdBar".
Peux-tu me donner un dernier coup de main pour çà afin de rendre ta ligne de code opérationnel chez moi.
Cordialement,

[LedZeppII]

Bonjour,

Erreur de copier/coller.
Dans mon code la barre d'outil est cmdBar, et chez toi c'est cmb.
Donc, pour toi :

Code :

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

Application.CommandBars("Form View Control").FindControl(, 11108).Copy cmb

A+

[Triton972]

Bonsoir LedZepII,


Super, un problème que je trainais depuis longtemps et qui est, enfin, résolu.
Un grand merci !
J'en ai d'autres en magasin (des problèmes non résolus ...) qui sont exposés dans le forum et qui n'attendent que ta sagacité ...
@+