[AC-2007] Appel d'une fonction du ruban [Résolu]

[damalaan]

Bonjour,

J'ai un Ruban personnalisé avec du code dans un module.
Je voudrais utiliser sur un évènement d'un formulaire une des fonctions de ce ruban, mais je ne sais pas comment l'appeler
code de la fonction:

Code :

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
Function btnechelle_action(ByVal control As IRibbonControl)
 
Dim mini As Variant
Dim maxi As Variant
Dim vlchart As Graph.chart
On Error GoTo err
'mise à l'échelle MG
'recherche du minimum et maximum de la série mg
mini = DMin("val_mg", "qry_limite", "ctl_id=" & Forms("frm_session").ctl_id)
maxi = DMax("val_mg", "qry_limite", "ctl_id=" & Forms("frm_session").ctl_id)
 
If mini < (Forms("frm_session").ctl_mgref - 0.5) Then
mini = mini - 0.1
Else
mini = (Forms("frm_session").ctl_mgref - 0.6)
End If
 
If maxi > (Forms("frm_session").ctl_mgref + 0.5) Then
maxi = maxi + 0.1
Else
maxi = (Forms("frm_session").ctl_mgref + 0.6)
End If
 
Set vlchart = Forms("frm_session").graph_mg.Object.Application.chart
vlchart.Axes(2).MinimumScale = mini
vlchart.Axes(2).MaximumScale = maxi
 
 
'mise à l'échelle MP
'recherche du minimum et maximum de la série
mini = DMin("val_mp", "qry_limite", "ctl_id=" & Forms("frm_session").ctl_id)
maxi = DMax("val_mp", "qry_limite", "ctl_id=" & Forms("frm_session").ctl_id)
 
If mini < (Forms("frm_session").ctl_mpref - 0.5) Then
mini = mini - 0.1
Else
mini = (Forms("frm_session").ctl_mpref - 0.6)
End If
 
If maxi > (Forms("frm_session").ctl_mpref + 0.5) Then
maxi = maxi + 0.1
Else
maxi = (Forms("frm_session").ctl_mpref + 0.6)
End If
 
Set vlchart = Forms("frm_session").graph_mp.Object.Application.chart
vlchart.Axes(2).MinimumScale = mini
vlchart.Axes(2).MaximumScale = maxi
 
'mise à l'échelle cellules
'recherche du minimum et maximum de la série
mini = DMin("val_cell", "qry_limite", "ctl_id=" & Forms("frm_session").ctl_id)
maxi = DMax("val_cell", "qry_limite", "ctl_id=" & Forms("frm_session").ctl_id)
 
If mini < (Forms("frm_session").ctl_cellref * 0.9) Then
mini = mini - 5
Else
mini = (Forms("frm_session").ctl_cellref * 0.9 - 5)
End If
 
If maxi > (Forms("frm_session").ctl_cellref * 1.1) Then
maxi = maxi + 5
Else
maxi = (Forms("frm_session").ctl_cellref * 1.1 + 5)
End If
 
Set vlchart = Forms("frm_session").graph_cell.Object.Application.chart
vlchart.Axes(2).MinimumScale = mini
vlchart.Axes(2).MaximumScale = maxi
 
'mise à l'échelle fpd
'recherche du minimum et maximum de la série
mini = DMin("val_fpd", "qry_limite", "ctl_id=" & Forms("frm_session").ctl_id)
maxi = DMax("val_fpd", "qry_limite", "ctl_id=" & Forms("frm_session").ctl_id)
 
If mini < (Forms("frm_session").ctl_fpdref - 5) Then
mini = mini - 1
Else
mini = (Forms("frm_session").ctl_fpdref - 6)
End If
 
If maxi > (Forms("frm_session").ctl_fpdref + 5) Then
maxi = maxi + 1
Else
maxi = (Forms("frm_session").ctl_fpdref + 6)
End If
 
Set vlchart = Forms("frm_session").graph_fpd.Object.Application.chart
vlchart.Axes(2).MinimumScale = mini
vlchart.Axes(2).MaximumScale = maxi
 
Forms("frm_session").Repaint
 
err:
If err.Number <> 0 Then
MsgBox err.Number & "-" & err.Description
End If
 
 
 
End Function

merci d'avance

[damalaan]

je viens de trouver tout seul comme un grand!!
j'ai créer une fonction Echelle avec le code dedans
et j'appelle cette fonction aussi bien du ruban que sur un évènement qqc d'un form!