J'ai rencontré un problème que je ne parviens pas à m'expliquer dans une macro, j'espérais trouver de l'aide ici.
Voila le début de la macro (elle est très longue mais le problème apparait tot)
Sub Ban()
Dim l1, l2, l3, l4, l5, l6, l7, kw, lr1, lr2, lr3, lr4, lr5, lr6, lr7, q1, q2, q3, q4, q5, q6, q7, v, w, x As Integer
Dim y, b, b1, b2, b3, b4, b5, bs As Long
Dim t1, t2, t3, t4, t5 As Boolean
Dim m As String
Application.ScreenUpdating = False
kw = Workbooks("Planung Übersicht.xlsm").Sheets("Instructions").Cells(10, 7).Value
m = Workbooks("Planung Übersicht.xlsm").Sheets("Instructions").Cells(12, 7).Value
y = Workbooks("Planung Übersicht.xlsm").Sheets("Instructions").Cells(15, 7).Value
Workbooks("Bänder " & y & ".xls").Activate
lr6 = Workbooks("Bänder " & y & ".xls").Sheets("KW " & kw).Cells(Rows.Count, 1).End(xlUp).Row
l6 = 35
'starting from the bottom as planned qty is written in the last day for continuous jobs
l7 = 7
b1 = 0
b2 = 0
b3 = 0
b4 = 0
b5 = 0
t1 = False
t2 = False
t3 = False
t4 = False
t5 = False
y = 0
For y = lr6 To 7 Step -1
'day off?
If Workbooks("Bänder " & y & ".xls").Sheets("KW " & kw).Cells(y, 7).Interior.ColorIndex = 3 Then
...
Lorsque l'execution passe sur les lignes
Workbooks("Bänder " & y & ".xls").Activate
lr6 = Workbooks("Bänder " & y & ".xls").Sheets("KW " & kw).Cells(Rows.Count, 1).End(xlUp).Row
Il n'y a aucun souci, la macro continue tranquillement.
Mais, lorsqu'on arrive au
If Workbooks("Bänder " & y & ".xls").Sheets("KW " & kw).Cells(y, 7).Interior.ColorIndex = 3 Then
C'est le drame, la fatidique erreur 9...
J'ai pensé que le problème venait des noms de classeur/feuilles mais pourquoi la première ligne passerait alors? J'ai bien copié/collé ce qui était ecrit dans la ligne qui fonctionnait mais rien n'a changé.
J'ai essayé de changer la variable "y" par un chiffre fixe pour voir si elle était la cause du problème et pareil, erreur 9.
