Discussion :

[NulenVBA]

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.

[Pierre Fauconnier]

Bonjour

Dans cette ligne

Code :

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

With Worksheets("UAR _ Comptes applicatifs London 3.xls").Range("a1:a100")

tu ne précises pas la feuille de la plage...

Tu gagnerais à travailler avec des objets Workbook, worksheet et Range...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
dim wb as workbook
dim sh as worksheet
dim Plage as range
 
set wb = workbooks("UAR _ Comptes applicatifs London 3.xls")
set sh = wb.worksheets("...")
set plage = sh.range("a1:a100")
with plage
    ...
end with

[Aeltith]

Dans cette ligne

Code :

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

With Worksheets("UAR _ Comptes applicatifs London 3.xls").Range("a1:a100")

tu ne précises pas la feuille de la plage...

Pour resté dans ce que dit Pierre et pour info:

Tu parles d'un objet de la collection worksheetS

Or dans la parenthèse tu écris le nom d'un classeur Excel !
"UAR _ Comptes applicatifs London 3.xls"

[NulenVBA]

exact. En gros moi frand amateur de français je viens d'écrire je vands une vouature qd je veux dire je vends une portière, dur dur. Peut on devenir bon ds un domaine pour lequel son cerveau n'est pas fait ?