Discussion :

[oly111]

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

[clementmarcotte]

Bonjour,

Je dirais de commencer par vérifier si ta dernière rangée est vraiment ta dernière rangée.

Si tu mets un point d'arrêt juste après la ligne et un espion sur LastRow, tu vas pouvoir regarder sur ta feuille si cela concorde.

Si cela va, essaie ensuite d'exécuter ta dernière boucle au pas à pas, pour voir si cela plante au début, durant ou à la fin de ta boucle, pour voir si tes compteurs sont corrects

Et aussi vérifie si ta plage Id-Range existe et n'est pas à Nothing. Si elle est à Nothing c'est qu'elles est probablement mal désignée ou qu'il y a une erreur dans ta ligne

[unparia]

Bonjour
Trop de négligences présentes dans ce code (type des variables, propriétés utilisées, etc...)
Je vais en ce qui me concerne pointer du doigt uniquement la plus importante et la cause de l'erreur dénoncée -->>

Code :

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

1
2
3
4
 
 
 
Id_range = Range(("A2"), Range("A2").End(xlDown))

fait que id_range n'est pas un objet range, mais une matrice

[oly111]

Merci je devais en effet mettre un Set devant mon Id_range.