[AC-2007] Comment modifier la largeur d'un menu contextuel

[Triton972]

Bonjour à tous,

En cliquant à droite sur un contrôle, j'accède à un menu contextuel dans lequel il y a les options pour les filtres. Parfois les libellés sont plus long que la largeur du menu et oblige alors à utiliser les boutons de défilement.
Y a t-il un moyen de modifier la largeur de la fenêtre du menu contextuel pour rendre la navigation plus ergonomique ?
Merci pour idées et vos pistes.
Cordialement,

[Philippe JOCHMANS]

Bonjour

Peux-tu mettre une copie d'écran ou le code de ta création de menu contextuel pour se donner une idée ?

Philippe

[Triton972]

Bonjour Philippe,

Merci pour ta réponse.
Je joins le code de création du menu contextuel que tu connais bien

Code :

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
35
36
37
38
39
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
    Set btn = cmb.Controls.Add(msoControlButton, 605)  'Enlever  Filtre
    Application.CommandBars("Form View Control").FindControl(, 11108).Copy cmb
    Set btn = cmb.Controls.Add(msoControlButton)
    With btn
        .Caption = "&Filtrer"
        .Style = msoButtonCaption
        .OnAction = "FilterMenu"
    End With
    Set btn = cmb.Controls.Add(msoControlButton, 478)   'Supprimer
    Set btn = cmb.Controls.Add(msoControlButton, 1577)  'Modifier lien hypertexte
    Set btn = cmb.Controls.Add(msoControlButton, 3626)  'Supprimer lien hypertexte
 
End Sub

@+

[Philippe JOCHMANS]

Re

je viens de copier ton code et de l’exécuter, et je ne vois rien qui cloche, tout s'affiche correctement.

Peux-tu faire une copie d'écran du phénomène que tu as constaté.

Philippe

[Triton972]

Bonjour Philippe,

La procédure fonctionne bien mais je joins une capture d'écran pour mieux m'expliquer.
Je voudrais pouvoir modifier la largeur de la fenêtre afin de pouvoir me passer de l'ascenseur horizontal.
@+

[Philippe JOCHMANS]

Re

Cela n'a rien à voir avec le menu contextuel, ce filtre est généré par Acces directement, si tu fais le test sans ton code tu le verras.

Personnellement je n'ai aucune idée comment on peut faire.

Désolé.

Philippe

[Triton972]

Re,

Mon problème n'est pas le filtre mais uniquement la dimension extérieure de la fenêtre "pop-up" du menu contextuel que je voudrais pouvoir agrandir.
Enfin ce n'est pas grave, si il n'y a pas de possibilité je m'en passerai.
Merci quand même pour le temps que tu m'as accordé.
@+