Graph avec choix du Range des Données

Version imprimable

1 pièce(s) jointe(s)

Pour créer un graph en choississant quelles données on veut utiliser (Entre deux dates et en fonction d'un appareil). IE j'ai un Userform dans lequel je choisis deux dates entre lesquels je veux tracer le graph.

J'ai utilisé cette solution :
Code:

1 2 3 4 5 6 7 Set r1 = Sheets("Data").Range(Cells(1, DebutX), Cells(1, FinX)) Set r2 = Sheets("Data").Range(Cells(i, DebutX), Cells(i, FinX)) Set ranges = Union(r1, r2) 'Et ensuite plus bas dans le code : ActiveChart.SetSourceData Source:=ranges,
Pour ce qui est du i je l'ai et ça fonctionne si je met des valeur à la place des DebutX et FinX (Numéro de la collone de la date de début et de Fin)

Donc je recherche quelle fonction VBA peut me donnée le numéro de la collone des valeurs choisis !

Ha oui aussi, pour remplir mes ComboBox, j'utilise ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Dim X As Integer Dim Y As Integer For X = 2 To 256 cbo_debut.AddItem Sheets("Data").Cells(1, X) Next X For X = 2 To 256 Cbo_device.AddItem Sheets("Data").Cells(X, 1) Next X For Y = 2 To 200 cbo_fin.AddItem Sheets("Data").Cells(1, Y) Next Y
Ca me laisse des gros blancs dans la combobox, Est-ce possible de supprimer les blancs ?

Merci !!!

21/06/2007, 14h11
nono le golfeur

J'ai essayé avec la fonction column qui semble bien marcher mais la je bloque vraiment ...

Quelqu'un à une idée ????

Merci ! :king:

J'essaye avec ça maintenant ... Quelqu'un aurait'il une idée ???? J'en peux plus de ce graph qui ne veux pas fonctionner quand je tente de choisir une collone !

Code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Private Sub CommandButton1_Click()
 
Dim i As Integer
Dim r1, r2, ranges As Range
Dim DebutX As Integer
Dim FinX As Integer
Dim j As Integer
Dim k As Integer
 
 
' Pour Définir le numéro de la ligne à utiliser...
 
  If Cbo_device.Value = "a" Then
        i = 2
 
    ElseIf Cbo_device.Value = "b" Then
        i = 3
 
    ElseIf Cbo_device.Value = "c" Then
        i = 4
 
    ElseIf Cbo_device.Value = "d" Then
        i = 5
 
    ElseIf Cbo_device.Value = "e" Then
        i = 6
 
    ElseIf Cbo_device.Value = "f" Then
        i = 7
 
        End If
 
 'Pour définir le numéro de la collone à utiliser
 
For j = 2 To 256
 If j = cbo_debut.Value Then
    ActiveCell.Columns = DebutX
    End If
    Next j
 
For k = 2 To 256
 If k = cbo_fin.Value Then
    ActiveCell.Columns = FinX
    End If
    Next
 
 
'Maintenant pour définir le range du graph, il fonctionne avec les i et si je spécifie le numéro de la collone, mais avec la variable pour la collone ca ne fonctionne plus...
Set r1 = Sheets("Data").Range(Cells(1, DebutX), Cells(1, FinX))
Set r2 = Sheets("Data").Range(Cells(i, DebutX), Cells(i, FinX))
Set ranges = Union(r1, r2)
 
 
 
    Charts.Add
    ActiveChart.ChartType = xlLineMarkers
 
    ActiveChart.SetSourceData Source:=ranges, PlotBy:= _
        xlRows
 
     ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Graph Alliance"
 
    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

Merci !