Problème pour une macro de traçage graphique

Version imprimable

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:

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:

1
2
ActiveChart.SeriesCollection(1).XValues = "=Sheet1!R2C6:R11C6"
    ActiveChart.SeriesCollection(1).Values = "=Sheet1!R2C7:R11C7"

Merci d'avance pour votre aide.

Daniel

18/09/2009, 13h12
diude54
Bonjour, Pour LastRow, essai plutot un truc comme ça:

Code:

LastRow= Range("A65536").End(XlUp).Row

Ensuite pour les series, utilise des plages:
Voici comment je procède: (lgraphe et Coldroite sont des variable indéterminée au départ de la macro)
Code:

1 2 3 4 5 6 Set maplage = Range(Cells(lgraphe, 2), Cells(lgraphe + 6, ColDroite)) Set plageX = maplage.Rows(4) Set plageY1 = maplage.Rows(6) Set plageY2 = maplage.Rows(7) Set plagelabel = maplage.Rows(2)
19/09/2009, 17h31
diude54

Je répond à ton MP ici que tout le monde puisse voir a réponse.

Ici ce code permet de chercher la première cellule non vide de la colonne A en partant de la cellule A65536 et en remontant.
Maintenant si tu n'as rien dans la colonne A c'est normal qu'il ne trouve rien, il faut que tu adaptes pour être sur la bonne colonne.

Code:

LastRow= Range("A65536").End(XlUp).Row

Ensuite tu peux utiliser le meme genre de code pour définir la colonne la plus à droite:

Code:

ColDroite= Range("A1").end(xltoRight).Column

Ensuite tu utilise LastRow et Coldroite pour définir une plage de donnée:

Code:

Set Plage=Range(Cells(1, 2), Cells(LastRow, ColDroite))

Et le tour est joué;)
29/09/2009, 14h16
DaniB

Merci beaucoup! Ca marche nickel!