Filter ma Liste Suivant Equipement

Bonjour à Tous

Mon problème est que je voudrai afficher la liste su mon tableau en fonction des critères, Équipement et dates je suis arrivé à le faire en fonction des dates limites mais je voudrai rajouter le critère essentiel qui l’équipement à mes conditions

merci de m'aider, à votre disposition pour plus d'infos

Bon courage

Hosni

Bonsoir,

Tu trouveras dans le fichier comment faire c'est une des solutions native d excel la moins élaboré et la plus contraignante ;

car a chaque nouveau matériel il faudra selectionner filtre élaboré et faire ok.

Je peux également me tromper.

sinon le plus simple serait d'utiliser vba a toi de nous le dire.

A te relire

Air_2

Bonjour Air

Je viens de consulter ta solution, c'est une bonne alternative mais pas trops pratique quand il s'agit d'utilisateurs, alors je cherche a faire un filtre automatique suivant le critère equipement. Je cherche de mon côté et je compte sur la compétence et l'aide de tous. Merci

A plus

Hosni

Bonjour,

Tu aurais dû continuer sur ce poste et fournir le fichier avec ses macros,

https://forum.excel-pratique.com/post150509.html#p150462

Tu veux filtrer les équipements en plus des dates ou indépendamment ?

à te relire

Claude

Bonjour dubois;

En fait je veux filtrer suivant Équipement et dates, mais les cellules dates ne sont renseignée le filtre des date reste inactif

Merci A plus

Hosni

re,

Merci de joindre le fichier avec les macros existantes,

afin de les modifier

Claude

Salut;

En fait c'est le même fichier joint, Ok c'est en pièce jointes

Salut;

Désolé voici le classeur avec la macro pour les dates, bon courage

Merci

Hosni

re,

Si les 2 dates ne sont pas remplies, çà ne filtre que l'équipement

J'ai complété la liste/Validation "Equipement", voir feuile "Listes"

J'ai ajouté quelques dates pour tester

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lg&
    If Not Application.Intersect(Target, Range("a1")) Is Nothing Then
        Application.ScreenUpdating = False
            On Error Resume Next
            ActiveSheet.ShowAllData 'libère les filtres
            On Error GoTo 0
        If Range("a1") = "" Then Exit Sub
        Lg = Cells.Find("*", , , , xlByRows, xlPrevious).Row
        If Range("c2") <> "" And Range("c3") <> "" Then
            Range("q2") = "=AND(f6>=$c$2,f6<=$c$3,h6=$a$1)" 'critères dates + équipement
        Else
            Range("q2") = "=h6=$a$1"                        'critères équipement
        End If

        Range("a5:o" & Lg).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("q1:q2"), Unique:=False
        Range("q2").ClearContents
        Application.Goto Range("a6"), Scroll:=True
    End If
End Sub

Amicalement

Claude

Bonjour dubois;

j'ai vu votre travail il est parfait, je testes plus et je te tiens au courant, par contre moi j'utilise déjà une liste pour validation de données, qui est contenue dans le classeur. Alors j'adapte la routine...

Merci beaucoup pour ta précieuse aide; A plus

Hosni

Bonsoir,

par contre moi j'utilise déjà une liste pour validation de données, qui est contenue dans le classeur.

Justement, je t'ai fait un bouton pour mettre à jour cette liste (venant de Feuil1)

Claude

Bonjour Dubois

J'ai appliquer ta solution elle marche, sauf qu'avec les dates ca ne fait pas bon ménage, je teste encore sur d'autres cas et je te tiens au courant, En tout cas merci pour ton aide si précieuse

A plus

Hosni

Bonsoir,

Le critère date pour un filtre sur excel en vba doit être sous forme anglaise pour exemple :

VariableData=03/11/2011

La variable date pour le filtre doit être = 11/03/2011

Tu as une alternative qui remettra en question ton approche, à savoir de balayer toutes les lignes et récupérer uniquement les lignes qui répondront à tes deux critères avec une simple boucle sur la feuille Data (ou se trouvent tes données)

Amitié

Air_2

Bonsoir,

Qu'est-ce qui coince,

tu abandonnes ?

Claude