bonjour à tous,

je tente de parcourir un ensemble de date presente dans un tableau et de récupérer celle arrivant d'ici 1 semaine en vue d'une action à faire
j'ai donc établi la macro suivante qui devrait:

1) compare les dates pour chaque ligne
2) récupère certaines données lié à la ligne répondant aux critères
3) mettre cela dans un array

mais j'ai le droit à une erreur d'exécution + je ne suis pas sur de comment formuler le merge des informations

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
Private Sub CheckDeadlines_Click()
Dim Rep_page As Worksheet
Dim i As Integer, Fin As Integer
 
 
Set Rep_page = Worksheets("Reporting")
Fin = Rep_page.Range("A" & Rows.Count).End(xlUp).Row
 
'si date période début = today + 1 semaine généré FH personnel + envoi mail aux personnes
 
For i = 0 To Fin
If ((Date <= Rep_page.Cells(i, 5)) And (Rep_page.Cells(i, 5) <= DateAdd("WW", 1, Date))) Then
 
RngMerge = Array(Rep_page.Cells(i, 1), Rep_page.Cells(i, 2), Rep_page.Cells(i, 5))
 End If
Next
 
 
End Sub
une petite aide serait appréciable, merci