Discussion :

[Kriss63]

Bonjour,

J'ai une routine qui applique le meme formattage sur chaque graphe MS Access d'un userform.
aujourd'hui je suis oblige d'appliquer la routine par graphe en specifiant le nom de chaque graphe.

J'aimerai faire une boucle sur tous les objets graphiques et je ne sais comment faire, j'ai essaye de le faire sur tous les controles de la user form mais VB me renvoie le type comme "Object Frame" pour les graphe et quand je donne une prporpriete a modifier il me renvoi l'erreur habituelle "Object or proprity not found".

Quelqu'un a une idee ?

Merci d'avance

[micniv]

Bonjour,

J'ai une routine qui applique le meme formattage sur chaque graphe MS Access d'un userform.
aujourd'hui je suis oblige d'appliquer la routine par graphe en specifiant le nom de chaque graphe

tu n'en dis pas assez pour qu'on t'aide : quelle version d'access, quel est le code de ta routine et dans cette routine , que veux-tu personnaliser ?

[Kriss63]

Voila mon code aujourd'hui:

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
 
Private Sub Form_Load()
 
 
' ....... valeur par default de tous les objets .....
 
CurrentForm = Me.Name
 
Me.Chart_oil_corp.RowSource = CurrentForm & "_oildata"
Me.Chart_Gas_Sales.RowSource = CurrentForm & "_gassalesdata"
Me.Chart_gas_production.RowSource = CurrentForm & "_gasproddata"
 
'appelle de la mise en forme de base des graphs
 
Call MefGraph.mefgraphCorp(Me.Chart_oil_corp)
Call MefGraph.mefgraphCorp(Me.Chart_gas_production)
Call MefGraph.mefgraphCorp(Me.Chart_Gas_Sales)
 
 
End Sub
 
'dans un autre module
 
Public Sub mefgraphCorp(Mychart As Object)
 
'setting de l'apparence par des fauts des bar charts
 
  'chart area settings
    Mychart.ChartArea.Border.LineStyle = xlNone
    Mychart.ChartArea.Interior.ColorIndex = xlNone
 
    'Plotarea XY
    Mychart.PlotArea.Left = 72 / 10 'point
    Mychart.PlotArea.Top = 72 / 10 'point
 
    'Axis general
    Mychart.HasAxis(xlCategory, xlPrimary) = True
    Mychart.HasAxis(xlValue, xlPrimary) = True
 
'etc..............
 
End sub

et voila vers quoi je veux tendre, un truc du genre

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
Private Sub Form_Load()
 
 
' ....... valeur par default de tous les objets .....
 
CurrentForm = Me.Name
 
Me.Chart_oil_corp.RowSource = CurrentForm & "_oildata"
Me.Chart_Gas_Sales.RowSource = CurrentForm & "_gassalesdata"
Me.Chart_gas_production.RowSource = CurrentForm & "_gasproddata"
 
'appelle de la mise en forme de base des graphs
 
Dim mygraph as Object
 
For Each Mygraph in Me.Collection_des_graphs
 
Call MefGraph.mefgraphCorp(Mychart)
 
Next Mychart
End Sub

Une idee pour le type de collection a mettre ?


Merci

[micniv]

Pourquoi vouloir à tout prix utiliser une collection ? je n'en vois pas l'usage
par contre je ferais une fonction de mise en forme complète du graphe quitte à passer davantage d'arguments

dans le form_load :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub Form_Load()
 
'appelle de la mise en forme de base des graphs
 
Call MefGraph.MefCompleteGraph( Me.Chart_oil_corp, me.name & "_oildata")
Call MefGraph.MefCompleteGraph(Me.Chart_Gas_Sales, me.name & "_gassalesdata")
Call MefGraph.MefCompleteGraph(Me.Chart_Gas_Gas,me.name &  "_gasproddata")
 
End Sub

et MefCompleteGraph serait de la forme de mefgraphCorp, mais complété :

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
 
Public Sub MefCompleteGraph (ByRef Mychart As Object, ByVal QryName as string)
 
Mychart.RowSource = QryName 
    Mychart.Requery    ' => je ne l'ai pas encore vu dans ton code
 
'ensuite ton code
'setting de l'apparence par des fauts des bar charts
 
  'chart area settings
    Mychart.ChartArea.Border.LineStyle = xlNone
    Mychart.ChartArea.Interior.ColorIndex = xlNone
 
    'Plotarea XY
    Mychart.PlotArea.Left = 72 / 10 'point
    Mychart.PlotArea.Top = 72 / 10 'point
 
    'Axis general
    Mychart.HasAxis(xlCategory, xlPrimary) = True
    Mychart.HasAxis(xlValue, xlPrimary) = True
 
'etc..............
 
End sub

est-ce que ça rejoint ton idée ?

[Kriss63]

merci mais j'ai une réserve à ce que tu me proposes car cette mise en forme par defaut des graphes joue uniquement sur certains paramètres. elle sera réutilisée par la suite dans d'autres formulaires. c'est pour cela que je pensais à l'appliquer à la collection d'objets graphiques

pour compléter:
ensuite, par formulaire, il y a une autre fonction qui ajuste d'autres paramètres par graphe comme les titres das axes suivant les valeurs d'une liste d'options spécifiques au formulaire en question.

il y a également une dernière fonction qui ajuste la source données, car il y a quelques calculs intermédiaires c'est pour cela que le requery n'apparait pas ici.

j'essaye donc au mieux de dissocier fonctions calculatoires et fonctions de mise en forme spécifique et de base pour toute l'appli.

je vais néanmoins réfléchir à ta solution.

la question de la collection d'objets graphiques reste néanmoins en suspens pour une prochaine fois

[micniv]

la question de la collection d'objets graphiques reste néanmoins en suspens

si tous les contrôles des graphiques commencent par "chart" tu peux déjà faire une boucle sur les controles du formulaire et ne traiter que ceux qui commencent par "chart"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
...
For Each ctl In frm.Controls
if left(ctl.name,5)="chart" then
...
end if 
next ctl

[Kriss63]

Bon pour ta solution Micniv, meme si ce n'est pas ce que je recherchais precisement.