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
Partager