Macro vba - Page 2

Résolu
Précédent
  • 1
  • 2
cousinhub29 Messages postés 1095 Date d'inscription   Statut Membre Dernière intervention   367
 
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
0
Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   956
 
Re le forum

CousinHub, pour ne pas avoir de problème avec le nom du graphique.

Set Cht = Sheets("ItemCheck").ChartObjects(1).Chart

Mytå
0
cousinhub29 Messages postés 1095 Date d'inscription   Statut Membre Dernière intervention   367
 
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
0
Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   956
 
Re le forum

Si le nom de la feuille peut changer selon l'humeur du responsable :)

Set Cht = Activesheet.ChartObjects(1).Chart

et

ValMax = Application.Max(Activesheet.Rows(1))

Tu as oublié de modifier cette ligne
"=SERIES(Item_per!R2C1,Item_per!R1C2:" & Col & ",Item_per!R2C2:"

Mytå
0
cousinhub29 Messages postés 1095 Date d'inscription   Statut Membre Dernière intervention   367
 
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
vba
 
je n'ai pas compris ce que je dois changer?
0
cousinhub29 Messages postés 1095 Date d'inscription   Statut Membre Dernière intervention   367
 
Re-,

recopie le code que j'ai fourni à 16H03, et essaie...

Bon courage
0
vba
 
merci pour votre aide et votre patience ca marche maintenant!
0
vba
 
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!
0
Précédent
  • 1
  • 2