QUESTION DU JOUR

[jane]

Bonjour à toutes et à tous,
La question du jour est :
coman est fé la list que l'on utilise lorskon click droit avec le mulot (copier, coller, couper......), j'voudré bien recreer la meme.
Merci.

 

[michael.desveaux@post.tele.dk]

Voici un exemple :

Dim ClikDroitInitDate As CommandBarButton

Set ClikDroitInitDate = Application.CommandBars("Cell").Controls.Add(msoControlButton)

With ClikDroitInitDate
.Caption = "Start a call"
.OnAction = "InserInitDate"
End With

Cette instruction ajoute "Start a call" au menu click droit et démarre la macro InserInitDate quand cliqué.

Pour le supprimer :

For Each Ctrl In Application.CommandBars("Cell").Controls
If Ctrl.Caption = "Start a call" Then Ctrl.Delete
Next Ctrl



Michael