Dynamic Chart VBA

Version imprimable

09/05/2020, 22h15
duplaly

1 pièce(s) jointe(s)

Dynamic Chart VBA

Bonsoir
J'essaye d'adapter un projet à mes besoins et je n'y arrive pas nécessairement.
Le fichier a 2 approches:
Formules et VBA

Je me concentre plus sur l'approche VBA.

La sélection débute à la dernière cellule remplie de la feuille table, colonne "A", alors que je voudrais qu'elle commence en A2 dans la feuille "Table"
J'aimerais aussi que les données de la colonne "D" en fassent partie du graphique.

Merci beaucoup!

Bonjour,

Pour la partie VBA

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Integer
    Dim lw As Long
    Dim lr As Long, lc As Long
    Dim sh As Worksheet
    Dim ws As Worksheet
 
    If Target.Address = "$A$2" Then
        Set sh = Sheet1 'Table
        Set ws = Sheet2 'Chart
        lw = sh.Range("A" & Rows.Count).End(xlUp).Row
        lc = sh.Range("A1").End(xlToRight).Column
        lr = lw + 1 - Range("n")  'Cell where days is stored.
        ws.ChartObjects("Chart 1").Activate
        ActiveChart.ChartArea.Select
        ActiveChart.SetSourceData sh.Range(sh.Cells(2, 1), sh.Cells(Target + 1, lc)), xlColumns
        For i = 1 To lc - 1 'Headers to be added
            ActiveChart.SeriesCollection(i).Name = sh.Cells(1, i + 1) 'Serie
        Next i
        ActiveChart.SeriesCollection(1).XValues = "=Table!R2C1:R" & Target + 1 & "C" & 1
    End If
End Sub

Cdlt

10/05/2020, 21h19
duplaly

Dynamic Chart

Bonjour
Le code rajoute la série 4 que je n'ai pas dans mes données.
À part cela, le tout semble fonctionner. Il faut juste faire les ajustements mentionnés.

Merci Beaucoup!
11/05/2020, 05h42
ARTURO83

Bonjour,

Citation:

Le code rajoute la série 4 que je n'ai pas dans mes données.

Le problème vient du fait que la colonne "A" contient des valeurs numériques, ce qui est pris pour une valeur, il suffit pour les différencier des vraies valeurs à afficher, de remplacer 1, 2, 3, etc... par Sem 1, Sem 2, Sem 3 etc....
Le code reste inchangé.
Le fichier en exemple:
Pièce jointe 564519

Cdlt
11/05/2020, 18h38
duplaly

vba

Le fonctionne bien maintenant.
Merci pour le support.