Forums Rue-Montgallet.com
Rue-Montgallet.comRue-Hardware.comRue-Occasion.comRue-DVD.comRue-Jeuxvideo.comRue-AudioVideo.comRue-Telephone.comForums
S'inscrire | S'identifier |
| Recherche avancée | Aide
 
 

Il y a 60 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici

 Mot :   Pseudo :  
 
Bas de page
Auteur
 Sujet :

casse tete de graph

 
n°18683
Alcab
Profil : Jeune recrue
Posté le 13-06-2007 à 15:31:38  profilanswer
 

Voila mon but est de pouvoir modifier un graphe en fonction des paramètres mis dans un tableau excel, suivant le nombre de paramètres rentrés je dois afficher sur mon graphe avec plus ou moins de colonnes. (A noter que le graph est bien initialisé avant toute opération). voila l'idée que j'ai:
 
Sub T(nom)
 
Dim i As Variant
i = (nom-1) *7
 
    Sheets("General Metrics" ).Select
    ActiveSheet.ChartObjects("Graphique 5" ).Activate
     
    ActiveChart.SeriesCollection(1).XValues = "=(" & ActiveChart.SeriesCollection(1).XValues & ",General Metrics'!R" & i & "C1)"
    ActiveChart.SeriesCollection(1).Values = "=(" & ActiveChart.SeriesCollection(1).Values & ",'General Metrics'!R" & (1 + i) & "C6)"
     
    ActiveChart.SeriesCollection(2).XValues = "=(" & ActiveChart.SeriesCollection(2).XValues & ",General Metrics'!R" & i & "C1)"
    ActiveChart.SeriesCollection(2).Values = "=(" & ActiveChart.SeriesCollection(2).Values & ",'General Metrics'!R" & (1 + i) & "C9)"
     
    ActiveChart.SeriesCollection(3).XValues = "=(" & ActiveChart.SeriesCollection(3).XValues & ",General Metrics'!R" & i & "C1)"
    ActiveChart.SeriesCollection(3).Values = "=(" & ActiveChart.SeriesCollection(3).Values & ",'General Metrics'!R" & (1 + i) & "C12)"
 
End Sub
 
 
Malheureusement j'ai un probleme (incompatibilité du type) au niveau des lignes les plus importantes:
    ActiveChart.SeriesCollection(1).XValues = "=(" & ActiveChart.SeriesCollection(1).XValues & ",General Metrics'!R" & i & "C1)"
 
Ma question est la suivante: Ya t'il de la suite dans mon code? si oui quel est ce probleme de type que je n'arrive pas a résoudre?
 
Merci d'avance


Message édité par Alcab le 13-06-2007 à 15:59:37

Aller à :
Ajouter une réponse