Macro vba - Page 2
Résolu-
Re-,
Alors, ta dernière valeur apparaissait, mais comme la valeur est petite au vu de l'échelle, on ne la voyait pas...
De plus, ton graphique n'était pas sur l'onglet "Item_per", mais dans l'onglet "ItemCheck"...
Essaie ce code :
Sub code_pour_vba() Dim Col As String, Col1 As String Dim Nb As Integer Dim Cht As Chart Dim ValMax As Long Set Cht = Sheets("ItemCheck").ChartObjects("Chart 37").Chart ValMax = Application.Max(Sheets("Item_per").Rows(1)) Nb = Range("IV1").End(xlToLeft).Column Col = "R1C" & Nb Col1 = "R2C" & Nb With Cht With .SeriesCollection(1) .Formula = _ "=SERIES(Item_per!R2C1,Item_per!R1C2:" & Col & ",Item_per!R2C2:" & Col1 & ",1)" End With With .Axes(xlCategory) .MaximumScale = ValMax + 21 .MajorUnit = 21 End With End With End Sub
Bon courage -
ContributeurRe le forum
CousinHub, pour ne pas avoir de problème avec le nom du graphique.
Set Cht = Sheets("ItemCheck").ChartObjects(1).Chart
Mytå -
Salut Mytå...
Effectivement, mais le souci, c'était le nom de l'onglet.....
Le nom du graphique était le bon....
Cependant, c'est également une alternative intéressante
Merci et Bonne soirée -
Re-,
Non, non, les valeurs sont bien dans l'autre onglet.....
Il faut donc faire référence à l'onglet "Item_per", pour les valeurs "source", et à l'onglet "ItemCheck" pour le graphique....
Bonne soirée -
je n'ai pas compris ce que je dois changer?
-
Re-,
recopie le code que j'ai fourni à 16H03, et essaie...
Bon courage -
merci pour votre aide et votre patience ca marche maintenant!
-
merci pour vos réponse et votre patience ca a l'air de marcher meme si certains graph n'apparaissent pas je vais regarder de plus près
merci!
Précédent
- 1
- 2
