Discussion :

[Nymar]

Bonjour,

J'utilise vba excel pour la première fois et je n'arrive pas à comprendre pourquoi le code suivant ne fonctionne pas.

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
Sub tuto()
'
' tuto Macro
'
' Keyboard Shortcut: Ctrl+o
'
 Dim i As Integer
 col = Array("A", "B")
 
        ActiveSheet.Shapes.AddChart.Select
        ActiveChart.ChartType = xlLine
        ActiveChart.SeriesCollection.NewSeries
        ActiveChart.SeriesCollection(1).Name = "=sheet_name!$col(1)$1"
        ActiveChart.SeriesCollection(1).Values = "=sheet_name!$col(1)$2:$col(1)$29"
        ActiveChart.SeriesCollection(1).XValues = "=sheet_name!$A$2:$A$29"
 
End Sub

col servira pour contenir les letters des colonnes que je vais utiliser dans mon code réel. Ce que j'ai fais ici c'est créer une macro pour une seule colonne et je voulais tester si par exemple je veux faire la même chose pour les colonnes (A,D,E,K,L,M......) 26 pour mon cas alors je crée un tableau qui contient les letteres de ces colonnes et j'utilise une boucle de 1 a 26 comme ça pour utiliser la colonnne D j'utilise la valeur Tableau(2) dans ce cas.

Merci.

[mercatog]

Exemple

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
Sub Graphique()
Dim i As Integer
Dim MesCol()
 
MesCol = Array("B", "C", "E", "H", "I", "J")
With Worksheets("Feuil2").ChartObjects.Add(100, 40, 600, 400).Chart    'Feuil2 est la feuille dans laquelle on va tracer notre graphique à adapter
    .ChartArea.ClearContents
    .ChartType = xlXYScatterLinesNoMarkers
    .HasTitle = True
    .ChartTitle.Caption = "Le titre de mon graphique"
    For i = 0 To UBound(MesCol)
        With .SeriesCollection.NewSeries
            .Name = "=sheet_name!" & MesCol(i) & "1"
            .Values = "=sheet_name!" & MesCol(i) & "2:" & MesCol(i) & "29"
            .XValues = "=sheet_name!A2:A29"
        End With
    Next i
End With
End Sub

[Nymar]

Merci beaucoup, ça fonctionne