Erreur 1004 VBA Excel 2010

Renard -
Renardinio Messages postés 4 Date d'inscription Statut Membre Dernière intervention - 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
Erreur 3000 france tv - Forum Lecteurs et supports vidéo
Incompatibilité de type vba ✓ - Forum Programmation
Erreur 0x80070643 - Accueil - Windows
Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows

3 réponses

Réponse 1 / 3

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

bonjour,
peux-tu partager ton fichier?

Réponse 2 / 3

Renardinio Messages postés 4 Date d'inscription Statut Membre Dernière intervention

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 Statut Contributeur Dernière intervention 1 584

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 Statut Membre Dernière intervention

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 Statut Contributeur Dernière intervention 1 584

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 Statut Membre Dernière intervention > yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention

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 Statut Contributeur Dernière intervention 1 584 > Renardinio Messages postés 4 Date d'inscription Statut Membre Dernière intervention

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?

Renardinio Messages postés 4 Date d'inscription Statut Membre Dernière intervention > yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention

- 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