Erreur 1004 VBA Excel 2010

Renard - 12 juin 2020 à 09:43
Renardinio Messages postés 4 Date d'inscription vendredi 12 juin 2020 Statut Membre Dernière intervention 12 juin 2020 - 12 juin 2020 à 14:05

Hello la communauté,
Mon problème : J'ai deux colonnes (A et B) dans laquelle chaque ligne représente les coordonnées d'un point. Je souhaite modéliser un graphique pour représenter l'ensemble des points à l'aide de la fonction AddChart. Lorsque j'enregistre une macro pour tracer le graphique et le déplacer dans une nouvelle fenêtre j'obtiens le code suivant:

    Range("A:A,B:B").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlXYScatterSmooth
    ActiveChart.SetSourceData Source:=Range("Coord!$A:$A;Coord!$B:$B")
    ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Profil"

Lorsque j'exécute ma macro directement depuis la feuille, cette fois ci la macro me retourne un message d'erreur :

Erreur d'exécution '1004'
Erreur définir par l'application ou par l'objet.

En parallèle la ligne 2 du code est surlignée :

ActiveSheet.Shapes.AddChart.Select

Note :
Sur Excel 2016 avec AddChart2 je n'ai auci, problème.

Des idées de l'origine du problème et / ou d'une solution pour y remédier?

En vous remerciant...

Configuration: Windows / Chrome 83.0.4103.97

Afficher la suite

A voir également:

Erreur 1004 VBA Excel 2010
Erreur 3005 france tv - Forum TV & Vidéo
Incompatibilité de type vba ✓ - Forum Programmation
Erreur 3000 france tv - Forum Lecteurs et supports vidéo
Erreur t32 ✓ - Forum Livebox
Erreur 0x80070643 - Accueil - Windows

3 réponses

Réponse 1 / 3

yg_be Messages postés 23541 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 6 juin 2025 Ambassadeur 1 584
12 juin 2020 à 09:50

bonjour,
peux-tu partager ton fichier?

Réponse 2 / 3

Renardinio Messages postés 4 Date d'inscription vendredi 12 juin 2020 Statut Membre Dernière intervention 12 juin 2020
12 juin 2020 à 10:16

Lien Dropbox avec le fichier (nommé Erreur1004) :

https://www.dropbox.com/scl/fi/b454jwk3h881ut1y1by8h/Erreur-1004.paper?dl=0&rlkey=0o65papl8xjaca5syjczgm1c5

yg_be Messages postés 23541 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 6 juin 2025 1 584
12 juin 2020 à 10:54

le code dans le fichier est différent de celui que tu nous montres.
le code dans le fichier fonctionne quand je modifie une ligne ainsi:

ActiveChart.SetSourceData Source:=Worksheets("Feuil1").[A:B]

Réponse 3 / 3

Renardinio Messages postés 4 Date d'inscription vendredi 12 juin 2020 Statut Membre Dernière intervention 12 juin 2020
12 juin 2020 à 11:22

Exact, j'ai pris soin de refaire l'opération sur un fichier Excel différent pour éviter de polluer la macro avec le reste de mon code VBA : J'ai oublié de renommer ma page "Coord". Désolé pour la modif non indiquée..

Étonnement en recopiant la ligne telle que tu me l'as présente impossible de faire marcher ma macro : Je retombe sur cette fameuse erreur 1004.

Une erreur due à la version d'Excel peut être?
Je fonctionne avec la version : 14.0.6023.1000 (32 bits)

yg_be Messages postés 23541 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 6 juin 2025 1 584
12 juin 2020 à 11:58

chaque fois que tu as une erreur, précise le message d'erreur, et la ligne où cela se produit.
et ainsi?

Option Explicit
Sub Macro5()
Dim forme As Shape
Set forme = Worksheets("Feuil1").Shapes.AddChart
forme.Chart.ChartType = xlXYScatter
forme.Chart.SetSourceData Source:=Worksheets("Feuil1").[A:B]
forme.Chart.Location Where:=xlLocationAsNewSheet, Name:="Profil"
End Sub

Renardinio Messages postés 4 Date d'inscription vendredi 12 juin 2020 Statut Membre Dernière intervention 12 juin 2020 > yg_be Messages postés 23541 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 6 juin 2025
12 juin 2020 à 12:30

Pour le code précédent que ce soit avec ou sans la modification que tu m'as proposé, l'erreur se produit à la ligne suivante:

ActiveSheet.Shapes.AddChart.Select

Pour ta dernière proposition, j'obtiens une erreur à la ligne suivante :

Set forme = Worksheets("Feuil1").Shapes.AddChart

Visiblement AddChart lui pose problème...

A chaque fois le message d'erreur est le même :
Erreur d'exécution '1004'
Erreur définir par l'application ou par l'objet.

Je reste perplexe sur le fait qu'effectuer l'opération 'manuellement' (sans macro mais en lançant un enregistrement de macro pour récupérer le code) reste possible tandis que l'exécution de la macro enregistrée lors de l'opération "manuelle" est impossible.

yg_be Messages postés 23541 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 6 juin 2025 1 584 > Renardinio Messages postés 4 Date d'inscription vendredi 12 juin 2020 Statut Membre Dernière intervention 12 juin 2020
12 juin 2020 à 13:37

se pourrait-il que tu aies fait trop de addchart sans jamais les supprimer?
peux-tu m'envoyer un fichier avec lequel tu as l'erreur?

- se pourrait-il que tu aies fait trop de addchart sans jamais les supprimer?

J'en doute car dans mon programme complet je n'utilise Addchart qu'à cet instant. (Et j'ai en parallèle une macro qui me supprime automatiquement la fenêtre graphique avant toute réexécution de la macro de création graphique).
J'ai testé le code avec la première modification que tu m'as proposé sur une version plus récente d'Excel (2016) que je possède sur un autre PC. Bilan : Aucun message d'erreur, le programme tourne parfaitement.
J'en arrive à la conclusion que le problème ne vient pas de la macro mais d'Excel lui même qui visiblement plante pour une raison qui m'échappe lors de la lecture de la macro.

- peux-tu m'envoyer un fichier avec lequel tu as l'erreur?

Je t'avoue que j'ai copié/collé le dernier code que tu m'as proposé dans la macro du fichier Excel que j'ai mis sur la DropBox. De plus, en créant un nouveau fichier Excel, en copiant les coordonnées sur une feuille de ce fichier et en créant une nouvelle macro dans laquelle j'ai copié/collé ces mêmes lignes de code le résultat est identique.

A titre d'information perso : Pourrais tu me dire sur quelle version d'Excel 2010 tu travailles s'il te plaît?

Discussions similaires

Fonction Application.GetOpenFilename

VBA filtrer selon plusieurs critères

VBA avec variable et condition

Insérer image dans une cellule

Récupérer les noms des fichiers présents dans un dossier

Mise en forme conditionnelle/ Si cellule CONTIENT un mot

Votre réponse

Discussions similaires