Erreur 1004 sur sélection de plage. Résolu

Question

Bonjour,

Je souhaite faire une macro pour mettre a jour une plage de donnée d'un graph (qui s’intégrera dans une macro plus conséquente) . Je souhaite lui indiquer que la plage doit s'arreter à la dernière cellule non vide mais il m'indique une erreur 1004 et je n'arrive pas à me dépatouiller de ça. Quelqu'un saurais m'aider? 

Sub maj_graph()
'
' maj_graph Macro
'

Dim d As Integer
d = Sheets("Resultat").Range("A" & Rows.Count).End(xlUp).Row

Dim Plage As Range
Set Plage = Sheets("Resultat").Range("A1:Ad", "C1:Ed")
'
    Sheets("Graph").Select
    ActiveChart.SetSourceData Source:=Plage
End Sub

Merci!

f894009 · Answer

Bonjour,

Une facon de faire:
Sub maj_graph()
' maj_graph Macro
'
    Dim d As Long
    Dim Plage As Range

With Sheets("Resultat")
        d = .Range("A" & Rows.Count).End(xlUp).Row
        Set Plage = .Range("A1:A" & d, "C1:E" & d)
    End With
    Sheets("Graph").Select
    ActiveChart.SetSourceData Source:=Plage
    Set Plage = Nothing
End Sub

Axov · Answer

Bonjour,

J'ignore pourquoi mais ça a fonctionné la première fois et lorsque j'ai voulut réessayer en changeant les valeurs de mon tableau, VBA m'indique une erreur '91' variable objet ou variable de bloc With non définie sur la ligne  "ActiveChart.SetSourceData Source:=Plage"

Erreur 1004 sur sélection de plage.

2 réponses

Discussions similaires

Newsletters