Problème de macro

[jadrax]

Bonjour,

Voila je souhaiterais realiser une macro avec 3 colone d'un tableau et réaliser un graphe en colonne.
Aucun soucis pour réaliser cela mais quand je relance ma macro j'ai une erreur...voici le code de la macro....comment faire? pourtant je n'ai rien toucher au niveau de la macro...tout a ete realiser automatiquement...

Merci de votre aide!

Sub Etat_du_stock()
'
' Etat_du_stock Macro
'

'
Range("B:B,E:E,H:H").Select
Range("H1").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range( _
"'Feuil1'!$B:$B;'Feuil1'!$E:$E;'Feuil1'!$H:$H")
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetElement (msoElementChartTitleAboveChart)
ActiveSheet.ChartObjects("Graphique 11").Activate
ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
ActiveSheet.ChartObjects("Graphique 11").Activate
ActiveChart.SetElement (msoElementPrimaryValueAxisTitleRotated)
ActiveSheet.ChartObjects("Graphique 11").Activate
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Quantité"
ActiveSheet.ChartObjects("Graphique 11""").Activate
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Graphique 11").Activate
End Sub

 

[Compte Supprimé 979]

Re : Problème de macro

Salut Jadrax,

Ton problème vient du fait que tu veux ajouter le graphique alors qu'il existe déjà, du moins je pense 😉😛

Essaye ça

Code supprimé

A+

 

[jadrax]

Re : Problème de macro

Non dsl en modifiant cela ne marche pas....j'ai une erreur 438 sur la nouvelle ligne de commande.

Je ne comprend pas...la macro a été réalisée par excel....pourquoi ça ne marche pas??

 

[Compte Supprimé 979]

Re : Problème de macro

Re,

Essaye avec les nouvelles lignes en vert

Sinon, mets nous ton fichier sur le forum, ce sera plus facile 😉

A+

 

[jadrax]

Re : Problème de macro

Voici le fichier
j'ai volontairement sélectionner toutes les colonnes car mon programme permettra a l'utilisateur d'ajouter des références.
la macro est etat_du_stock
Merci

 

[jadrax]

Re : Problème de macro

Bonjour,

Je n'ai pas répondu mais voté en mettant 5 étoiles en pensant que cela été suffisant.
Mais tu a raison j'y vais de ce pas 🙂

 

[Compte Supprimé 979]

Re : Problème de macro

Re,

Désolé pour mon code précédent, je n'avais rien testé 😱

Celui-ci fonctionne chez moi

Sub Etat_du_stock()
  ' Etat_du_stock Macro
  '
  ActiveSheet.Shapes.AddChart.Select
  With ActiveChart
    .SetSourceData Source:=Sheets("Feuil1").Range("$B:$B,$E:$E,$H:$H")
    .ChartType = xlColumnClustered
    .SetElement (msoElementChartTitleAboveChart)
    .SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
    .SetElement (msoElementPrimaryValueAxisTitleRotated)
    .Axes(xlValue, xlPrimary).AxisTitle.Text = "Quantité"
    .ChartArea.Select
  End With
End Sub

A+

 

[jadrax]

Re : Problème de macro

Merci!

Par contre je ne comprend pas pourquoi ma macro automatisée ne marche pas...