Discussion :

[jolzeviking]

Salut les vbites.

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
Set men2 = NewMenu.Controls.Add(msoControlPopup, , , , True)
  With men2
    .Caption = "classement"
  End With
 
  Set men2opt1 = men2.Controls.Add(msoControlButton, , , , True)
  With men2opt1
    .FaceId = 3872
    .Caption = "Pertes"
    .OnAction = "Start"
  End With
 
   Set men2opt2 = men2.Controls.Add(msoControlButton, , , , True)
  With men2opt2
     .FaceId = 3873
    .Caption = "Profits"
    .OnAction = "star"
  End With

Voila mon code
Le probleme est le suivant: je cherche à ajouter un faceid au menu men2 seulement j'ai tester plusieurs méthode et à chaques fois c'est erreur 438 ou 5 c'est la misere. Si quelqu'un connait ce genre de chose je suis preneur ,j'ai dut zapper un parametre.
Cordialement JZV

[fring]

Bonjour,

Précises le style msoButtonIconAndCaption
Sans le préciser, par défaut tu n'as pas le "Caption" mais uniquement l'icône

Code :

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

1
2
3
4
5
6
7
Set men2opt1 = men2.Controls.Add(msoControlButton, , , , True)
  With men2opt1
    .Style = msoButtonIconAndCaption
    .FaceId = 3872
    .Caption = "Pertes"
    .OnAction = "Start"
  End With

Vérifie également que tu as correctement déclarer men2opt1

Code :

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

Dim men2opt1 As CommandBarButton

Pour plus d'infos sur les barres de menus persos, jettes un oeil sur le tuto ci-dessous :
http://fring.developpez.com/vba/excel/barremenu/
.