Probleme de graphique

Version imprimable

Bonjour!

Je fais appel a vous car j'ai un petit souci avec un graphique.

Voici mon probleme:
J'ai un graphique qui permet de voir l'evolution d'un parametre en fonction du temps, ainsi que des droites qui symbolisent les valeurs limites a ne pas depasser maximales et minimales). Ma macro a donc pour but de rechercher les bonnes valeurs limites suivant le parametre dont on veut voir l'evolution (ca c'est nickel tout se passe bien), puis de construire ces droites limites. C'est la que je bloque.
J'ai essaye de passer par enregistrer une macro pour construire ces droites en remplacant juste les valeurs des ordonnees par les valeurs limites (qui sont inscrites dans des variables c d e f), mais ca ne marche pas...

Voici le code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 Private Sub Worksheet_Change(ByVal Target As Range) Dim a As String Dim b As Integer Dim c As Double Dim d As Double Dim e As Double Dim f As Double If "$E$4" = Target.Address Then a = Cells(4, 5).Value For b = 4 To 43 If Sheets("Caution").Cells(b, 23) = a Then c = Sheets("Caution").Cells(b, 12) d = Sheets("Caution").Cells(b, 13) e = Sheets("Urgent").Cells(b, 12) f = Sheets("Urgent").Cells(b, 13) ActiveSheet.ChartObjects("Chart 4").Activate With ActiveChart .SeriesCollection(2).YValues = "={c,c,c,c,c,c,c,c,c,c,c,c}" .SeriesCollection(3).YValues = "={d,d,d,d,d,d,d,d,d,d,d,d}" .SeriesCollection(4).YValues = "={e,e,e,e,e,e,e,e,e,e,e,e}" .SeriesCollection(5).YValues = "={f,f,f,f,f,f,f,f,f,f,f,f}" End With End If Next b End If End Sub
Quand je change la valeur de la cellule E4 (ce qui fait demarrer la macro), j'obtient une erreur:
"Run time error 438:
Object doesn't support this property or method"
en m'indiquant la ligne ".SeriesCollection(2).YValues = "={c,c,c,c,c,c,c,c,c,c,c,c}""

Pouvez vous m'aider a resoudre ce probleme et a construire mon graphe?

Merci d'avance

Daniel

bonjour

tu peux utiliser ce type de procédure:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim C As Double
Dim i As Integer
Dim yTab() As Double
 
C = 28
ReDim yTab(1 To ActiveChart.SeriesCollection(2).Points.Count)
 
For i = 1 To UBound(yTab)
    yTab(i) = C
Next i
 
With ActiveChart
    .SeriesCollection(2).Values = yTab
End With

bon apres midi
michel

27/03/2008, 04h36
Boonichou

Bonjour SilkyRoad et merci beaucoup, ca marche nickel!!!!!

Dans un souci de comprehension, peux-tu m'expliquer un petit peu les fonctions ReDim, point.count et UBound?

Merci encore.

Daniel
27/03/2008, 04h44
AlainTech

Dans VBA Excel, il y a une aide en ligne qui permet, grâce à la touche F1, d'obtenir toute l'explication sur les mots ReDim, Points, Count et UBound.
27/03/2008, 04h57
Boonichou

OKi! Je vais chercher de ce pas!:D

Une question: Est-ce que quelqu'un peut me dire pourquoi ma premiere macro ne marchait pas?

bonjour

Citation:

Dans un souci de comprehension, peux-tu m'expliquer un petit peu les fonctions ReDim, point.count et UBound?

tu trouveras des infos complémentaires sur ReDim et UBound dans ce lien:
http://silkyroad.developpez.com/vba/tableaux/

point.count sert à compter le nombre de points dans la série, ainsi la procedure continuera de fonctionner dans l'avenir, meme si tu ajoutes ou supprime des données d'abscisses dans le graphique.

Citation:

Une question: Est-ce que quelqu'un peut me dire pourquoi ma premiere macro ne marchait pas?

Tu utilisais YValues au lieu de Values
Tu indiquais la chaine C entre guillemets ("={c,c,c,c,c,c,c,c,c,c,c,c}") et elle n'était donc pas considérée comme une variable.

voici mon code commenté:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Dim C As Double Dim i As Integer 'Définit un tableau qui va contenir les valeurs d'ordonnées Dim yTab() As Double C = 28 'Redéfinit la taille du tableau en fonction du nombre de points dans la série ReDim yTab(1 To ActiveChart.SeriesCollection(2).Points.Count) 'Remplit le tableau avec la valeur que tu as indiqué 'dans la variable C (28) For i = 1 To UBound(yTab) yTab(i) = C Next i 'Utilise le tableau pour alimenter les valeurs d'ordonnées de la 2eme serie With ActiveChart .SeriesCollection(2).Values = yTab End With
bonne journée
michel

28/03/2008, 02h41
Boonichou

Ok ok... je vais regarder tout ca! :D

En tous cas, merci encore une fois pour tout ce derangement!

Daniel