Bonjour j'ai crée un code permettant de traiter des donner sur certaines feuilles de mon fichier excel (les feuilles DDVi)! Jusque là tout marche bien mais je tiens aussi à tracer un graph sur chacune de ces feuilles et la j'ai un blocage dans la macro lors de la sélection des données... Voici mon code:
Dim i As Integer, sh As Worksheet
For Each sh In Worksheets
With sh
If UCase(Left(.Name, 3) = "DDV") Then
.Range("K50:K161").Value = .Range("P17:P128").Value
.Range("L50:L161").Value = .Range("Q17:Q128").Value
.ChartObjects("Graph1").Activa te
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection.N ewSeries
ActiveChart.SeriesCollection(1 ).Name = "=""DDV Exp"""
ActiveChart.SeriesCollection(1 ).XValues=Range("=$K$50:$K$80" )
ActiveChart.SeriesCollection(1 ).Values = Range("=$L$50:$L$80")
End If
End With
Next
End Sub
Le problème est à la ligne rouge, si quelqu'un a une idée...
Merci!!
-----
