Problème dans l'exécution d'une macro liée à un graphique

[HeleneR]

Bonsoir,

J'ai besoin de faire une macro toute simple: un graphique. Et j'aurais besoin d'un petit peu d'aide 😕

J'enregistre la macro mais quand je veux l'exécuter il me sort l'erreur d'exécution 1004...

Voici le code qu'il me donne:

Sub Macro3()
'
' Macro3 Macro
'

'
Range("G2:I2,G23:I23").Select
Range("G23").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range( _
"'Feuil1'!$G$2:$I$2;'Feuil1'!$G$23:$I$23")
ActiveChart.ChartType = xlRadar
End Sub

La phrase en gras est la ligne sélectionnée lorsque je lance le débogage.

Quelqu'un aurait-il l'amabilité de me dire ce qui cloche? 🙂

 

[Victor21]

Re : Problème dans l'exécution d'une macro liée à un graphique

Bonsoir, HeleneR.

Bienvenue sur le forum.
🙂

Sub Macro1()

    Charts.Add
    ActiveChart.ChartType = xlRadar
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("G2:I23")
   
End Sub

devrait suffir, si tes données se situent dans la plage G12:I23, et si tu désires ton graphique sur une nouvelle feuille.

Edit : A l'aimable attention de l' l_l : ICC où ça ?
😀

 

[HeleneR]

Re : Problème dans l'exécution d'une macro liée à un graphique

Merci Patrick mais ça ne va pas:mon radar est uniquement composé des lignes G2:I2 et G23:I23

 

[HeleneR]

Re : Problème dans l'exécution d'une macro liée à un graphique

Ah non c'est bon au temps pour moi suffisait de changer un p'tit truc 😱

Merci beaucoup! 🙂

 

[Staple1600]

Re : Problème dans l'exécution d'une macro liée à un graphique

Re


Personnellement j'ajouterai une endive

Sub Macro12()
    Charts.Add
    With ActiveChart
        .ChartType = xlRadar
        .SetSourceData Source:=Sheets("Feuil1").Range("G2:I23")
        .Location Where:=xlLocationAsObject, Name:="Feuil1"
    End With
End Sub

 

[HeleneR]

Re : Problème dans l'exécution d'une macro liée à un graphique

Merci JM mais j'ai pas bien saisi la nuance 😉

En tapant ça:

Sub Macro1()

Charts.Add
ActiveChart.ChartType = xlRadar
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("g2:i2,g23:i23")

End Sub

j'obtiens tout à fait ce que je voulais,

Mârci et bonne soirée

 

[Victor21]

Re : Problème dans l'exécution d'une macro liée à un graphique

Re, Hélène.

Merci Patrick mais ça ne va pas:mon radar est uniquement composé des lignes G2:I2 et G23:I23

Une lecture attentive de Lien supprimé t'aurait conduite à joindre un p'tit bout d'fichier, et nous aurait fait gagner du temps.

Essaie avec Range("G2:I2,G23:I23") en remplacement de Range("G2:I23"). Moi, je regarde "Mes amis, Mes amours, Mes emme..es" sur la 1, pendant que les batteries de mon clavier se rechargent. 😛

 

[HeleneR]

Re : Problème dans l'exécution d'une macro liée à un graphique

Oui mais je traite des données hautement confidentielles tu comprends... 🙄

Non, désolée vu que c'est ultra basique j'pensais que vous rigoleriez si je vous donnais le fichier en plus...

J'y penserai la prochaine fois!

 

[HeleneR]

Re : Problème dans l'exécution d'une macro liée à un graphique

C'est moi qui dois mettre le message en "résolu" ou ce sont les modérateurs? Je ne trouve pas😕