Discussion :

[Le ptit nouveau]

Bonjour,

Pour extraire et analyser mes données, j'ai dû faire un TDC. Cependant, comme le TDC n'était pas suffisant pour analyser correctement mes données, j'ai du faire un tableau (qu'on appelera Tab1), à côté de mon TDC, pour une meilleure analyse. Le problème est que lorsque je met à jour mon TDC, mon Tab1 ne se met pas à jour automatique : il fallait que je tire manuellement les lignes vers le bas. J'ai donc fais un petit codage VBA pour que le tirage des lignes se fasse tout seul.
Maintenant que les données de mon Tab1 sont à jour, il faut aussi que je mette à jour mon graphique. Et c'est à ce niveau que je bloque. Je n'arrive pas à changer la sélection de mon tableau. Il faut que je le fasse manuellement, et j'aimerai pouvoir l'automatiser avec du VBA.

J'espère que j'ai été clair et si vous avez des suggestions, je suis preneur

[Menhir]

Dans l'objet Chart référençant ton graphique, il faut modifier les propriétés de SeriesCollection, en particulier XValues et Values ou bien directement de Formula.

Lire ça :
https://docs.microsoft.com/fr-fr/off....chart(object)
https://docs.microsoft.com/fr-fr/off...riescollection
https://docs.microsoft.com/fr-fr/off...series(object)
https://docs.microsoft.com/fr-fr/off...series.formula

[Le ptit nouveau]

J'ai bien pris connaissance de ce que tu m'as envoyé, et j'ai pu faire ce petit programme :

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
Sub Selection_donnees_graphes()
'
' Selection_donnees_graphes Macro
'
Dim LastRw As Long, i As Integer, feuille
feuille = Array("1", "2")
For i = LBound(feuille) To UBound(feuille)
 
    LastRw = Sheets(feuille(i)).Cells(Rows.Count, 3).End(xlUp).Row
 
 
    ActiveSheet.ChartObjects("Graphique 4").Activate
 
    ActiveChart.FullSeriesCollection(1).Values = Range("H6:H" & LastRw)
    ActiveChart.FullSeriesCollection(2).Values = Range("I6:I" & LastRw)
    ActiveChart.FullSeriesCollection(3).Values = Range("J6:J" & LastRw)
    ActiveChart.FullSeriesCollection(4).Values = Range("K6:K" & LastRw)
    ActiveChart.FullSeriesCollection(4).XValues = Range("E6:F" & LastRw)
 
Next i
 
End Sub

Cependant, lorsque je rajoute des lignes à mon Tab1, la maccro ne sélectionne pas toutes les nouvelles données et je n'ai donc pas d'évolution dans mon graphe...
Est-ce que tu vois d'où vient mon erreur ?

[Menhir]

Je suppose qu'il n'est pas normal qu'il n'y ait pas de relation entre la variable i d'itération de ton For To et ActiveSheet.

[Le ptit nouveau]

J'ai légèrement modifié le programme, et ça fonctionne légèrement mieux. Cependant, j'ai encore un soucis avec ma dernière ligne... Il s'agit de l'axe des abscisses, et j'ai besoin de sélectionner 2 colonnes pour faire apparaitre le nom du produit, ainsi que la semaine de fabrication. Mais avec mon programme rien ne bouge dans la sélection de la plage de donnée alors que pour le reste, tout est bon...

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
Sub Selection_donnees_graphes2()
'
' Selection_donnees_graphes Macro
'
Dim LastRw As Long, i As Integer, feuille
feuille = Array("SPC_CMSC1691", "SPC_CMSC1761")
 
    LastRw = Sheets(feuille(i)).Cells(Rows.Count, 3).End(xlUp).Row - 1
    ActiveSheet.ChartObjects("Graphique 4").Activate
    ActiveChart.SeriesCollection(1).Values = Sheets(feuille(i)).Range("$H$6:$H$" & LastRw)
    ActiveChart.SeriesCollection(2).Values = Sheets(feuille(i)).Range("$I$6:$I$" & LastRw)
    ActiveChart.SeriesCollection(3).Values = Sheets(feuille(i)).Range("$J$6:$J$" & LastRw)
    ActiveChart.SeriesCollection(4).Values = Sheets(feuille(i)).Range("$K$6:$K$" & LastRw)
    ActiveChart.SeriesCollection(4).XValues = Sheets(feuille(i)).Range("$E$6:$F$" & LastRw)
 
End Sub

Je débute avec VBA, donc j'ai encore du mal à identifier mes erreurs ^^

[Menhir]

Mais avec mon programme rien ne bouge dans la sélection de la plage de donnée alors que pour le reste, tout est bon...

Je le répète : dans ta boucle, tu utilises ActiveSheet mais nulle part tu n'indiques que la feuille active est celle qui correspond à la feuille d'indice i de ta matrice feuille.

De toute façon, d'une manière générale, je te conseille d'éviter les Activate et les Select.

Code :

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

1
2
3
4
5
6
7
For i = LBound(feuille) To UBound(feuille)
 
    LastRw = Sheets(feuille(i)).Cells(Rows.Count, 3).End(xlUp).Row
    Set MonGraph = Sheets(feuille(i)).ChartObjects("Graphique 4")
 
    MonGraph.FullSeriesCollection(1).Values = Range("H6:H" & LastRw)
    ... etc ...

Es-tu sûr que ton graph se nomme "Graphique 4" dans chaque feuille ?

[Le ptit nouveau]

oui oui j'ai bien fais attention aux noms de mes graphiques.
Et tu as raison, le fait d'enlever le Activate, ça fonctionne mieux !!

Merci pour ton aide et bonne journée

[Menhir]

Il y avait une erreur dans mon code : j'avais oublié un Set.