sytsme de filtage VBA

[blancolie]

bonjour,

avec ce code suivant, je peux filtrer mon tableau à partir d'une cellule mais je voudrais pouvoir filtrer à partir de plusieurs cellules car plusieurs critères et j'aimerais qui si 1 critère manque, le filtrage continu. cela se trouve dans l'onglet recherche et choix.

Private Sub Worksheet_Change(ByVal Target As Range)

' Si le changement à lieu en cellule "A2"
If Not Application.Intersect(Target, Range("A2")) Is Nothing Then

    ThisWorkbook.Sheets("Feuil1").AutoFilterMode = False
   
    If Target.Value <> "" Then
        ' Filtre en Feuil1, sur la colonne 4, avec comme critère la valeur entrée
        ThisWorkbook.Sheets("Feuil1").Range("A1").AutoFilter Field:=4, Criteria1:=Target.Value
    End If

End If



End Sub

 

[_Thierry]

Bonjour @blancolie , le Forum


Je n'ai pas ouvert ton fichier mais rien qu'en lisant cet évènement, basé sur le Target pour le critère :

Private Sub Worksheet_Change(ByVal Target As Range)
......./.......
Criteria1:=Target.Value

Celà peut fonctionner pour une cellule, mais plusieurs cellules pour plusieurs critères ça send le gaz à plein nez sur le Worksheet_Change !!!

Je ne conseille pas ! Voir plutôt d'ouvrir un Userform en auto que demanderait tes critères, mais bon c'est ré-inventer la roue, Excel fait ça très bien tout seul LoL !!!

Bonne semaine
@+Thierry

 

[blancolie]

Merci malheureusement office 365 ne fais pas de userform

 

[_Thierry]

Bonjour @blancolie , le Forum

Merci malheureusement office 365 ne fais pas de userform

Ah je n'utilise pas 365, je ne sais pas, mais sans accès aux UserForms c'est vraiment bridé et limité alors, raison de plus pour que je ne l'utilise pas les versions d'Office 365 !!!

Bon courage
@+Thierry

 

[blancolie]

Commeznt peut on filtrer sur un tableau entier ?

 

[_Thierry]

Re
ben sur un tableau (Table) il y a les Filtres Automatiques d'Excel si on les active...
Je ne comprends pas la question ...

 

[blancolie]

Désolé, par raport au codage que je t ai montré,au lieu de filtrer sur la colonne 4 seulement, peut on le faire sur tout le tableau en vba ?

 

[_Thierry]

Un filtre sur une Colonne d'un Tableau filtre toutes les rows, non ? Donc tout le Tableau...
Que ce soit fait par VBA ou à la main.

Quelque chose m'échappe...

 

[blancolie]

Cela marche à peu près bien sauf la présentation. regarde

 

[_Thierry]

Bonsoir @blancolie , le Forum

Oui ça à l'aire de fonctionner en remplissant Choix et recherche

Il te retourne une ligne filtrée sur BDD_Technique
Que veux-tu de plus ?

Bonne soirée
@+Thierry

 

[blancolie]

il y a une option qui permet d'être souple sur la case et le fond ?

 

[blancolie]

améliorer la présentation déja avec la bordure

 

[_Thierry]

La présentation est libre du moment que tu écris le critére de filtre dans la bonne cellule.

 

[blancolie]

dans ce cas la, il faut que je déclare un tableau et je pense que je peux faire la restitution tout en faisant unep résentation que je souhaite. car la ds cette macro, je masque des lignes seulement.