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:

Vba erreur 1004 la méthode range de l'objet _global a échoué
Erreur 1004 vba ✓ - Forum VB / VBA
Erreur 0x80070643 - Guide
Vba range avec variable ✓ - Forum VB / VBA
Vente objet occasion entre particulier - Guide
MACRO : Problème " Erreur d'exécution '1004' " ✓ - Forum Excel

3 réponses

Réponse 1 / 3

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
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

Discussions similaires

méthode range de l'objet global à échoué

Eerreur d’exécution '1004' "la méthode 'Range' de l'objet _ Global a échoué

Erreur "La méthode Range de l'objet global a échoué"

VBA Methode range a échouée

Une référence objet est requise pour la méthode non statique

Erreur d'exécution '438': Propriété ou méthode non géré [...]

Discussions similaires

Newsletters