Bonjour à toutes et à tous,
J'ai un petit souci de gestion d'erreur sur une commande Autofilter (en VBA), dans le cas bien précis où le filtre automatique ne produit aucune valeur retenue. Comment puis-je détecter cet événement bien spécifique pour ensuite conduire automatiquement dans une autre section du code, soit par la commande Goto ou encore Resume ?
J'ai tenté bien innocemment un IF mais ça ne fonctionne pas...
If Selection.AutoFilter(Field:=1, Criteria1:="COUCOU") = ""
Merci beaucoup pour votre aide, déjà plusieurs fois répétée.
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 Sheets("MASTER").Select Range("T6").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="COUCOU" If Selection.AutoFilter(Field:=1, Criteria1:="COUCOU") = "" Then GoTo reprendre_ici: End If Range("c5:c55").Select Selection.Copy Sheets("Steph").Select Range("c6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("c6").Select
Partager