Discussion :

[LeForestier]

Bonjour,
Un menu polyvalent sur un module de classe.
' Tester sur Excel 2000 et 2007
'
' Implémente un menu "Flottant" type PopUpMenu .
'
' Ce menu s'efface automatiquement dés qu'un action quelquonque survient
' sur le PC, ne nécessite aucune action pour l'effacer.
' Si clic ailleur que sur le menu ne renvoi rien à l'application appelante.
' Si clic sur le menu renvoi plusieurs données sur la ligne cliquée.
'
' Pour le mode d'emploi voir les appels de l'UserForm
'
' Cette classe fonctionne sous Windows Vista
'
Cordialement.
Edit:
J'ai ajouter le code pour avoir le menu disponnible aussi sur les feuilles de calcul. Avec démo.
Remarque: sur Excel 2007 ne pas changer le titre de l'application qui n'est visible que sur le bouton de réduction. (SetWindowText et GetActiveWindow()) à ne pas employer.

[Invité]

Bonjour

Ce serait bien avec quelques explications pour les membres qui ne connaissent pas le système des classes et les API.

Un petit tuto par exemple

Philippe

[LeForestier]

Suite à la remarque de Phillipe JOCHMANS,

1°) Mise en oeuvre de la classe PopUpMenu asser simple.
2°) Fonctionne aussi bien sur une feuille que sur un UserForm, mais le but est surtout l'UserForm.
2°) Ne nécessite pas une barre d'outils et donc de la refermer, c'est automatique, même si ont ne clique pas sur le menu.
3°) Peu servir de bulle pour les outils des UserForm qui n'en n'ont pas.
4°) Supporte les checkBox sur chaque ligne.
5°) Affichage avec Enabled False/True
6°) Je m'en sert également pour l'aide "Qu'est-ce que c'est"

Mise en oeuvre dans une application.
Charger le classeur PopUpMenu.xls
Dans l'IDE de VBA (Alt+F11)
Exporter le module LN_MenuFlottant et LN_ModMenu
dans le répertoir de votre application.
Ouvrez votre classeur et entrez dans l'IDE (Alt+F11)
Importez les fichiers LN_MenuFlottant.cls et LN_ModMenu.bas
Dans chaque module de feuilles ou d'Userform où vous voulez employer ce menu ajouter dans la partie déclaration...

Code :

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

    Private WithEvents LN_MenuF As LN_MenuFlottant

C'est tout.

Pour l'emploi des fonctions et Sub référez-vous aux modules de l'Userform et de Feuil1 qui sont dans le classeur PopUpMenu.xls
Si d'autres questions, n'hésitez pas.
A+

[Invité]