Discussion :

[mikeline]

Bonjour,

J'ai fait un petit code pour la mise en forme de mes graphs, il s'agit de modifier l'épaisseur du tracé. Tout fonctionne c'est tout simple.

- La procédure est lancée avec l'évènement Change.
- Les graphs sont dans la feuille 2.

Lorsque la procédure s’exécute et que je suis dans la feuille 2, les 2 graphs se mettent à jour.

MAIS, lorsque la procédure s'exécute depuis la feuille 1 -> code identique dans feuil1 et feuil2 (évenement change) avec un trigger dans la feuille 1.
Lorsque je vais dans la feuille 2 pour voir mes graphs, je ne vois que le graph1 à jour. Il faut que je change d'onglet puis que je revienne à nouveau dans la feuille 2 pour que le graph2 se mette à jour.

Pourquoi??

Merci à vous si vous avez des explications.

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
Private Sub Worksheet_Change(ByVal Target As Range)
'Trigger dans la "feuil1"
 
AdrCell = Target.Address        'récupère adresse cellule dans variable
 
Select Case AdrCell
 
    Case "$B$4" ', "une autre cellule", "encore une"....
 
        Sheets("feuil2").ChartObjects("Graphique 2").Activate   'les graphs sont dans la feuille 2
 
            With ActiveChart
            .FullSeriesCollection(1).Format.Line.Weight = 2 * Sheets("feuil3").Range("D11").Value   'épaisseur série de donnée 1 (valeur dans la feuille 3 mais peu importe)
            .FullSeriesCollection(2).Format.Line.Weight = 2 * Sheets("feuil3").Range("D12").Value   'épaisseur série de donnée 2
            .Refresh    'le .Refresh ne change rien à mon problème
            End With
 
 
        Sheets("feuil2").ChartObjects("Graphique 1").Activate   'pareil pour le deuxième graph 
            With ActiveChart
            .FullSeriesCollection(1).Format.Line.Weight = 2 * Sheets("feuil2").Range("I5").Value
            .FullSeriesCollection(2).Format.Line.Weight = 2 * Sheets("feuil2").Range("I6").Value
            .Refresh
            End With
 
 
            With Worksheets("feuil1")   'Pour remettre le curseur sur la cellule trigger (ne pas perturber l'utilisateur)
            .Activate                   'je ne sais pas s'il y a une meilleure méthode mais ça fonctionne
            .Range(AdrCell).Activate
            End With
 
    End Select
 
 
End Sub

[ARTURO83]

Bonjour,

Ca fonctionne chez moi, j'ai remplacé "FullSeriesCollection" par "SeriesCollection".
vous confirmez bien que les valeurs de l'épaisseur pour le graphique 1 sont bien dans la feuill2 et non la feuille 3?
A quoi sert le "Select case" si n'y a qu'une cellule à tester?

Revoici votre code tel qu'il fonctionne chez moi:

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
Private Sub Worksheet_Change(ByVal Target As Range)
    'Trigger dans la "feuil1"
    AdrCell = Target.Address        'récupère adresse cellule dans variable
    Select Case AdrCell
    Case "$B$4" ', "une autre cellule", "encore une"....
        Sheets("feuil2").ChartObjects("Graphique 2").Activate   'les graphs sont dans la feuille 2
        With ActiveChart
            .SeriesCollection(1).Format.Line.Weight = 2 * Sheets("feuil3").Range("D11").Value   'épaisseur série de donnée 1 (valeur dans la feuille 3 mais peu importe)
            .SeriesCollection(2).Format.Line.Weight = 2 * Sheets("feuil3").Range("D12").Value   'épaisseur série de donnée 2
        End With
        Sheets("feuil2").ChartObjects("Graphique 1").Activate   'pareil pour le deuxième graph
        With ActiveChart
            .SeriesCollection(1).Format.Line.Weight = 2 * Sheets("feuil2").Range("I5").Value
            .SeriesCollection(2).Format.Line.Weight = 2 * Sheets("feuil2").Range("I6").Value
        End With
    End Select
End Sub

Cdlt

[mikeline]

vous confirmez bien que les valeurs de l'épaisseur pour le graphique 1 sont bien dans la feuill2 et non la feuille 3?

Oui.

A quoi sert le "Select case" si n'y a qu'une cellule à tester?

Il y en a plein dans la "vraie" version de le feuille de calcul.

Je me permets de repréciser mon problème. Le code marche très bien pour moi aussi.

C'est l'actualisation du graphique qui fait défaut :
-je suis dans l'onglet 1
-le code est lancé depuis l'onglet 1
-passage dans l'onglet 2 --> le graph 1 a été modifié, le graph 2 n'a pas été modifié (du moins ça n'apparait pas)
-passage dans un autre onglet (peu importe)
-REtour dans l'onglet 2 --> oh! magie le graphique 2 est modifié...

Bon je pense que vous aviez compris mais ca ne coute rien de préciser.

J'ai essayé avec "SeriesCollection" mais ça ne change rien

[ARTURO83]

Dans quel module se trouve la macro? N'est-elle pas dans le module de la "feuil1"?

[mikeline]

Une version du code est intégrée au module de la feuille 1 et au module de la feuille 2. C'est la même chose excepté les adresses des cellules trigger.
Le code que j'ai partagé est tiré du module de la feuille 1 bien entendu.

Lorsque la macro est exécutée depuis la feuille 2 tout se passe bien. Lorsqu'elle l'est depuis la feuille 1 il y a ce problème d'actualisation/affichage différé du graph 2.
Étrange n'est-ce pas.

[ARTURO83]

Bonjour,

J'essaie de reproduire la structure de votre fichier. Pour ma part tout fonctionne bien.
Alors il faudrait que je puisse reproduire votre fichier pour trouver l'erreur.
- S'il y a des données dans la feuille 1,quelle plage? quelle plage de cellules permet de déclencher la macro?
- S'il y a des données dans la feuille 2,quelle plage? quelle plage de cellules permet de déclencher la macro?