Discussion :

[mimic50]

Salut,
J'ai un souci, je ne vois pas comment je pourrais tracer un graphique à partir d'un tableau déclaré dans une macro ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public MyArray(300,5) As Integer

Ce tableau est mis à jour dans diverses fonctions et j'aimerais pouvoir en créer un graphique (sans afficher les diverses valeurs dans une feuille de calcul)
Merci,

[illight]

C'est impossible de définir un tableau en variable public

[SfJ5Rpw8]

C'est impossible de définir un tableau en variable public

pourquoi .?

[illight]

Bah après peut etre que je me trompe, mais J'ai jamais réussi a déclarer une variable tableau en public mais je crois que j'avais trouvé une parade a cette impossibilité, faut que je retrouve un de mes fichiers

[illight]

J'ai retrouvé :

Va voir ces 2 posts :

http://www.developpez.net/forums/sho...tableau+public

http://www.developpez.net/forums/sho...tableau+public


Le deuxième est un message de Sylkyroad, en fait qui dit qu'une vriable tableau ne peut etre déclarée en public si on lui donne des bornes dès le départ. On est obligé de faire un Redim pour pouvoir le fixer

[mimic50]

Je n'ai aucun problème avec mon tableau déclaré en public dans un modue !
Il fonctionne parfaitement comme je le souhaite !

[illight]

Ah bizarre chez moi ça marche pas quand j'écris ça



Pour ta question alors, il faudrait que tu nous précise ce que tu veux comme graphique

[mimic50]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public MyArray(300,5) As Integer

Mon tableau contient 5 courbes de 300 valeurs que je souhaite afficher sur un graphique sans réaffecter chacune des valeurs dans des cellules d'une feuille de calcul ... (si possible bien sur)

[SilkyRoad]

bonsoir

tu peux tester cet exemple simple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
Option Base 1
 
Sub creationGraphiqueParTableau()
    Dim i As Integer
    Dim Tableau(50) As Integer
 
    For i = 1 To 50
        Tableau(i) = Int((9 * Rnd) + 1)
    Next i
 
    Charts.Add
    ActiveChart.Location _
        Where:=xlLocationAsObject, Name:="Feuil1"
 
    With ActiveChart
        .SeriesCollection.NewSeries
        .SeriesCollection(1).Values = Tableau()
        .ChartType = xlLine
    End With
End Sub

Je ne sais pas s'il est possible de gérer directement des tableaux multicolonnes.
Par contre cela risque de ne pas marcher pour un tableau de 300 données. Il me semble que tu seras limité par le nombre de caractères (450?) dans la barre de formule de chaque série, car les valeurs seront affichées sous cette forme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SERIE(;;{5.7.1.6.5.3.6.6.3.3.8.8.6.9.9 ...

bonne soirée
michel

[SilkyRoad]

rebonsoir

OOuuppss... je viens de me souvenir de la FAQ ... ;o)

http://vb.developpez.com/faqvba/?pag...creategraphdyn


michel