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