Bonjour,

Je vous explique mon code: je cherche dans une feuille appelée "UAR _ Comptes applicatifs London 3.xls" les valeurs que j'ai dans les cellules cells(i,2) de ma feuille, puis je récupère l'adresse de la case trouvée et je l'écris dans ma feuille. Mais ça ne marche pas, j'arrive pas à organiser mon code, je ne comprends pas la logique d'articulation à mon avis. Du coup j'ai l'erreur 'subscript out of range', encore et encore:

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
Private Sub compte_acti()
 
For j = 6 To 17
 u = 0
 For i = 1 To 70
 appli = Cells(i, 2).Value
 With Worksheets("UAR _ Comptes applicatifs London 3.xls").Range("a1:a100")
Set c = .Find(appli, LookIn:=xlValues)
adressecase = c.Address
Cells(i, 3).Value = adressecase
End With
 
 If Cells(i, j).Interior.ColorIndex = 40 Then
u = u + 1
End If
Next i
 Cells(81, j).Value = u
 Next j
 
End Sub
Est-ce que vous voyez ou est mon ignorance dans ce code? Merci beaucoup.