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