Maximum de données dans un filtre?

Bonjour!
J'aurais une question pour vous:

J'exécute un filtre sur des données en VBA. Mais, j'ai ± 9 000 enregistrements sur lesquels j'exécute le filtre. J'obtient un message d'erreur:

Citation:

---

La méthode AutoFilter de la classe Range a échoué.

---

Sur la ligne de code:

Code:

---

ActiveSheet.Range("A" & LastRow & ":O" & LastRow).AutoFilter Field:=4, Criteria1:=Code

---

J'ai essayé de mettre Range("A:O"), sans succès.

J'ai exécuté sur un nombre d'enregistrements plus petit et ça fonctionne.

Donc j'aimerais savoir si vous saviez s'il y a un maximum de données sur lesquelles on peut exécuter un filtre?

Code:

---

ActiveSheet.Range("A1:O" & LastRow).AutoFilter Field:=4, Criteria1:=Code

---

Merci beaucoup, mais j'ai encore un message d'erreur... je crois que les procédures précédentes effectuent quelque chose de pas correct...

Merci pour le code, effectivement, c,est logique!!

Salut,

Si il y a deja un filtre il faut l'enlever avant de 're-filtrer'.
Essaie ceci:

Code:

---

1 2 3 4 5

With ActiveSheet.Range("A1:O" & lastrow) .AutoFilter .AutoFilter Field:=4, Criteria1:=Code End With

---

PRobleme résolu!

L'erreur se produisait parce que j'exécutait mon filtre sur une feuille dans laquelle je copiait 1 cellule à la place des cellules visibles....

:)

Citation:

---

Envoyé par Minick

Salut,

Si il y a deja un filtre il faut l'enlever avant de 're-filtrer'.
Essaie ceci:

Code:

---

1 2 3 4 5

With ActiveSheet.Range("A1:O" & lastrow) .AutoFilter .AutoFilter Field:=4, Criteria1:=Code End With

---

---

Merci pour cette proposition, mais ce n'est pas compatible avec 2003... j'explique:
j'ai codé initialement mon code avec 2010. Il me faisait des procédures du genre. Mais 2003 plante quand il lit ce code :) Alors prend garde à la compatibilité si tu utilises cette méthode =)

Je suis sous 2003, je ne vois pas ou il peut y avoir un probleme...:question: