Discussion :

[hkpsyco]

Je veux réaliser un filtre en vba qui tourne grâce à deux textbox. Ces derniers transmet les valeurs critere1 et critere2 dans la procédure suivante :

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
 
Sub Filtrer(critere1 As String, critere2 As String)
ActiveSheet.Unprotect ("bla")
 
Selection.AutoFilter Field:=2, Criteria1:=critere1 & "*"
Selection.AutoFilter Field:=3, Criteria1:=critere2 & "*"
 
If critere1 = "" Then
Selection.AutoFilter Field:=2
End If
 
If critere2 = "" Then
Selection.AutoFilter Field:=3
End If
 
ActiveSheet.Protect ("bla")
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

Pour avoir un filtre "récursif" j'ai rajouté une * apres les variables critere1 et critere2 qui doit normalement me permettre ici de remplacer n'importe quoi.

Malheureusement ça marche pas, et je sèche...

Help me please

[ouskel'n'or]

Bonjour hkpsyco,
Tu es sûr qu'on peut utiliser des caractères génériques avec autofilter ? Je n'ai rien trouvé de tel dans l'aide en ligne.

Edit
Si Critere1 et critere2 sont issus d'une textbox, alors limite la longueur du mot qui s'y trouve

Code :

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

Critere1 = Left(Me.textbox, Longueur)

Juste une idée

[hkpsyco]

J'ai trouvé d'où vient le problème...

Lorsque j'applique mon filtre sur du texte ça fonctionne correctement, par contre sur des nombres je peux pas. voila pourquoi mon code bug

Auriez vous une solution ?

[Drost]

Essaie de voir si tu passez tes valeurs chiffre en texte.

Sinon tu peut essayer de faire des fourchettes :

Par exemple si tu souhaite tout les nombre commencant par 12*
Tu peux peut etre faire 1200<x<1300 ?

C'est juste une petite sugestion

[hkpsyco]

Oui Drost, je vois ce que tu veux dire. Mais un truc que je n'arrive pas à comprendre c'est que lorsque je n'utilise pas de caractère générique (*) le filtre fonctionne super bien.

Exemple :

J'ai donc une colonne avec des numéros de compte (comptabilité).
Dans mon textbox, si je tappe par exemple 455121, le filtre va bien me trouver le compte et pourtant là ce n'est pas du texte. Il faut donc, que ma recherche soit "finie".

Des que je rajoute mon caractère générique (*), il ne fonctionne plus

Question idiote... Est-ce que par hasard il n'y a pas de caractères génériques pour les nombres lol ?

[hkpsyco]

Bon j'ai finalement solutionné mon problème.
Ayant deux colonnes de type texte, l'une représentant les gestions, et l'autre le numéro de compte lui-même.

J'ai donc rajouté une colonne (CONCATENER) qui concatène la colonne gestion et numéro de compte en les séparant d'un point. Ce qui me donne une valeur texte de la forme xx.yyyyyyyy

Le code :

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
 
 
Sub Filtrer(critere1 As String, critere2 As String)
 
ActiveSheet.Unprotect ("test")
Selection.AutoFilter _
field:=1, Criteria1:=critere1 & "*." & critere2 & "*"
 
 
If critere1 = "" And critere2 = "" Then
Selection.AutoFilter field:=1
End If
 
 
ActiveSheet.Protect Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True
ActiveSheet.EnableSelection = xlUnlockedCells
 
 
End Sub

Maintenant fonctionne à la perfection. Je confirme donc que la fonction filtre n'accepte pas de caractère générique (*) si le format de la cellule n'est pas du type texte.

Merci pour tous vos conseils, et j'espère que ça pourra aider d'autres personnes

[ouskel'n'or]

Bojour hkpsyco,

Maintenant tout fonctionne à la perfection. Je confirme donc que la fonction filtre n'accepte pas de caractère générique (*) si le format de la cellule n'est pas du type texte.

"Le monde appartient aux homme qui se lèvent tôt !"
Intéressante ton observation. Peut-être devrais-tu mettre ça dans Contribuez, avec pour titre "Caractères génériques dans un filtre" et donner ton exemple. C'est la première fois que j'en entends parler... Mais je ne sais pas tout, tant s'en faut. C'est toi qui vois
Merci pour ta solution
Bonne journée