[VBA-E] Données source d'un graphique

**Elstak** · 11/07/2006, 11h51

Hello,

j'ai un petit souci pour la selection de données source d'un graphique

voici le code donné par l'editeur de macro

Code :

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

1
2
'ActiveChart.SetSourceData Source:=Sheets("Données_APCIOPE1").Range( _
        "A6:A9,F6:F9"), PlotBy:=xlColumns

C'est un peu compliqué car j'ai plusieurs graphs. le premier prend de A6:A9,B6:B9 le second A6:A9,C6:C9 etc...

donc je décale d'une colonne à chaque fois. En plus de ca je veux choisir le nombre de lignes que je prend (donc pas toujours jusque ligne 9). j'ai tenté de traduire le code donné par l'editeur et ca donne le code ci dessous.

Code :

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

1
2
3
4
5
6
7
8
9
10
'on parcourt tous les graphs et on les met à jour
For i = 1 To Charts.Count
    Charts(i).Select
    'faire un range de range?
 
        ActiveChart.SetSourceData Source:=Sheets(1).Range(Range(Sheets(1).Cells(7, 1), _
    Sheets(1).Cells(DerniereLigne, 1)), Range(Sheets(1).Cells(7, i + 1), _
    Sheets(1).Cells(DerniereLigne, i + 1))), PlotBy:=xlColumns
 
Next

Or le probleme ici est que pour mon graph2 il me prend la plage de A6:C9 (j'ai donc 2 courbes) puis pour le graph3 il me prend A6: D9 (donc 3 courbes etc...)

moi je voudrai qu'il me prenne A6:A9 en abscisse et C6:C9 en ordonnées pour le graph2 (qu'il ne prenne pas la colonne B)

une idée?

**ouskel'n'or** · 11/07/2006, 11h56

Hello l'ersatz, toujours pas foutu à la porte ?
Regarde là, j'espère que tu trouveras ton bonheur

http://www.developpez.net/forums/sho...d.php?t=179577
Tu dis

**Elstak** · 11/07/2006, 12h03

Pfff vilain dodo !

non toujours pas à la porte, comme si !!

bon j'ai regardé ton exemple mais ca correspond pas à mon cas, ou alors j'ai mal compris.

en fait ton cas tu prend une plage de plusieur cellules bougeante. Moi c'est un peu le meme mais y'a un "trou" dans la plage.

Je prend toujours la colonne A mais apres je prend QUE la B pour graph1 (donc données de colonnes A et B), QUE la C pour graph2 (donc données de colonnes A et C)....

et moi avec mon code j'arrive pas à prendre A et C il me prend A à C (donc la colonne B aussi et moi j'en veux pas !!)

voilà c'est pas simple à expliquer désolé

**ouskel'n'or** · 11/07/2006, 12h08

Dis-moi déjà si c'est un truc de ce genre-là que tu veux

Code :

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

    Range("A6:A10,D6:D10,E6:E10")

**Elstak** · 11/07/2006, 12h09

hmmmm,

espece de *%$! de dodo !!

tu aimes me faire languir hein?!

j'ai la solution !!! mais attend un peu...

**Elstak** · 11/07/2006, 12h12

oui c'est ca

.Range("A6:A9,F6:F9"),

moi ya que 2 plage différentes mais c'est ca l'idée !

**ouskel'n'or** · 11/07/2006, 12h25

Alors tu fabriques ta plage .Range("A6:A9,F6:F9"),

Code :

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

1
2
3
4
5
6
7
8
9
10
        NoCol1 = 1
        NoLigne1 = 6
        NoCol2 = 1
        NoLigne2 = 9
        Plage = Range(Cells(NoLigne1,NoCol1),Cells(NoLigne2,NoCol2)).address
        NoCol1 = 1
        NoLigne1 = 6
        NoCol2 = 6
        NoLigne2 = 9
        Plage = Plage + "," + Range(Cells(NoLigne1,NoCol1),Cells(NoLigne2,NoCol2)).address

Et ensuite, tu peux mettre ".Range(Plage), "
Maintenant, si tes colonnes ne changernt pas, tu peux simplement mettre

Code :

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

1
2
3
4
5
6
        NoLigne1 = 6
        NoLigne2 = 9
        Plage = Range(Cells(NoLigne1,1),Cells(NoLigne2,1)).address
        NoLigne1 = 6
        NoLigne2 = 9
        Plage = Plage + "," + Range(Cells(NoLigne1,6),Cells(NoLigne2,6)).address

A toi !

**Elstak** · 11/07/2006, 13h15

Recoucou,

alors si j'ai bien compris voilà le code que je dois mettre.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 NoCol1 = 1
    NoLigne1 = 6
    NoCol2 = 1
    NoLigne2 = DerniereLigne
    plage = Range(Cells(NoLigne1, NoCol1), Cells(NoLigne2, NoCol2)).Address
    NoCol1 = i + 1
    NoLigne1 = 6
    NoCol2 = i + 1
    NoLigne2 = DerniereLigne
    plage = plage + "," + Range(Cells(NoLigne1, NoCol1), Cells(NoLigne2, NoCol2)).Address
    ActiveChart.SetSourceData Source:=Sheets(1).plage, PlotBy:=xlColumns

par contre j'ai une erreur (à la ligne en rouge):

la methode "cells" de l'objet '_global' à échouée

sinon... apres je l'utilise comment "plage" ?

comme ca?

Code :

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

ActiveChart.SetSourceData Source:=Sheets(1).plage, PlotBy:=xlColumns

**ouskel'n'or** · 11/07/2006, 13h22

Vérifie ce que tu as dans dernièreLigne parce que de mon côté je n'ai pas d'erreur (testé)
Ensuite, pour l'utilisation, tu m'as donné une syntaxe, ".Range("A6:A9,F6:F9"),

Comme tu ne sais toujours pas lire, je répète

Et ensuite, tu peux mettre ".Range(Plage), "

Hihi !

Edit
Regarde ce qu'il y a dans Plage, tu comprendras mieux (faut tout y dire sans ça y comprend rien

)

**Elstak** · 11/07/2006, 13h38

Bon apres environ 45 sec de reflexion j'ai trouvé

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 MAJ_GRAPH(ByRef DerniereLigne As Long)
 
'on parcourt tous les graphs et on les met à jour
For i = 1 To Charts.Count
 
    Charts(i).Select
    NoCol1 = 1
    NoLigne1 = 6
    NoCol2 = 1
    NoLigne2 = DerniereLigne
    Debug.Print DerniereLigne
    plage = Sheets(1).Range(Cells(NoLigne1, NoCol1), Cells(NoLigne2, NoCol2)).Address
    NoCol1 = i + 1
    NoLigne1 = 6
    NoCol2 = i + 1
    NoLigne2 = DerniereLigne
    plage = plage + "," + Sheets(1).Range(Cells(NoLigne1, NoCol1), Cells(NoLigne2, NoCol2)).Address
    ActiveChart.SetSourceData Source:=Sheets(1).Range(plage), PlotBy:=xlColumns
 
Next
 
End Sub

c'est parceque je selectionnai un graph donc probleme pour la selection de la plage.

j'ai donc changé ca et là j'ai plus d'erreur, par contre c'est assez hm.. bizarre mes graphs il doit pas prendre les bonnes données donc jvais trifouiller ca =)

jmettrai resolu quand ca ira !