Erreur référence variable
Bonjour à tous,
J'essaie de développer mes compétences en VBA dans le cadre de mon stage dans une institution financière. Je suis assez débutant et je n'arrive pas à identifier la source de mon problème (qui doit pourtant être plutôt simple). J'ai l'erreur classique 1004 et j'ai l'impression que celle-ci vient de la référence à mes variables. k, m et n font références à des cellules sur ma feuilles qui sont remplies par des fonctions qui donnent des nombres entiers (ce nombre entier est un numéro de ligne). Malheureusement je n'arrive pas à résoudre ce problème. Mon code est certes laborieux mais devrait pouvoir fonctionner sans ce défaut je suppose. Merci d'avance pour votre aide. Ci-dessous le code.
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
| Sub AlerteFonds()
Dim i, j, k, l, m, n, p, q, v As Integer
Worksheets("perf fonds").Select
k = 0
m = 0
n = 0
q = 0
p = Cells(24, 49).Value
For j = 5 To 24
m = Cells(j, 47).Value
n = Cells(j, 48).Value
k = Cells(j, 49).Value
q = Cells(k, 44).Value
For i = m To n
If Cells(i, 44).Value > q + 2 Then 'Si il y en a une qui correspond
Cells(i, 34).Interior.ColorIndex = 6
Else
End If
Next i
Next j
v = 0
For l = 1 To p
If Cells(l, 34).Interior.ColorIndex = 6 Then
v = v + 1
Else
End If
Next l
If v >= 1 Then
MsgBox "Alerte " & v & " fonds décalent"
Else
End If
End Sub |
