Filtre à partir d'un choix multiple à travers une liste ds Usf

Bonjour,
J'ai quelques pb avec mon code ; j'ai repris celui de Delfphine : [URL="http://www.developpez.net/forums/d967997/logiciels/microsoft-office/excel/macros-vba-excel/filtre-plusieurs-criteres/#post5431951"]http://www.developpez.net/forums/ano...a4ad7da073f879[/URL]
1 - J'ai voulu ajouter une ligne pour supprimer les filtres existants, cela ne fonctionne pas à chaque fois et bugue si le filtre est vide (sélectionner tout est décoché et toutes les données sont également décochées - la table ne contient donc que les titres)
Pourtant j'ai déjà utilisé ce code et il fonctionnait ; faut-il s'y prendre autrement ?

Code:

---

1 2	'Supprime les filtres existants If Sheets("BdD").FilterMode = True Then Sheets("BdD").ShowAllData

---

j'ai également essayé

Code:

---

ActiveSheet.ShowAllData

---

Message d'erreur : "La méthode ShowAllData a échoué"

2- Si dans ma zone de critère, j'ai un chiffre et qu'il est sélectionné, il n'est pas pris dans le filtre ; je ne comprends pas pourquoi, car en mode pas à pas, il est bien intégré dans la variable tableau(j)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub CbtOk_Click() Dim Nb As Byte, i As Byte, j As Byte Dim tableau(1 To 100) As Variant 'Supprime les filtres existants If Sheets("BdD").FilterMode = True Then Sheets("BdD").ShowAllData 'Calcul du Nb de ligne de la liste Nb = UserForm1.ListBox1.ListCount j = 1 'index des sélections For i = 0 To Nb - 1 'Pour chaque ligne de la liste 'si elle est sélectionnée If UserForm1.ListBox1.Selected(i) Then 'Boolean 'on cré un tableau virtuel des sélections tableau(j) = UserForm1.ListBox1.List(i) j = j + 1 End If Next i 'si aucune sélection n'est faite, on considère qu'elles le sont toutes If j = 1 Then MsgBox "faites un choix ou annuler": Exit Sub 'Debug.Print tableau.Value Worksheets(1).Range("BdD").AutoFilter Field:=3, Criteria1:=tableau, Operator:=xlFilterValues End Sub

---

Merci pour votre aide

Salut.

Code:

---

1 - J'ai voulu ajouter une ligne pour supprimer les filtres existants, cela ne fonctionne pas à chaque fois et bugue si le filtre est vide (sélectionner tout est décoché et toutes les données sont également décochées - la table ne contient donc que les titres)

---

Qu'est ce qui bug. Le test dans la condition if, ou l'instruction ?

Envisage une solution avec AutoFilter .

Bonjour mouftie,

je ne sais pas si c'était le propos exact de NVCfrm quand il parlait de Autofilter, mais pour effacer (s'ils existent) d'éventuels filtres automatiques, j'ai toujours pris l'habitude (mauvaise selon certains) de précéder l'application de nouveaux filtres par un bête Autofilter "vide"

Code:

---

1 2 3 4

With MaFeuille.Range("A1") .Autofilter .Autofilter 1, "toto" End With

---

S'il y avait des filtres en place : ça les enlève
S'il n'y en avait pas : ça "affiche" les flèches du filtre automatique, mais sans aucun critère de filtrage

Je n'ai jamais réussi à "aimer" l'utilisation du FilterMode et ShowAllData, comme ceci :

Code:

---

1 2 3 4

With MaFeuille If .FilterMode Then .ShowAllData .Range("A1").AutoFilter 1, "toto" End With

---

Pour le second point, quand tu dis que le chiffre n'est pas pris dans le filtre, est-il à minima présent dans ton tableau "tableau" ?
Est un nombre (une variable numérique) ou une chaine de caractère contenant des chiffres ?
Il me semble que si tu mélanges des chiffres et des lettres, tu dois passer tes chiffres en String, sinon ton Autofilter ne va pas utiliser les deux "types" en raison de l'incompatibilité entre les filtres textuels et les filtres numériques

EDIT : pour illustrer mon propos, je viens de réaliser ceci

Ma colonne A contient des chiffres et des lettres

Si j'utilise ça

Code:

---

1 2 3 4 5 6 7

Sub rir() Dim Tabl() Tabl = Array("1", "2", "titi") With ActiveSheet .Range("A1").AutoFilter 1, Tabl, xlFilterValues End With End Sub

---

Mes "chiffres" sont bien filtrés

Mais si je lui passe des "vrais" chiffres, je n'ai que titi qui reste après le filtrage

Code:

---

1 2 3 4 5 6 7

Sub rir() Dim Tabl() Tabl = Array(1, 2, "titi") With ActiveSheet .Range("A1").AutoFilter 1, Tabl, xlFilterValues End With End Sub

---

Bonjour Ousmane et Joe et merci de vos réponses.
Pour le point 1, les explications et la proposition de Joe me convienne parfaitement, après plusieurs essais, cela fonctionne à tous les coups ; la méthode "ShowAllData" est vraiment aléatoire...

Pour le point 2, Joe, tu as encore raison, il s'agit bien d'un chiffre numérique parmi des chaînes textes. j'ai ajouté à ma liste un '6 (donc 6 en texte), celui la est bien filtré par ma procédure.
Alors comment faire pour filtre des chiffres et des chaînes ? surtout que c'est possible manuellement.
Merci

Si ta colonne contient des chiffres et des lettres, alors traite tes chiffres comme des chaines lors du filtrage

Qu'est-ce qui s'opposerait à ce traitement dans ton projet ? Puisque c'est uniquement côté VBA que tu les traites en tant que String

Ca ne t'empêchera pas ensuite de pouvoir manipuler tes chiffres comme des vrais nombres

Merci Joe,
Si ça peut servir, j'ai utilisé le convertisseur en texte

Code:

---

tableau(j) = CStr(UserForm1.ListBox1.List(i))

---

Merci beaucoup Joe, Bonne fin de journée