Discussion :

[nono le golfeur]

Bonjour,

Cela faisait un bon moment que je n'avais pas eu besoin d'avoir recours à vos conseils, mais la je bloque vraiment !

Je vais essayer d'être aussi clair que possible :

Le tableau :

Le tableau extrèmement basique, il permet de connaitre le nombre d'évenements survenus sur des appareils XYZ chaque jour.

- En première ligne des dates, chaque collone correspond à une date différentes, (on ne connait pas le nombre de dates...)
- Les lignes sous les dates contiennent des valeurs numériques qui correspondent à des evenements survenus sur des appareils.

Le but : Créer un graph suivant les dates que l'utilisateur entrera dans une form (ou autre moyen de spécifier de rentrer des données...)

En bref, l'utilisateur arrive, rentre les dates qui l'intéresse puis la macro se charge de créer un graph en prenant les valeurs correspondantes aux dates et à l'appareil qu'il a choisis.


Le problème :

Mon gros problème se situe au niveau de la définition des variables, comment explique à Excel qu'il doit prendre telle ligne et telle colone en fonction des dates que l'utilisateur aura entré.


Le type de graph que je veux créer :

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_test()
 
    Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets("Data").Range("A1:F2"), PlotBy:= _                                      
' Ici on a Range("A1:F2") mais si l'appareil choisis correspondant à la ligne 3 on aurait : Range("A1:F1,A3:F3")
 
 
        xlRows
 
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Data"
 
    With ActiveChart
        .HasAxis(xlCategory, xlPrimary) = True
        .HasAxis(xlValue, xlPrimary) = True
    End With
 
    ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
    ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowValue, LegendKey:=False
 
End Sub

Juste un exmple : si le tableau contient des dates entre le 01/06 [A2] et le 30/06[AE2] et que l'utilisateur decide de tracer un graph 10/06 au 20/06 pour un appareil situé en ligne 4 alors le range devra être : ("K1:U1,K4:U4")

Donc si quelqu'un à une piste pour déclarer les variables et pour rechercher le bon range, ça serai SUPER !!!

@+ Arnaud

[nono le golfeur]

En fait mon principal problème c'est de trouver les coordonnées des colones de la date de début et de fin...

Quand un utilisateur aura rentré 2 dates, j'aimerais connaître le numéro de la collone qui à la date, la ligne est définis par le materiel.

Donc en gros j'aurais

.Range(Collone_Date_Debut & 1: Collone_Date_Fin & 1, Collone_Date_Debut & i: Collone_Date_Fin)

@+ Arnaud