Discussion :

[nono le golfeur]

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 :

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

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 :

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

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 !!!

[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 !

[nono le golfeur]

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 :

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
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 !