Bonjour,

Je début dans Excel et me retrouve confronté à un petit problème dans le code d'une macro qui a pour objectif de tracer des graphiques avec des tableaux ayant un nombre de lignes variables selon le cas. Le code est le suivant.

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
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub Graphiques()
'
' Graphiques Macro
 
'
Dim LastRow As Long
Dim crlf As String
 
crlf = Chr(13) & Chr(10)
 
 
LastRow = ActiveSheet.Cells.Find(What:="*", _
              SearchDirection:=xlPrevious, _
              SearchOrder:=xlByRows).Row
 
 
ActiveSheet.Cells(1, 2).Value = Test
ActiveSheet.Cells(1, 3).Value = Test2
'
    Charts.Add
    ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
    ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("O7")
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).XValues = "=Sheet1!R2C6:R11C6"
    ActiveChart.SeriesCollection(1).Values = "=Sheet1!R2C7:R11C7"
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
    With ActiveChart.Axes(xlCategory)
        .HasMajorGridlines = False
        .HasMinorGridlines = False
    End With
    With ActiveChart.Axes(xlValue)
        .HasMajorGridlines = True
        .HasMinorGridlines = False
    End With
End Sub
J'aimerais que ce code s'applique à différents cas avec un nombre de lignes différent. C'est pour ça que j'ai crée la variable 'LastRow'. Mais je n'arrive pas à l'introduire au moment de la sélection des valeurs pour le graphique:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
ActiveChart.SeriesCollection(1).XValues = "=Sheet1!R2C6:R11C6"
    ActiveChart.SeriesCollection(1).Values = "=Sheet1!R2C7:R11C7"
Merci d'avance pour votre aide.

Daniel