Bonjour!

Voici une macro que j'ai effectué.

L'application v est censé ressortir une colonne avec

RG
1
1
1
0
0
1
0

seulement avec mon code actuel je n'ai que des

RG
RG
RG
RG
RG
RG
RG
RG
RG


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
 
Sub test2()
Dim v As Variant
Dim var1 As Variant
Dim var2 As Variant
Sheets.Add.Name = "test"
With Worksheets("Parametre")
	'derniere_ligne  = Range("A18").End(xlDown).row
	Sheets.Add.Name = "test"
	'nb_règle = derniere_ligne-18'
	'nb_ligne = Sheets("data").Range("A1").End(xlDown).row'
        For i = 18 To 19
			For j = 2 To  30000
					For k = 2 to 3
						If (Not IsEmpty(Range("A" & i))) Then
							If (Range("B" & i) = ">") Then
								var1 = .Cells(i, 1).Value
								var2 = .Cells(i, 3).Value
								v = Application.Run("BERT.Call", "compare_sup", var1, var2)
								sheets("test").Cells(j,k).value = v
							End If
						If (Range("B" & i) = "<") Then
								var1 = .Cells(i, 1).Value
								var2 = .Cells(i, 3).Value
								v = Application.Run("BERT.Call", "compare_inf", var1, var2)
								sheets("test").Cells(j,k).value = v
						End If
					If (Range("B" & i) = "=") Then
								var1 = .Cells(i, 1).Value
								var2 = .Cells(i, 3).Value
								v = Application.Run("BERT.Call", "compare_egal", var1, var2)
								sheets("test").Cells(j,k).value = v
						End If
					If (Range("B" & i) = ">=") Then
								var1 = .Cells(i, 1).Value
								var2 = .Cells(i, 3).Value
								v = Application.Run("BERT.Call", "compare_sup_egal", var1, var2)
								sheets("test").Cells(j,k).value = v
						End If
					If (Range("B" & i) = "<=") Then
								var1 = .Cells(i, 1).Value
								var2 = .Cells(i, 3).Value
								v = Application.Run("BERT.Call", "compare_inf_egal", var1, var2)
								sheets("test").Cells(j,k).value = v
						End If
					End If
				Next k
			Next j
		Next i 
End With
End Sub
Pourriez vous me dire ce qui cloche?

merci bcp !