Discussion :

[Matrixmax]

bonjour les experts ;

j'ai chercher partout pour résoudre mon probléme mais j'ai enfin tourner vers vous espérant trouver une solution à mon probléme ;

J'ai créer une MACRO qui m'importe des valeur depuis un fichier text séparé par des virgule ;
ces valeur je les ai mis en deux colonne de méme nombre de lignes et je veux à chaque fois au lancement de ma macro et mettre les valeurs du fichier text dans ma feuil active tracer un graphe que

l'axe des x est la selection :

Code :

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

1
2
3
 
    Range("A3").Select
    Range(Selection, Selection.End(xlDown)).Select

et l'axe des Y est la selection :

Code :

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

1
2
3
4
5
6
 
 
    Range("A3").Select
    Selection.End(xlDown).Select
    Selection.End(xlToRight).Select
    Range(Selection, Selection.End(xlUp)).Select

et voilà je veux toujour tracer mon graphe de type courbe on mettant ces selection au axes x et y ;

sincére salutation !

[mercatog]

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
Sub TraceGraphique()
Dim LastLig As Long
Dim X, Y
 
Application.ScreenUpdating = False
With Worksheets("Feuil1")                        'A adapter
    LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
    X = .Range("A3:A" & LastLig)
    Y = .Range("B3:B" & LastLig)
    With .ChartObjects.Add(100, 50, 600, 360).Chart
        .ChartType = xlLine
        With .SeriesCollection.NewSeries
            .XValues = X
            .Values = Y
        End With
    End With
End With
End Sub