bonjour tout le monde,

depuis peu, j'ai du me resoudre a passer a excel 2010.

Maintenant je dois readapter mon code pour une application

Voici le code qui me pose probleme

sur la page active, pour afficher un menu supplementaire au menu deroulant clic droit de excel


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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub Worksheet_Activate()
  With Application.CommandBars("cell").Controls.Add(msoControlButton)
    .Caption = "Premiere prestation"
  End With
 
  For Each cmddroit In Application.CommandBars("cell").Controls
    If cmddroit.Type = msoControlComboBox Then cmddroit.Delete
  Next cmddroit
 
  Set myControl = CommandBars("cell").Controls.Add(Type:=msoControlComboBox, Before:=19)
  With myControl
  For x = 1 To 12
    .AddItem Text:=Cells(x, 1), Index:=x
  Next
    .ListIndex = 1
    .DropDownLines = 6
    .DropDownWidth = 70
    .ListHeaderCount = 1
    .Tag = "menuquatre"
    .OnAction = "premjour"
 
  End With
End Sub
 
et sa macro 
 
  Sub premjour()
  Dim quatrebtn As CommandBarComboBox, strTxt As String
  Set quatrebtn = CommandBars("cell").FindControl(, , "menuquatre")
  strTxt = quatrebtn.Text
  ActiveCell = strTxt
End Sub


Sous xl 2003 pas le moindre souci

sous xl 2010 a part le titre je n'ai plus de menu deroulant creer

Quelqu'un pourrait il m'expliquer pourquoi se phenomene et comment le resoudre

D'avance merci pour votre aide
Romualdus