Discussion :

[amerex]

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:

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

Sur la ligne de code:

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[amerex]

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!!

[Minick]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[amerex]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 =)

[Minick]

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

[amerex]

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....