Méthode range globale a échoué

[Résolu/Fermé]
Signaler
Messages postés
31
Date d'inscription
jeudi 29 juin 2017
Statut
Membre
Dernière intervention
24 juillet 2017
-
Messages postés
31
Date d'inscription
jeudi 29 juin 2017
Statut
Membre
Dernière intervention
24 juillet 2017
-
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

3 réponses

Messages postés
10151
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
18 octobre 2021
2 230
Bonjour

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

Cdlmnt
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41713 internautes nous ont dit merci ce mois-ci

Messages postés
17109
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 octobre 2021
907
bonjour, voulais-tu réellement renommer la feuille "Données"?
"x" était-il l'ancien nom de la feuille?
alors tu voudrais peut-être faire:
ActiveChart.SetSourceData Source:=Sheets("Données").Range("A7:C" & derLig)
Messages postés
31
Date d'inscription
jeudi 29 juin 2017
Statut
Membre
Dernière intervention
24 juillet 2017

oui c'est ça, merci ça fonctionne !