macro vba Résolu

Question

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










Configuration: Windows XP / Internet Explorer 6.0

cousinhub29 · Answer

Bonjour,

Il me semble qu'il manque la première partie de ton code, car dans ce que tu montres, on ne sait pas à quoi correspond nb....

@ te relire

vba · Answer

désolée! et merci



'compte le nombre de colonne dans item_per
    Dim marca3 As Integer
    Dim nb As Integer
    marca3 = 1
    nb = 1
    Do While (marca3 <> 0)
                var12 = Cells(1, nb).Value
            
        If var12 = "" Then
                marca3 = 0
        Else
                nb = nb + 1
        End If
    Loop

cousinhub29 · Answer

Re-, 

Afin de déterminer le nombre de colonnes, tu peux essayer ainsi : 

nb = Range("IV1").End(xlToLeft).Column

Et dans le restant de ton code, nbf est inutile, utilise nb (si tu retranches 1, il te manquera effectivement la dernière colonne...) 

Bonne journée

vba · Answer

merci pour ton aide,j'ai essayé de remplacer par nb mais il me manque toujours le graph de la derniere valeur de la colonne

merci!

cousinhub29 · Answer

Re-,

Tu as bien un en-tête, dans ta dernière colonne? (ligne 1)

Essaie avec ce code :

Dim Col As String, Col1 As String
Dim Nb As Integer

Nb = Sheets("Item_per").Rows("1:2").Find("*", , , , xlByColumns, xlPrevious).Column
Col = "R1C" & Nb
Col1 = "R2C" & Nb

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


Bon courage

vba · Answer

merci! mais j'ai toujours le meme problème il me manque la derniere valeur de ma colonne

merci quand meme!

cousinhub29 · Answer

Re-,

Euh, as-tu vérifié l'échelle de tes axes? (double-clic sur les axes, onglet "échelle")

Pour voir

vba · Answer

je dois changer quelque chose?
dans cet onglet le min (08/04/2007)le max (29/03/2009)st cochés et l'unité principale est a 21 la secondaire a 1 l'axe des ordonnées y coupe a (08/04/2007)

j'ai oublié de dire que j'etais novice et que je "répare" cette macro

merci!

cousinhub29 · Answer

Re-,

Et la date, dans la dernière colonne, est-elle supérieure au 29/03/2010?

Si oui, modifie la valeur max...

Nota, les dates sont-elles dans la 1ère ligne?

Si oui, on peut également modifier la valeur max de l'échelle par ce même code, démarre l'enregistreur de macro lorsque tu fais cette opération

vba · Answer

les dates sont bien dans la premiere ligne et la date max est le 29/03/2009
que dois-je changer?

désolée et merci!

cousinhub29 · Answer

Re-,

Essaie ce code (je n'utilise pas les .Select, comme tu peux le remarquer...)

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("Item_per").ChartObjects("Chart 37").Chart
ValMax = Application.Max(Rows(1))

Nb = Sheets("Item_per").Rows("1:2").Find("*", , , , xlByColumns, xlPrevious).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
        .MajorUnit = 21
    End With
End With
End Sub


Uniquement valable, si les dates sont dans la 1ère ligne...

Bon courage

vba · Answer

merci!

J'ai l'erreur impossible de lire la propriété ChartObjects de la classe worksheet

??

cousinhub29 · Answer

Re-,

Je te propose de joindre ton fichier, avec des données bidons, mais les vrais dates, en utilisant un de ces sites :

www.cjoint.fr
www.cijoint.fr

colles le lien qu'on te donne dans ta réponse, on va voir ce qu'on peut faire

vba · Answer

ce sont des données que je ne peux pas mettre sur internet désolée
merci pour ton aide en tous cas!

cousinhub29 · Answer

Re-,

en relisant, j'ai peut-être mal déterminé l'onglet qui contient le graphique....

Vérifie le nom de l'onglet (j'ai supposé, sans doute à tort, qu'il était dans l'onglet "Item_per")

Modifie le nom de l'onglet dans cette ligne :

Set Cht = Sheets("Item_per").ChartObjects("Chart 37").Chart


Pour voir...

vba · Answer

oui c'est bien item_per

cousinhub29 · Answer

Re-,

Euh, Item, ou item (attention à l'orthographe, majuscule, minuscule, espaces avant ou après......)

Sinon, pour le fichier, juste l'onglet, avec des données bidons, cela suffit....

Tu fais un clic droit sur l'onglet, "Déplacer", "Dans le classeur : Nouveau Classeur"

Modifie les données, les noms, etc......

Enregistre, et si tu peux l'envoyer, ce sera bien plus facile....

Vérifie également que le graphique s'appelle bien "Chart 37"
Pour ce faire, démarre l'enregistreur de macro, sélectionne le graphique, et stoppe l'enregistreur...
Dans VBE, regarde le code généré, et note le nom du graphique

Bon courage

vba · Answer

voila le lien je ne sais pas si cela va vous aider
merci
http://www.cijoint.fr/cjlink.php?file=cj201008/cijYBef3B0.xls

cousinhub29 · Answer

Re-,

Si tu as effectivement copié l'onglet, je ne vois pas de graphique.....

Es-tu sûre que le graphique est bien sur cet onglet? (il aurait du apparaître....)

@ te relire

vba · Answer

http://www.cijoint.fr/cjlink.php?file=cj201008/cijlMRGVmr.xls 

désoléé

cousinhub29 · Answer

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

Mytå · Answer

Re le forum

CousinHub, pour ne pas avoir de problème avec le nom du graphique.

Set Cht = Sheets("ItemCheck").ChartObjects(1).Chart

Mytå

cousinhub29 · Answer

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

cousinhub29 · Answer

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

vba · Answer

je n'ai pas compris ce que je dois changer?

cousinhub29 · Answer

Re-,

recopie le code que j'ai fourni à 16H03, et essaie...

Bon courage

vba · Answer

merci pour votre aide et votre patience  ca marche maintenant!

vba · Answer

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!

Macro vba

28 réponses

Discussions similaires

Newsletters