Méthode range globale a échoué

Résolu/Fermé
scuti Messages postés 31 Date d'inscription jeudi 29 juin 2017 Statut Membre Dernière intervention 24 juillet 2017 - 20 juil. 2017 à 14:08
scuti Messages postés 31 Date d'inscription jeudi 29 juin 2017 Statut Membre Dernière intervention 24 juillet 2017 - 24 juil. 2017 à 11:37
Bonjour,


Voici mon code,

Sub Macro1()
'
' Macro1 Macro
'

'

ActiveSheet.Name = "Données"

With ActiveSheet.UsedRange
ActiveSheet.Rows(.Row + .Rows.Count - 1).Delete
End With
With ActiveSheet.UsedRange
ActiveSheet.Rows(.Row + .Rows.Count - 1).Delete
End With

Dim derLig As Long
derLig = Sheets("Données").Range("A" & Sheets("Données").Rows.Count).End(xlUp).Row

Range("A7:C" & derLig).Select
ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmoothNoMarkers).Select
ActiveChart.SetSourceData Source:=Range("x!$A$7:$C$" & derLig)
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Graphique chauffe"

ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
ActiveChart.SetElement (msoElementPrimaryValueAxisTitleAdjacentToAxis)
Selection.Caption = "Température en °C"
ActiveChart.Axes(xlCategory).AxisTitle.Select
Selection.Caption = "Temps en MM:SS,C"
ActiveChart.ChartTitle.Select
Selection.Caption = "Température en fonction du temps"
ActiveChart.Axes(xlCategory).MajorUnit = 0.00018

End Sub


Je pense que cette ligne est mal orthographiée :
    ActiveChart.SetSourceData Source:=Range("x!$A$7:$C$" & derLig)


Auriez vous une solution?

Merci d'avance
A voir également:

3 réponses

ccm81 Messages postés 10897 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 8 octobre 2024 2 422
Modifié le 22 juil. 2017 à 11:37
Bonjour

Si c'est vraiment cette ligne qui bloque, essaies ceci
ActiveChart.SetSourceData Source:=Sheets("x").Range("A$7:$C$" & derLig)

Cdlmnt
1