bonjour,
j'aimerais comprendre ce qui ne fonctionne pas:
si je tente un if comme ceci aec pour exemple la ligne 123 cela me renvoi ok car true
If Date <= Rep_page.Range("E123") And Rep_page.Range("E123") <= DateAdd("WW", 1, Date) Then
MsgBox ("ok")
End If
si par contre j’insère cette même ligne de code dans un for pour tester toutes les lignes de mon tableau j'ai le droit à une erreur d'éxecution 1004...
For X = 0 To Fin
If Date <= Rep_page.Range("H" & X) And Rep_page.Range("H" & X) <= DateAdd("WW", 1, Date) Then
'RngMerge = Array(Rep_page.Cells(X, 1), Rep_page.Cells(X, 2), Rep_page.Cells(X, 5))
End If
Next X
merci à vous par avance