Discussion :

[MrBidon]

bonjour à tous

j'utilise ce code pour une mise a jour graphique

Code :

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

1
2
3
4
5
6
 
 
Sheets("Carnet de commandes").ChartObjects(2).Select
ActiveChart.SeriesCollection(1).Values = Range(Cells(8, 1), Cells(7, 18))
ActiveChart.SeriesCollection(2).Values = Range(Cells(9, coord_colonne - 9), Cells(8, coord_colonne))
ActiveChart.SeriesCollection(1).XValues = Range(Cells(6, coord_colonne - 9), Cells(6, coord_colonne))

il plante sur le la sélection de la série 1

j'ai déjà utilisé ce code ailleurs et il marche
en supprimant les maj des séries j'ai pu faire ces constats:
l'axe des abcisses se met bien à jour et le graphe est bien selectionné

une idée? ça fait 2h que je cherche...en vain!

[MrBidon]

Salut!

oui les séries sont cohérentes!

je vais essayer tes solutions!

si je comprends bien mon code marchait dans le premier cas parce que je n'avais qu'un graphe. Or dans le second cas j'en ai plusieurs, d'où le besoin d'adressage?

[MrBidon]

bon ca ne va toujours pas...on dirait que le prog ne sait pas ce qu'est la série en fait

je mets quand meme le code au cas ou, avec des cellules fixes cette fois

Code :

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

1
2
3
4
5
6
7
 
 
Dim adress1 As String
 
adress1 = Range(Cells(9, 9), Cells(9, 15)).adress
ActiveChart.SeriesCollection(1).Values = adress1
ActiveChart.SeriesCollection(1).XValues = Range(Cells(6, coord_colonne - 9), Cells(6, coord_colonne))

il bute toujours sur la premiere serie, si je la supprime, l'axe des abscisses se met à jour sans soucis

[MrBidon]

bon en fouinant encore un peu je pense que le problème est rééellement que la macro ne sait pas ce qu'est une série alors que le graphe existe.

le problème vient surement de sa création qui a été manuelle.

Je vais essyaer d'ajouter des séries au lieu de les mettre à jour, onverra bien

reste plus qu'à trouver la commande addselection ou un truc du genre

[MrBidon]

si quelqu'un a une piste pour l'ajout d'une série dans un graphe existant j'achète!

mes recherches sur le net sont pour le moment infructueuses
merci

[MrBidon]

j'ai résolu le problème en copiant un autre graphe sur lequel la fonction marchait...

pas très propre mais ça me permet d'avancer

merci


PS:le nord c'est par là

[ouskel'n'or]

Bon, alors j'ai testé et il "semblerait" que les SerieCollections n'acceptent pas les noms de colonnes.
Peux-tu remplacer tes noms de colonnes par leur N° ?
Ensuite, pour le format de la plage, c'est "ColLig:ColLig"
Donc, Range(cells(Lig,Col),Cells(Lig,Col)) "n'a pas l'air" de fonctionner (?!?)
La raison est sans doute que ça crée un range sous la forme "ColLig, ColLig"
mais là, je m'avance peut-être, toujours est-il que ça ne fonctionne pas.
Ce qui fonctionne, c'est sûr, c'est cette syntaxe :

Code :

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

1
2
3
4
5
6
7
Dim Plage
    Plage = Range("F" & 9).Address & ":" & Range("F" & 3).Address
    ActiveSheet.ChartObjects(1).Activate
    ActiveChart.SeriesCollection(1).Values = Range(Plage)
'ou
    ActiveChart.SeriesCollection(1).Values = _
          Range(Range("F" & 9).Address & ":" & Range("F" & 3).Address)

ou encore le format "RligCcol:RligCcol" moins aisé à construire.
Bon courage pour adapter.
A+

[MrBidon]

oui ça marche bien ton truc

pour le coup j'utilise ceci

Code :

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

1
2
3
4
5
6
7
 
 
Sheets("Carnet de commandes").ChartObjects(4).Select
ActiveChart.SeriesCollection(1).Values = Range(Cells(10, coord_colonne - 9), Cells(10, coord_colonne))
ActiveChart.SeriesCollection(2).Values = Range(Cells(11, coord_colonne - 9), Cells(11, coord_colonne))
ActiveChart.SeriesCollection(1).XValues = Range(Cells(6, coord_colonne - 9), Cells(6, coord_colonne))
Application.ScreenUpdating = True

et ça fonctionne parfaitement...va savoir, j'ai juste copié le graphe qui y était associé pour être sûr d'avoir le même type de graphe ensuite et 4a a suffi



merci beaucoup de ton aide c'est super!

@bientot (je commence a prendre un abonnement ici lol)