VBA gestion d'erreur

[sharkantipav]

Bonjour,

J'ai le morceau de code suivant

Dim r2 As Range
Set r2 = Sheets("Invoices").Range(Range("G5"), Range("G5").End(xlDown))
On Error Resume Next
Set r2Filtered = r2.SpecialCells(xlCellTypeVisible)
On Error GoTo Ex2

J'ai un souci car Excel ignore le

 On Error Resume Next

La possibilite d'erreur c'est si r2Filtered est vide. Je recois l'erreur No cells were found.

Si qqun a des propositions. Merci d'avance

 

[Dranreb]

Bonjour.
Excel n'y est pour rien je pense.
Vérifiez l'option de récupération d'erreur dans les options VBA.
Le On Error Resume Next est sans effet si c'est Arrêt sur toutes les erreurs qui est coché.