Bonjour,
Voici mon programme :
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
22
23
24
25
26
Open NomFichier For Input As #1
            Do While Not EOF(1) 'EOF : "End Of File"
                ligne = ligne + 1
                If ligne <= 11 Then
                    'on charge les 11 lignes de commentaires pour ne pas les prendre en compte par la suite.
                    Input #1, valeurligne
                    'on redimensionne le tableau en gardant les valeurs
                    ReDim Preserve TableauValeur(ligne)
 
                    'on remplit le tableau
                    TableauValeur(ligne) = valeurligne
                Else
                    Input #1, maval1, maval2
                    'on redimensionne les tableaux en gardant les valeurs
                    ReDim Preserve TableauAbscisse(ligne)
                    ReDim Preserve TableauOrdonnée(ligne)
 
                    'on remplit les tableaux
                    TableauAbscisse(ligne) = maval1
                    TableauOrdonnée(ligne)= maval2
 
                End If
            Loop
        Close #1
        'tracé de la courbe
        CWGraph1.Plots(1).ChartXvsY TableauAbscisse, TableauOrdonnée
Lorsque j'ouvre (à part) mon fichier "NomFichier" (.dat), j'ai bien toutes mes valeurs que j'ai précédemment enregistré (pas dans le programme ci-dessus).
Par exemple, j'enregistre 367 valeurs (367 maval1 et 367 maval2).

Mon problème est que la courbe tracée ne comprend que les 199 dernières valeurs...

J'ai pensé que cela pouvait venir de la taille du tableau mais il est redimensionné à la taille "ligne" qui augmente suivant le n° de la ligne parcourue, donc je suppose que non...
J'ai ensuite pensé que le graphe ne permet pas d'afficher autant de valeurs mais un autre programme (donc je me suis inspirée du code) le fait très bien...

Je suis donc à cours d'idée là...
Si quelqu'un en a une, ce serait avec grand plaisir ! ^^