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.
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
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
Merci d'avance pour votre aide.
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"
Daniel
Partager