Discussion :

[mouftie]

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 :

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

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

j'ai également essayé

Code :

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

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 :

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

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

[NVCfrm]

Salut.

Code :

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

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 .

[joe.levrai]

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 :

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

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 :

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

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 :

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

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 :

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

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

[mouftie]

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

[joe.levrai]

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

[mouftie]

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

Code :

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

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

Merci beaucoup Joe, Bonne fin de journée