Discussion :

[nianko]

Bonjour,

On me demande de réaliser plusieurs modifications du menu contextuel ("Cell"):

ce que je n'arrive pas à faire:

- je dois supprimer le contrôle prédéfini "add watch" (ça ne marche pas)
- créer un contrôle "modes de calculs" de type pop up qui permettait de choisir si le calcul est automatique, automatique sauf table ou manuel
l'objet à modifier est
est
application.Calculation = xlSemiautomatic ou bien xlManual ou bien xlAutomatic

ce que j'arrive à faire
-je dois rajouter un controle "double soulignement"
- je dois rajouter un bouton qui calcule la somme, moyenne, min et max d'une plage de nombres




voici le code:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub Question_2_menu()
 
Dim bouton1 As CommandBarButton
Dim bouton2 As CommandBarButton
 
'réinitialise la souris
Application.CommandBars("Cell").Reset
 
'retrait de Add Watch
'Application.CommandBars("Cell").CommandBarControls(ID:=5685).Visible = False
 
 
 
'Ajout du contrôle personnalisé
Set bouton1 = CommandBars("Cell").Controls.Add(Type:=msoControlButton)
With bouton1
    .Caption = "Calculs"
    .OnAction = "Calcule"
    .FaceId = 308
End With
 
'Ajout du contrôle prédéfini format/double Underline
Set bouton2 = CommandBars("Cell").Controls.Add(Type:=msoControlButton)
With bouton2
    .Caption = "Double soulignement"
    .OnAction = "doublebarre"
    .FaceId = 60
End With
 
End Sub
 
Sub Calcule()
 
On Error Resume Next
 
MsgBox prompt:=" somme : " & WorksheetFunction.Sum(Selection) & Chr(13) _
      & " moyenne : " & WorksheetFunction.Average(Selection) & Chr(13) _
      & " maximum : " & WorksheetFunction.Max(Selection) & Chr(13) _
      & " minimum : " & WorksheetFunction.Min(Selection), Title:="Calculs"
 
End Sub
 
Sub doublebarre()
   Selection.Font.Underline = xlUnderlineStyleDouble
End Sub
Sub Supp_Menu_Contextuel()
'réinitialize la souris
Application.CommandBars("Cell").Reset
End Sub

Quelqu'un a t'il une idée pour supprimer add watch et creer le menu "modes de calcul"
Je mets le classeur aussi.

merci

[wilfried_42]

Bonjour

Je ne sais pas ce que veut dir Add Watch (Pas bon en anglais le wil)

Voici un fichier, tu cliques sur le bouton et tu as ton menu

Dans la macro, tu as la procedure pour supprimer un item, il te faut trouver le bon