sharkantipav
XLDnaute Occasionnel
Bonjour,
J'ai le morceau de code suivant
J'ai un souci car Excel ignore le
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
J'ai le morceau de code suivant
Code:
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 Ex2J'ai un souci car Excel ignore le
Code:
On Error Resume NextLa 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