Macro vba
Résolu
vba
-
vba -
vba -
Bonjour,
voila je vous joins ce petit bout de programme pour que vous m'expliquer ce qui cloche
en fait le probleme c'est qu'il ne me fait pas le graphique pour la derniere valeur de la colonne
je ne sais pas si je suis claire...
merci!
Dim col, col1, nbf As String
nbf = nb - 1
col = "R1C" & nbf
col1 = "R2C" & nbf
ActiveSheet.ChartObjects("Chart 37").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Formula = _
"=SERIES(Item_per!R2C1,Item_per!R1C2:" & col & ",Item_per!R2C2:" & col1 & ",1)"
ActiveChart.Axes(xlCategory).Select
With ActiveChart.Axes(xlCategory)
.MajorUnit = 21
End With
voila je vous joins ce petit bout de programme pour que vous m'expliquer ce qui cloche
en fait le probleme c'est qu'il ne me fait pas le graphique pour la derniere valeur de la colonne
je ne sais pas si je suis claire...
merci!
Dim col, col1, nbf As String
nbf = nb - 1
col = "R1C" & nbf
col1 = "R2C" & nbf
ActiveSheet.ChartObjects("Chart 37").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Formula = _
"=SERIES(Item_per!R2C1,Item_per!R1C2:" & col & ",Item_per!R2C2:" & col1 & ",1)"
ActiveChart.Axes(xlCategory).Select
With ActiveChart.Axes(xlCategory)
.MajorUnit = 21
End With
A voir également:
- Macro vba
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Excel compter cellule couleur sans vba - Guide
- Arreter une macro vba ✓ - Forum VB / VBA
28 réponses
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 :
Bon courage
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
Re le forum
CousinHub, pour ne pas avoir de problème avec le nom du graphique.
Set Cht = Sheets("ItemCheck").ChartObjects(1).Chart
Mytå
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question