Je n'arrive pas à comprendre d'ou vient cette erreur !!!! Pour une fois que j'écris tout le code tout seul ca fonctionne pas !!

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
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
 
'Definition du i 
 
  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
 
' Tentative de trouver le numéro de la collone correspondant
' correspondant à la selection dans une combobox, cette partie du code ne
' fonctionne pas               
 
For j = 2 To 256
 If j.value = cbo_debut.Value Then
    ActiveCell.Columns = DebutX
    End If
    Next j
 
For k = 2 To 256
 If k.value = cbo_fin.Value Then
    ActiveCell.Columns = FinX
    End If
    Next
 
'Definition des plages pour le graph       
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
Tout fonctionne à part la partie ou je tente de trouver le numéro de la collone...

Merci d'avance si qq à une idée !
++ Arnaud