pb avec autofilter

[basnyl]

Bonjour à tous, je suis nouveau,

J'ai un soucis avec un prog que j'ai créée sous excel 2007 et qui m'indique une erreur sous excel2000 et excel2003 (err1004 methode autofilter de la classe range a échoué)

Il s'agit d'un tri dans une matrice sur la colonne 8qui comporte des noms de clients. J'exclue les clients només "clientA" à "ClientM" et j'affiche le "clientP"

Voici mon code:


Private Sub CommandButton1_Click()

Worksheets("Visualisation").Activate
Sheets("Visualisation").Range("B13:k250").ClearContents
Sheets("ST3").Range("B19:k220").Copy
Sheets("Visualisation").Select
Sheets("Visualisation").Range("B13:k214").Select
Sheets("Visualisation").Paste
Sheets("Visualisation").Range("B13:k214").Select
Selection.AutoFilter
Sheets("Visualisation").Range("$B$13:$k$214").AutoFilter field:=8, Criteria1:=Array( _
"ClientA", "ClientB", "ClientC", "ClientD", _
"ClientE", "ClientF", "ClientG", "ClientH", "ClientI", _
"ClientJ", "ClientK", "ClientL", "ClientM", "="), Operator _
:=xlFilterValues


Sheets("Visualisation").Range("$B$13:$k$214").AutoFilter _
field:=8, _
Criteria1:="ClientP"
VisibleDropDown = True
End Sub

Quelqu'un aurait une solution pour éviter cette erreur sous excel2000 et excel 2003

 

[tototiti2008]

Re : pb avec autofilter

bonjour basnyl,

Le filtre automatique est limité à 3 critères par champ en Excel 2003 et inférieur, ce qui explique sans doute l'erreur. Tu devras sans doute passer par un filtre élaboré...

 

[basnyl]

Re : pb avec autofilter

Merci pour cette réponse,

Penses tu que je puisse mettre 3 ou 4 filtres de suite ??

 

[tototiti2008]

Re : pb avec autofilter

Non, pour le filtre automatique, la limite de 2 critères par champ (et non pas 3 🙂) ne peut pas être dépassée.
Connais-tu le filtre élaboré ?

 

[basnyl]

Re : pb avec autofilter

non, je ne connais pas le filtre élaboré, en quoi consiste t-il ?

 

[tototiti2008]

Re : pb avec autofilter

un petit exemple pour te guider :

 

[basnyl]

Re : pb avec autofilter

merci , je vais essayé avec ça.