Pb simple de flitre automatique

Bonjour,

J'ai un petit pb, mais je pense que ça ne doit pas être très difficile :D

j'utilise un filtre :

Code:

---

1 2 3 4

Rows("1:1").Select Selection.AutoFilter Selection.AutoFilter Field:=10, Criteria1:="070"

---

Comment identifier le cas où je n'ai pas de résultat (aucune ligne avec la valeur 070 dans la colonne 10)?
Merci pour votre aide

Bonjour,

Une solution parmi d'autres:

Code:

---

1 2 3 4

Dim x As Long x = WorksheetFunction.Subtotal(3, Range("J2:J1000")) MsgBox x

---

Adapter la référence de la plage, sans inclure la ligne de titre.

Cordialement,

Manu/