Discussion :

[Caius Suelburnus]

J'ai pourtant l'impression de faire tout comme il faut mais j'obtiens cette erreur sur la ligne concernant AutoFilter :

Erreur 1004 : une plage est requise, selectionnez au moins une cellule dans une plage

Code :

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

1
2
3
4
5
Dim Services As Worksheet
Set Services = ThisWorkbook.Worksheets(1)
Dim allcells As Range
Set allcells = Services.Range("A6:O500")
allcells.AutoFilter

Any help?

[MarcelG]

Bonjour,

Ce code fonctionne parfaitement sur mon poste, avec une plage moindre.

Ta ligne de titres de colonnes se situe-t-elle bien en ligne 6?

N'y a-t-il pas de "trou" dans cette ligne de titre ?

[Caius Suelburnus]

Hmmm, j'ai l'impression que je n'ai pas tou compris.
La ligne 6 est une ligne quelconque chez moi et effectivement elle comporte des cellules vides.
Il y a une condition comme cela pour l'utilisation de AutoFilter ?

[MarcelG]

Bonsoir,

Ha que oui !

Ta base doit comporter une ligne de titres, soit les en-têtes de colonnes à filtrer, complète sur la largeur de celle-ci.

Essaie en comblant les vides et en déplaçant ta base en "A1".

En dernier ressort, envoie un fichier simplifié si besoin (Voir restrictions de Pierre).

Je suis persuadé que ton souci provient d'une mauvaise structure de tes données.

[Caius Suelburnus]

Tu avais raison, j'ai ajoute une ligne d'entete et ca marche...presque.
Mais d'abord j'ai un probleme : partout dans les exemples ou cours en ligne que je trouve, les gens font un .AutoFilter sans arguments afin d'invalide le filtrage precedent mais sur mon Excel 2011 pour Mac, cela genere systematiquement une erreur.
Le resultat c'est que dans la feuille ou sont mes donnees initiales, seulement les lignes selectionnees lors du dernier AutoFilter subsistent apres le traitement, les autres sont de toute evidence la puisque si je reexecute la routine a nouveau, ca donne le meme resultat (je copie les lignes selectionnees dans une nouvelle feuille a chaque tour de boucle) mais visiblement les autres lignes ne sont pas affichees.
Ce que j'aimerais c'est que dans la feuille qui contient les lignes d'origine, tout reste visible a la fin du traitement et pour ca il me semble qu'il faut desactiver les filtres mais si je ne peux pas appeler AutoFilter sans argument je suis coince.

[mercatog]

essaies ceci pour supprimer le filtre auto

Code :

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

Sheets("Feuil1").autofiltermode=false

[Caius Suelburnus]

Ca ne change rien, ca ne genere pas d'erreur mais le resultat est le meme.
Je recupere les lignes visibles ainsi :

Code :

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

1
2
Dim enscells As Range
Set enscells = allcells.SpecialCells(xlCellTypeVisible)

A priori cela fait une copie mais n'affecte pas les lignes d'origine, non ?

[Caius Suelburnus]

Bon j'ai trouve pourquoi mon fichier d'origine etait modifie : en fait il faut immediatement apres avoir recopie la selection, deselectionner.
Par contre le AutoFilter sans argument genere une erreur sous Office 2011 Mac, il faut effectivement utiliser AutoFilterMode comme tu me l'avais suggere. Thx.