Mise a jour graph automatique via macro vba

Version imprimable

10/06/2015, 17h13
undo74

1 pièce(s) jointe(s)

Mise a jour graph automatique via macro vba

Bonjour a tous,

je n'arrive pas automatisé un graphe via une macro.
l'idée c'est de sélectionner la dernière colonne du tableau que je rajoute contenant des nouvelles valeurs puis le graphe reprend la nouvelle sélection "les nouvelles données".
j'ai un code qui me permet de sélectionner la dernière colonne mais après je bloque pour la suite.:(

pouvez-vous me filer un coup de main svp ?
merci par avance pour votre aide.
En pj exemple (feuil1= version avant mise a jour) et (Feuil1 (2) = version après mise a jour)
10/06/2015, 18h35
Daniel.C

1 pièce(s) jointe(s)

Bonjour,

Tu n'as pas besoin d'une macro. Définis un nom (PlageY dans le classeur joint) défini par le formule :

Code:

DECALER($A$2:$A$10;;NBVAL($1:$1)-1)

Dans Sélectionner les données, modifie les valeurs de la série et mets :

Code:

=Feuil1 (2)!PlageY

C'est tout. A chaque ajout ou suppression de colonne (ou de valeur, le graphique se met à jour.

PJ : Pièce jointe 180252

il me semble qu'l demande une macro pour mettre a jour un graph alors voici :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
    'Mise à jour graphique
Sub GraphPnL(ByVal xlsheet As Worksheet)
        'definitions variables
    Dim LastCell As Long
    Dim MyRange As Range, MyRange2 As Range
    Dim MyRange3 As Range
 
        'Mise à Jour du graphique
    With xlsheet
            'definition des ranges
        LastCell = .Range("A9").End(xlDown).Row
        Set MyRange = .Range("A10:A" & LastCell)
        Set MyRange2 = .Range("B10:B" & LastCell)
        Set MyRange3 = .Range("j10:j" & LastCell)
 
 
            'Assignation des ranges de données
        .ChartObjects(1).Chart.SeriesCollection(1).XValues = MyRange
        .ChartObjects(1).Chart.SeriesCollection(1).Values = MyRange2
        .ChartObjects(1).Chart.SeriesCollection(2).Values = MyRange3
 
    End With
End Sub

10/06/2015, 20h52
Daniel.C

Bonjour,

@tamtam64 : Tu as raison, mais s'il ne sait pas que c'est possible sans macro ?
10/06/2015, 21h39
tamtam64

Oui c'est sur , de tte facon toutes les formules sont les bienvenues je supose :)
10/06/2015, 21h55
78chris

Bonjour

Citation:

Envoyé par Daniel.C

...
Dans Sélectionner les données, modifie les valeurs de la série et mets :

Code:

=Feuil1 (2)!PlageY

C'est tout. A chaque ajout ou suppression de colonne (ou de valeur, le graphique se met à jour.

Il ne faut pas mettre le nom de l'onglet mais celui du classeur, extension incluse soir selon l'exemple

Code:

='undo74 Exple.xlsx'!PlageY

.
10/06/2015, 22h14
Daniel.C

Bonjour Chris,

Si tu mets le nom de la feuille, c'est bon quand même. Excel la remplace par le nom du classeur.

Bonjour a vous,
Avant merci encore pour votre réactivité et votre aide.
la solution de Daniel est très bien sans utilisation de code ;)
la solution de tamtam64 me semble pas mal mais je n'arrive pas à l'adapter dans mon fichier exemple.
sans oublié 78chris pour ta remarque merci à toi aussi

j'ai mis dans un module :
Code:

1 2 3 4 5 Sub test() Dim xlsheet As Worksheet Set xlsheet = ThisWorkbook.Worksheets("Feuil1") Call GraphPnL(xlsheet) End Sub
et:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 'Mise à jour graphique Sub GraphPnL(ByVal xlsheet As Worksheet) 'definitions variables Dim LastCell As Long Dim MyRange As Range, MyRange2 As Range Dim MyRange3 As Range 'Mise à Jour du graphique With xlsheet 'definition des ranges LastCell = .Range("A9").End(xlDown).Row Set MyRange = .Range("A10:A" & LastCell) Set MyRange2 = .Range("B10:B" & LastCell) Set MyRange3 = .Range("j10:j" & LastCell) 'Assignation des ranges de données .ChartObjects(1).Chart.SeriesCollection(1).XValues = MyRange .ChartObjects(1).Chart.SeriesCollection(1).Values = MyRange2 .ChartObjects(1).Chart.SeriesCollection(2).Values = MyRange3 End With End Sub
je lance test via un bouton : le code bloque au niveau de la ligne

Code:

.ChartObjects(1).Chart.SeriesCollection(2).Values = MyRange3

Pouvez-vous stp me dire d'ou provient le ploblème ?
un grand merci a vous ;)

tu as choisi mon code ah ah , je t'en remercie lol, non plus sérieusement , je vais t'en dire plus ca depend combien de courbes tu as ds le graphique ,

Code:

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
 
'Mise à jour graphique
Sub GraphPnL(ByVal xlsheet As Worksheet)
        'definitions variables
    Dim LastCell As Long
    Dim MyRange As Range, MyRange2 As Range
    Dim MyRange3 As Range
 
        'Mise à Jour du graphique
    With xlsheet
            'definition des ranges en fait il se mettent a jour puisque le lastcell comme tu vois trouve la dernière ligne remplie , donc il s'adapte a coup sur
        LastCell = .Range("A9").End(xlDown).Row
'tu dispose 3 ranges si tu as 3 colonnes pour 3 courbes , 2 si tu as deux colonnes pour 2 courbes ... etc , donc ca depend si ton graphique a une ou plusieurs courbes
        Set MyRange = .Range("A10:A" & LastCell)
        Set MyRange2 = .Range("B10:B" & LastCell)
        Set MyRange3 = .Range("j10:j" & LastCell)
 'ici c'est un peu plus dur mais pas tant que ca , il faut savoir le modele objet va en graphique , chartobject est a collection des objets graphiques sur une feuille puis chart puis les courbes de ce graphique , la pareil tu vois il y'a 3 colonnes , la c'est pareil tu adapte. , j'ai mis que les doncées étaient égale aux valeurs de mon range , a chaque courbe , un range ;)
 
            'Assignation des ranges de données
        .ChartObjects(1).Chart.SeriesCollection(1).XValues = MyRange
        .ChartObjects(1).Chart.SeriesCollection(1).Values = MyRange2
        .ChartObjects(1).Chart.SeriesCollection(2).Values = MyRange3
 
    End With
End Sub

Apres si vraiment t y arrive pas tu nous file tes colonnes et tt et on te le fait mais la c'est largement faisable :)

Pour moi tu ne dois pas avoir de 3 eme courbe tout simplement :)

10/06/2015, 23h30
78chris

Re

Citation:

Envoyé par Daniel.C

Bonjour Chris,
Si tu mets le nom de la feuille, c'est bon quand même. Excel la remplace par le nom du classeur.

Bah zut alors j'avais jamais essayé ! C'est super pratique surtout quand t'as un nom de classeur pas possible !

Je vais de ce pas me coucher un poil moins bête. Bonne nuit.
11/06/2015, 00h30
undo74

Citation:

Envoyé par tamtam64

Pour moi tu ne dois pas avoir de 3 eme courbe tout simplement :)

Re,
Je ne comprends pas vraiment ton code :oops: le truc c'est le résultat obtenu par notre ami Daniel mais je n'arrive pas l'expliquer autrement si tu prends mon exemple en pj tu as la table et le graph initial dans la feuil1 puis mon souhait dans la feuil1(2).
si tu ne voir pas c'est pas grave je prendrais la solution de Daniel.
merci merci et merci pour ton aide.;)

je te fais fait ca :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
'Mise à jour graphique
Sub GraphPnL(ByVal xlsheet As Worksheet)
        'definitions variables
    Dim LastCell As Long
    Dim MyRange As Range, MyRange2 As Range
 
        'Mise à Jour du graphique
    With xlsheet
            'definition des ranges en fait il se mettent a jour puisque le lastcell comme tu vois trouve la dernière ligne remplie , donc il s'adapte a coup sur
        LastCell = .Range("A2").End(xlDown).Row
'tu dispose 3 ranges si tu as 3 colonnes pour 3 courbes , 2 si tu as deux colonnes pour 2 courbes ... etc , donc ca depend si ton graphique a une ou plusieurs courbes
        Set MyRange = .Range("A2:A" & LastCell)
        Set MyRange2 = .Range("W2:B" & LastCell)
 'ici c'est un peu plus dur mais pas tant que ca , il faut savoir le modele objet va en graphique , chartobject est a collection des objets graphiques sur une feuille puis chart puis les courbes de ce graphique , la pareil tu vois il y'a 3 colonnes , la c'est pareil tu adapte. , j'ai mis que les doncées étaient égale aux valeurs de mon range , a chaque courbe , un range ;)
 
            'Assignation des ranges de données
        .ChartObjects(1).Chart.SeriesCollection(1).XValues = MyRange
        .ChartObjects(1).Chart.SeriesCollection(1).Values = MyRange2
 
    End With
End Sub

je peux pas tester ta feuille ya des bugs , j'ai pas le nom de la feuille ... enfin bon si eelle marche chez toi ca va . j'a vais raison tu avais un range en trop puisque tu n'as besoin que de deux colonnes.

11/06/2015, 12h10
undo74

1 pièce(s) jointe(s)

Bonjour tamtam64,
Avant tout merci pour ton aide:P

Effectivement nous devons traiter deux colonnes Col A2:A et la dernière colonne du tableau cela me pose problème car dans ton code le range est fixe je dois a chaque fois modifier le code pour indiquer la bonne colonne pour que le graph puis prendre les nouvelles données

Code:

Set MyRange2 = .Range("X2:X" & LastCell)

par exemple si ma nouvelle colonne se trouve en X il faut que je change

Code:

.Range("X2:X"

.

Question il possible de rendre la fonction dynamique si j'ai une nouvelle colonne dans mon tableau la macro va récupérer automatiquement la position de la dernière colonne:roll: ?

J'ai mis en Pj le fichier avec ton code qui fonctionne très bien sans la fonction auto peux-tu stp me si tu as la possibilité d'automatiser la fonction. en te remercient d'avance.;)