Discussion :

[maxfont]

Bonjour à tous,

Etant tout nouveau ici ainsi que tout juste initié au VBA, je vous fait part d'un problème que je n'arrive pas a résoudre.

Je veux créer un simple graphique d'aprés un tableau (E1:H4) avec 3 séries, cependant 1 autre série vide s'ajoute ( Série 4) automatiquement sans que je sache pourquoi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Sub Histrogramme()
        Dim objChart As Chart, objRange As Range, MaSerie As Series, i As Long        
        Set objRange = Worksheets("Feuil1").Range(Worksheets("Feuil1").Cells(1, 5), Worksheets("Feuil1").Cells(4, 8))          
         Set objChart = ThisWorkbook.Charts.Add
            With objChart
            ActiveChart.ChartType = xlColumnClustered
            .SeriesCollection.Add objRange, xlColumns, True, True
            Set MaSerie = .SeriesCollection.NewSeries                               ' Définir MaSerie
            MaSerie.XValues = "=" & objRange.Columns(5).Address(True, True, xlR1C1, True)
         End With
End Sub

Le problème vient certainement de la ligne 10-11 je pense. Merci de vos réponses

[helas]

Bonjour,
Effectivement la serie 4 s'ajoute
mais en simplifiant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
        Set objChart = ThisWorkbook.Charts.Add
        With objChart
            .ChartType = xlColumnClustered
            .SetSourceData Source:=Range(Worksheets("Feuil1").Cells(1, 5), Worksheets("Feuil1").Cells(4, 8))
         End With

ca ne le fait plus

[maxfont]

Merci pour cette réponse rapide, ca marche parfaitement