Discussion :

[nono le golfeur]

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

[illight]

Elle est sur quelle ligne ton erreur ?

[nono le golfeur]

L'erreur est au niveau de la défnition des r1 et r2
et aussi des deux boucle For J... et For k ...

@+

[Lou Pitchoun]

Salut,

Lorsque tu as des erreurs : ce serait pas mal que tu nous les communiques

Code :

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

Dim r1, r2, ranges As Range

Ici r1 et r2 sont déclarés comme Variant !!
Si tu veux que ce soit Range il faut :

Code :

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

Dim r1 As Range, r2 As Range, ranges As Range

[nono le golfeur]

Merci, je pensais que ça équivalais ...

Malheureusement l'erreur reste la même "Application defined...." à la ligne :

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
 
 
For j = 2 To 256
 If ActiveCell.Value = cbo_debut.Value Then
    ActiveCell.Column = DebutX
    End If
    Next j
 
For k = 2 To 256
 If ActiveCell.Value = cbo_fin.Value Then
    ActiveCell.Column = FinX
    End If
    Next
 
'L'ERREUR EST SUR LES LIGNES SET R1 et SET R2     
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)

Je pense que

Code :

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

1
2
3
4
5
For j = 2 To 256
 If ActiveCell.Value = cbo_debut.Value Then
    ActiveCell.Column = DebutX
    End If
    Next j

n'est pas approprié pour trouver le numéro de la collone correspondant à la selection dans ma combobox !

Merci mille fois

[Lou Pitchoun]

Si DebutX sert à stocker le numéro de colonne, tu devrais plutôt écrire :

Code :

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

DebutX = ActiveCell.Column