Discussion :

[Mister Max]

Bonjour,
Je souhaite réaliser un graphique avec un nombre de série inconnu. Mon tableau se présente de la façon suivante:

Udc | P ac | P ac | P ac | P ac | P ac | f rec | f rec | ... | Time |
----------------------------------------------------------
005 | .001 | .002 | .003 | .004 | .005 | .001 | .002 | ... |
----------------------------------------------------------
220 | 55,0 | 57,2 | 56,6 | 54,1 | 55,2 | 50,1 | 50,0 | ... | 00:05
----------------------------------------------------------
220 | 56,2 | 57,0 | 55,8 | 58,3 | 59,5 | 50,0 | 50,5 | ... | 00:10


La première ligne correspond à l'intitulé, la seconde au numéro de série de l'appareil, et les suivantes aux valeurs. Je ne connais pas le nombre d'appareils à traiter. J'ai donc besoin d'une technique pour définir les plages de données de mon graphique.

La méthode find me permet de retrouver la première cellule contenant la variable que je souhaite tracer. Prenons pour exemple "Pac". Les variables à tracer sont sélectionnées à l'aide d'une liste déroulante.

Code :

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

1
2
3
4
Dim X, Y As Object
 
With ActiveWorkbook.Worksheets("BD").Range("A1:WU3")
 Set Y = .Find(What:=UserForm2.ComboBox_Var.Value)

Je souhaiterais donc créer un graphique avec en abscisse le temps et en ordonnée la variable choisi ("Pac" par ex) où chaque appareil corresponde à une série, avec pour nom son numéro de série.

Je ne sais vraiment pas comment m'y prendre... En espérant avoir été le plus clair possible.

Merci

[Mister Max]

Voilà ce que j'avais imaginé:

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
 
Sub Graph()
 
Dim X, Y, temp As Object
Dim OffsetCol As Variant
 
    'selection des series de données
    With ActiveWorkbook.Worksheets("BD").Range("A1:WU3")
    Set Y = .Find(What:=UserForm2.ComboBox_Var.Value)
    MsgBox "Ydata :" & Y.Address
 
 
    temp = Y.Value
 
    Do While temp.Offset(0, 1) = Y.Value
        temp = temp.Offset(0, 1)
    Loop
 
    OffsetCol = temp.Column - Y.Column
 
    MsgBox "Nb d'onduleurs :" & OffsetCol

Bien sûr ça ne fonctionne pas, la syntaxe et les types ne sont pas correctes.