Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Filtrer deux tableaux par rapport aux critères

MJD001

XLDnaute Nouveau
Bonjour le forum! J'ai vraiment de votre aide... J'aimerais filtrer mes deux tableaux qui se trouvent sur la colonne A (T1 et T2) par rapport aux critères respectivement en A4 et A5.
. Je souhaiterais que si la cellule A4="Admis" que le tableau1 soit filtré que des "Admis"
.si la cellule A5="Echoué" alors le tableau2 soit filtré que des "Echoué".
Ci-joint mon fichier
 

Pièces jointes

  • Filtre.xlsm
    29.5 KB · Affichages: 5
Solution
Avec une liste de validation dans la cellule D19 et cette macro dans le code de la feuille :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case [D19]
    Case "II-Liste complète": [A20:A120].AutoFilter 1, "*" 'filtre automatique
    Case "II-Liste des admis(es)": [A20:A120].AutoFilter 1, "Admis"
    Case "Liste des échoué(es)": [A20:A120].AutoFilter 1, "Echoué"
    Case Else: [A20:A120].AutoFilter 1, "zzz"
End Select
End Sub
Elle se déclenche automatiquement quand on modifie ou valide une cellule quelconque.

job75

XLDnaute Barbatruc
Avec une liste de validation dans la cellule D19 et cette macro dans le code de la feuille :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case [D19]
    Case "II-Liste complète": [A20:A120].AutoFilter 1, "*" 'filtre automatique
    Case "II-Liste des admis(es)": [A20:A120].AutoFilter 1, "Admis"
    Case "Liste des échoué(es)": [A20:A120].AutoFilter 1, "Echoué"
    Case Else: [A20:A120].AutoFilter 1, "zzz"
End Select
End Sub
Elle se déclenche automatiquement quand on modifie ou valide une cellule quelconque.
 

Pièces jointes

  • Filtre(1).xlsm
    30.9 KB · Affichages: 1

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…