Bonjour merci de m'aider je ne comprends pas pourquoi cette macro me donne l'erreur objet requis.


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
Sub BSD()
 
Dim LastRow As Long
Dim Id As String
Dim Wb As Workbooks
Dim x As Variant
 
 
 
WBname = ActiveWorkbook.Name
 
Workbooks("V2. Finances assos 2019").Activate
 
LastRow = Sheets("Contributions STRIPE").Range("B" & Rows.Count).End(xlUp)
 
Workbooks("contribution_export_20190101-20190320").Activate
 
Id_range = Range(("A2"), Range("A2").End(xlDown))
 
For Each x In Id_range
 
If x = LastRow Then
 
Range(Cells(x.Rows, 1), Range("C80")).Select     --- Erreur ici 
 
End If
 
Next x
 
 
End Sub