PB de filtre

[ericTA]

Bonjour, à tous je fais encore appel à vous car, je n'arrive pas à trouver de la solution à mon PB

Est-il possible de récupérer les valeurs que l'on a quand on clic sur un filtre. Je m'explique la liste déroulante avec toutes les possibilités de valeurs possibles.

Est-il possible de donner qu'une partie de la valeur du critère ex Ren* pour Renault et qu'il trouve tous les Renault ou avec Por* pour Porche pour ceux qui n'aiment pas Renault.

Selection.AutoFilter Field:=1, Criteria1:=Critere, Operator:=xlAnd

Comment savoir si le résultat du filtre est vide?

Je sais je suis pas très bon mais grâce à vous je me soigne...

Merci d'avance
Eric

 

[Pierrot93]

Re : PB de filtre

Bonjour Eric

peut être comme ceci :

Criteria1:="=" & critere & "*"

en supposant que "critere" soit une variable de type "String"... Sans voir le code dans sa totalité et sans fichier pas sur...

bonne soirée
@+

 

[ericTA]

Re : PB de filtre

Merci Pierrot93,
Cela fonctionne super bien.
Est ça supprime ma première question, mais aurais-tu une solution pour savoir si le filtre est vide car quand il n'y a pas de réponse je me retrouve avec un tableau vide et je passe de la ligne 5 à la ligne 4284!!!
J'aimerais afficher un message du style "Pas de valeur"
Encore Merci
Eric

 

[Pierrot93]

Re : PB de filtre

Re

pour ton 2ème problème regarde le code ci dessous :

Sub test()
Dim cell As Range, cellevisible As Boolean
For Each cell In Range("A2:A5")
    If cell.EntireRow.Hidden = False Then cellevisible = True
Next cell
If cellevisible = True Then MsgBox "au moins une cellule est visible"
End Sub

boucle sur la plage filtrée (ligne de titre non comprise)

on devrait pouvoir faire mieux, peut être en utilisant

SpecialCells(xlCellTypeVisible)

mais je n'ai pas trouvé...

bonne soirée
@+

 

[ericTA]

Re : PB de filtre

J'ai adapté ton code avec comme valeur Range("A5:A4283") et ça marche trés bien. La question qui me travaille est pourquoi les lignes sont chachées de 5 à 4283.???
Encore merci
Eric

 

[Pierrot93]

Re : PB de filtre

Re

je ne comprends pas trop bien... elle sont masquées si le filtre est actionné. et si les cellules ne correspondent pas au critère...

@+

 

[ericTA]

Re : PB de filtre

Les mystères de Microsoft...
Encore Merci ça marche très bien.

Eric