Erreur 1004 sur sélection de plage.

Résolu/Fermé

Axov Messages postés 4 Date d'inscription mardi 1 septembre 2020 Statut Membre Dernière intervention 3 septembre 2020 - 2 sept. 2020 à 09:56
Axov Messages postés 4 Date d'inscription mardi 1 septembre 2020 Statut Membre Dernière intervention 3 septembre 2020 - 3 sept. 2020 à 09:03

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!

A voir également:

Erreur 1004 sur sélection de plage.
Erreur 0x80070643 - Accueil - Windows
Erreur 1004 vba ✓ - Forum Excel
Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? - Forum Graphisme
Image de manchots sur une image de plage ✓ - Forum Graphisme

2 réponses

Réponse 1 / 2

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
2 sept. 2020 à 12:00

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

Réponse 2 / 2

Axov Messages postés 4 Date d'inscription mardi 1 septembre 2020 Statut Membre Dernière intervention 3 septembre 2020
Modifié le 3 sept. 2020 à 07:09

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"

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
3 sept. 2020 à 07:06

Bonjour,

valeurs de mon tableau
Contenu ou dimensions du "tableau"?

Axov Messages postés 4 Date d'inscription mardi 1 septembre 2020 Statut Membre Dernière intervention 3 septembre 2020
3 sept. 2020 à 09:03

Problème résolut, le graphique n'était pas activé. code ci dessous.

Dim d As Long
Dim Plage As Range

d = Sheets("Resultat").Range("A" & Rows.Count).End(xlUp).Row
Set Plage = Sheets("Resultat").Range("A1:A" & d, "C1:E" & d)

Sheets("Graph").ChartObjects(1).Activate
ActiveChart.SetSourceData Source:=Plage
Set Plage = Nothing

Merci à tous!

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Instagram "Désolé, une erreur s'est produite"

VBA erreur 1004

Erreur de lecture sur iptv smarters

[excel] erreur 1004 : fichier non enregistré.