Discussion :

[Lucorah]

Bonjour à tous,

J'ai un graph croisé dynamique (incorporé) généré par macro sous forme d'histogramme + une série en courbe. A chaque fois que je bouge mon tableau croisé dynamique cette mise en forme passe à la trappe. J'aimerais donc que cette mise en forme soit rétablie à chaque fois que le graph est recalculé.
J'ai bien essayer de comprendre avec le tuto sur les évènements mais j'arrive pas à faire réagir mon graphique aux évènements car je m'y perds avec les histoires de modules de classe, la procédure RetourneDescriptionID et tout ça... en gros je comprends rien !!!

J'aimerais également que lorsque l'on pointe sur une série elle affiche le texte d'une cellule (située sur une autre feuille) donc je suppose que pour cela aussi il faut passer par l'évènement CHART_MOUSEMOVE.

Si une âme charitable pouvait m'expliquer (de préférence simplement) comment faire réagir mon graphique aux évènements Calculate et Mousemove ce serait sympa !
Merci

[Lucorah]

Je viens de trouver ce complément d'information sur les procédures évenementielles :

http://xcell05.free.fr/pages/prog/evenements.htm

Mais il n'est pas question de module de classe... je vais essayer pour voir et je donne des news (même si ça n'a pas l'air d'intéresser grand monde à part moi ... ça pourra toujours dépanner un qqun un jour... ou pas).

[Lucorah]

Voilà ce que j'ai fait (sans succès):

Dans le module ThisWorkbook :

Code :

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

1
2
3
Private sub Workbook_open
Set Worksheets("TCD").graph = Worksheets("TCD").ChartObjects(1)
end sub

Dans le module de la feuille TCD:

Code :

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

1
2
3
4
5
Public WithEvents Graph as chart
 
Private sub Graph_Calculate()
Worksheets("TCD").Graph.SeriesCollection.Series("Total général").ChartType = xlLine
End sub

Je ne sais pas pourquoi mais ça ne fait rien du tout. Je précise que le graph se reconstruit à chaque fois mais qu'il est tout seul sur la feuille donc l'index pour le désigner devrait être le bon.
Bref je commence a ne plus vraiment savoir quoi faire.

[Lucorah]

En fait en reprenant le cours de SilkyRoad sur les évènements dans les graphiques j'ai réussi à avoir ce que je voulais... pendant 2 mn

Je pense que le problème vient de la façon de nommer le graphique. Voici mon 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
'Remet la série "Total général" sous forme de courbe rouge après le calcul du graph
 
Private Sub Graph_Calculate()
Dim i As Integer
For Each Graph In ChartObjects
Worksheets("TCD").ChartObjects(1).Activate
Worksheets("TCD").ChartObjects(1).SeriesCollection("Total général").ChartType = xlLine
With ActiveChart.SeriesCollection("Total général").Select.Border
        .ColorIndex = 3
        .Weight = xlThick
        .LineStyle = xlContinuous
    End With
    With Selection
        .MarkerBackgroundColorIndex = xlNone
        .MarkerForegroundColorIndex = xlNone
        .MarkerStyle = xlNone
        .Smooth = True
        .MarkerSize = 5
        .Shadow = False
    End With
Next i
End Sub

Comme le graphique est reconstruit à chaque éxécution de la macro, son index doit changer et je pense que son nom aussi.
Cependant comme il fait partie d'une classe je suppose qu'il doit exister un moyen de le désigner ou alors de faire une boucle sur l'index jusqu'à trouver le bon.
Qqun aurait-il une idée ?

[Lucorah]

on peut dire que j'ai résolu le problème, j'ai tout simplement repris le cours de SilkyRoad et copier le code dans mon classeur.
Bref ça marche!