Discussion :

[HurGeek]

Bonjour à tous,

Je vous explique mon problème : je crée dynamiquement un menu accessible via un clic droit sous Excel-VBA.
Concrétement ce menu affiche la liste de toutes les feuilles du classeur, l'idée étant de pouvoir naviguer plus facilement à l'intérieur pour les classeurs ayant beaucoup de feuilles :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Set obj_CommandBar = Application.CommandBars("Cell")
Set obj_CBPopup = obj_CommandBar.Controls.Add(Type:=msoControlPopup, Before:=1)
    obj_CBPopup.Caption = "Naviguer dans les onglets"
 
    For Each var_Sheet In dic_Sheets 'dictionnaire contenant le nom des feuilles
        Set obj_CBControl = obj_CBPopup.Controls.Add(Type:=msoControlButton)
        obj_CBControl.Caption = var_Sheet
        obj_CBControl.OnAction = "GOTOSheet"
    Next var_Sheet

Le problème étant que je voudrais affecter une procédure GOTOSheet (le .onaction ) permettant d'accéder à la feuille en question, mais pour cela je dois récupérer la valeur sur laquelle l'utilisateur clique...
Est-ce possible?
Voyez-vous une autre solution dynamique?(autre que de créer 1 procédure par feuille...)
Merci par avance pour votre aide.

[tototiti2008]

Bonjour HurGeek,

Comme je l'ai appris sur ce forum :
http://www.developpez.net/forums/d92...ment-onaction/

c'est avec plaisir que je passe le flambeau :

Code :

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

obj_CBControl.OnAction = "'GOTOSheet " & Chr(34) & var_Sheet & Chr(34) & "'"

[HurGeek]

Ha très intéressant ta réponse merci beaucoup tototiti !
j'ai toujours pensé que le passage de paramètre était impossible...
En farfouillant un peu j'ai également trouvé une autre solution : pour obtenir le text du controlbutton activé il faut utiliser :

Code :

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

CommandBars.ActionControl.TooltipText

Merci encore