none
Run Time Error 1004 Unable to set the values properti of the series class RRS feed

  • Discussion générale

    • Bonjour à tous

      J'ai un probleme récurrent sur des Tableaux croisés dynamiques (TCD)  liés à une base externe en l'occurence SQL server.
      Le TCD pointe sur une table trés grosse table créee dans SQL par une requéte interne.elle comporte environ 45 champs et plusieurs dizaines de milliers d'enregistrements
      Le TCD s'affiche parfaitement dans la feuile excell et toutes les manipulations que l'on peut essayer  fonctionnent correctement

      J'ai une feuille graphique (sous forme de boxplot) qui est liée au TCD avec du code pour l'affectation des données

      aprés un certains nombre de manipulations en changeant la valeur d'un pivot  (trés variable) le code plante en me mettant le message d'erreure

      "Run Time Error 1004   Unable to set the values properti of the series class"

      Voici le code dans laquelle l'erreur est détectée
    • cette partie du code affecte aux SeriesCollection du graphe les colonnes de résutats du TCD
    • le TCD comporte 7 colonnes de résultats  6 sont uilisées dans le graphe à savoir : SpecMax,MaxOfResults,AverageOfResults,MinOfResults,SpecMin,CountOfRsults


        With BoxPlotSheet.ChartObjects("BoxplotChart").Chart
            If Sheets("data").Cells(20, 2).value <> "" Then
                .SeriesCollection("spec max").Values = _
                    Sheets("data").PivotTables("PivotTableValues").DataBodyRange.Columns(1)
                .SeriesCollection("spec max").XValues = Xrange
       
                .SeriesCollection("max").Values = _
                    Sheets("data").PivotTables("PivotTableValues").DataBodyRange.Columns(2)
                .SeriesCollection("max").XValues = Xrange
       
                .SeriesCollection("50%").Values = _
                    Sheets("data").PivotTables("PivotTableValues").DataBodyRange.Columns(3)
                .SeriesCollection("50%").XValues = Xrange
               
                .SeriesCollection("min").Values = _
                    Sheets("data").PivotTables("PivotTableValues").DataBodyRange.Columns(4)
                .SeriesCollection("min").XValues = Xrange
       
                .SeriesCollection("spec min").Values = _
                    Sheets("data").PivotTables("PivotTableValues").DataBodyRange.Columns(5)
                .SeriesCollection("spec min").XValues = Xrange
       
                .SeriesCollection("count").Values = _
                    Sheets("data").PivotTables("PivotTableValues").DataBodyRange.Columns(6)
                .SeriesCollection("count").XValues = Xrange
            End If

    •     End With

    L'ereur se produit d'une maniére aléatoire sur n'importe laquelle des lignes de code qui affectent les séries collection du graph aux colonnes du TCD
    un espion montre que toutes les valeurs du PVT sont réelles , pas d'erreur Excels pas de 0 pas de cases vides..ect, et que toutes les colonnes comportent exactement le même nombre de valeures.

    Cerise sur le gateau.
    pour une même valeure d'un pivot de ce tableau , la valeur va s'afficher correctement un certain nombre de fois et planter à la énieme ?
    Et lorque le code à planté, je ne peux plus rien faire.seul un redémarage d'excel permet de retrouver un bon fonctionemnent.

    la compilation du code ne done rien d'anormal.Les forums spé____és semblent parler d'un bug propre à excell. Mais je ne sais pas comment le contourner car je ne connais pas vraiment les conditions dans lequels il se manifeste. peut être est ce tout simplement un probléme de capacité mémoire ou autre

    Si quelqu'un à un tuyau

    mercredi 27 janvier 2010 12:25