XL 2019 Dynamic Chart VBA

[duplaly]

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!

 

[jpb388]

Bonjour à tous

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
Dim lw As Long
Dim lr As Long
Dim sh As Worksheet
Dim ws As Worksheet
Dim Col%
If Target.Address = "$A$2" Then


Set sh = Sheet1 'Table
Set ws = Sheet2 'Chart
lw = sh.Range("A" & Rows.Count).End(xlUp).Row
lr = lw + 1 - Range("n")  'Cell where days is stored.
Col = sh.Cells(1, Columns.Count).End(xlToLeft).Column
ws.ChartObjects("Chart 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData sh.Range(sh.Range(sh.Cells(lr, 2), sh.Cells(lr, Col)), sh.Range(sh.Cells(lw, 2), sh.Cells(lw, Col))), xlColumns

    For i = 1 To Col - 1 'Headers to be added
        ActiveChart.SeriesCollection(i).Name = "=Table!R1C" & i + 1
    Next i
ActiveChart.SeriesCollection(1).XValues = "=Table!R" & lr & "C1:R" & lw & "C1"
    End If
End Sub

 

[duplaly]

Bonjour
Le conde ne fonctionne pas.

 

[jpb388]

Bonjour à tous
chez moi il fonctionne

 

[duplaly]

Bonjour
Oui le code fonctionne mais mon problème n'est pas réglé.
En sélectionnant une semaine, je veux qu'il affiche à partir du début de la liste et non à partir de la fin.

Merci

 

[jpb388]

Bonjour à tous
En effet j'ai zappé la 1ère partie
tu tapes 1 la première semaine s'affiche
10 les 10 première etc
en souhaitant avoir répondu a ton attente je te souhaite une bonne soirée

 

[duplaly]

Super!
Merci