Microsoft 365 Filtrer deux tableaux par rapport aux critères

  • Initiateur de la discussion Initiateur de la discussion MJD001
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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.
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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour