XL 2019 Filtrer une colonne selon une autre colonne de valeur

T

tokou

XLDnaute Nouveau
Bonjour , je vous écris ce post car je peine à trouver une solution à mon problème .

L'option filtrer de Excel ne permet pas de filtrer selon une colonne de valeurs et la fonction rechercheV ne résolu n'ont plus à mon souci .

Ce que je recherche à faire c'est tout simplement de filtrer une colonne selon une autre colonne de référence de filtrage ( Sans perdre aucune données ) .

Dans mon exemple filtrer la colonne A selon la colonne filtrage E mais je pense faut utiliser une macro.

Je vous remercie pour toutes aides .
 

Pièces jointes

  • filtre.xlsx
    13 KB · Affichages: 10
Dernière édition:
Solution
sylvanu
Re,
Effectivement c'était pas facile à comprendre comme demande. :)
En PJ un essai avec deux boutons et :
VB: 
Sub Filtre()
    Dim DLA%, DLE%, La%, Le%, F
    Application.ScreenUpdating = False
    DLA = Range("A65500").End(xlUp).Row
    DLE = Range("E65500").End(xlUp).Row
    Range("F2:F65000").ClearContents
    For La = 2 To DLA
        F = Cells(La, "A")
        For Le = 2 To DLE
            If Application.CountIf([E:E], F) > 0 Then
                Cells(La, "F") = "X"
                Exit For
            End If
        Next Le
    Next La
    ActiveSheet.Range("$F$1:$F$22").AutoFilter Field:=1, Criteria1:="<>"
End Sub
Sub FiltreOFF()
    Application.ScreenUpdating = False
    Range("F2:F65000").ClearContents...
Trier par date Trier par votes
sylvanu

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Tokou,
D'après ce que j'ai compris.
Votre problème vient du fait que la colonne E ne contient pas des nombres mais des chaines de caractères. ( c'est pour cela qu'il sont centrés à gauche )
En PJ j'ai passé cette colonne en format standard, et dans chaque cellule on sélectionne la valeur puis retour. Cela se transforme en nombre, centré à droite.
Il suffit alors de faire Filtrer/Filtre numérique/Est égal à ... puis mettre inférueir à 8 par ex.
 

Pièces jointes

  • filtre.xlsx
    40.9 KB · Affichages: 4
Vote positif 0 Vote négatif
T

tokou

XLDnaute Nouveau
Bonjour Sylvanu , malheureusement j'ai changé les vraies valeurs de la colonne E , inférieure à 8 ne fonctionnera parceque c'est des nombres aléatoire et non croissant.
J'ai besoin de filtrer 280 valeurs non croissant et des nombres précises et aléatoire.
Mais je vous remercie pour votre réponse.
J'ai même chercher dans les filtres avancés mais je ne trouve pas .
 
Vote positif 0 Vote négatif
sylvanu

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
Effectivement c'était pas facile à comprendre comme demande. :)
En PJ un essai avec deux boutons et :
VB: 
Sub Filtre()
    Dim DLA%, DLE%, La%, Le%, F
    Application.ScreenUpdating = False
    DLA = Range("A65500").End(xlUp).Row
    DLE = Range("E65500").End(xlUp).Row
    Range("F2:F65000").ClearContents
    For La = 2 To DLA
        F = Cells(La, "A")
        For Le = 2 To DLE
            If Application.CountIf([E:E], F) > 0 Then
                Cells(La, "F") = "X"
                Exit For
            End If
        Next Le
    Next La
    ActiveSheet.Range("$F$1:$F$22").AutoFilter Field:=1, Criteria1:="<>"
End Sub
Sub FiltreOFF()
    Application.ScreenUpdating = False
    Range("F2:F65000").ClearContents
    ActiveSheet.Range("$F$1:$F$65000").AutoFilter Field:=1
End Sub
 

Pièces jointes

  • filtre (4).xlsm
    19.1 KB · Affichages: 8
Vote positif 0 Vote négatif
Solution
T

tokou

XLDnaute Nouveau
Sinon savez vous comment faire une mise en conditionnelle égale à = plusieurs valeurs de la colonne en remplissant les valeurs par un couleur comme ça je pourrais filtrer la colonne de données en fonction de la couleur et ainsi je pourrai obtenir mon filtrage .
Car je sais pas programmer en vba pour trier un colonne par rapport à l'autre
 
Vote positif 0 Vote négatif
T

tokou

XLDnaute Nouveau
sylvanu à dit:
Re,
Effectivement c'était pas facile à comprendre comme demande. :)
En PJ un essai avec deux boutons et :
VB: 
Sub Filtre()
    Dim DLA%, DLE%, La%, Le%, F
    Application.ScreenUpdating = False
    DLA = Range("A65500").End(xlUp).Row
    DLE = Range("E65500").End(xlUp).Row
    Range("F2:F65000").ClearContents
    For La = 2 To DLA
        F = Cells(La, "A")
        For Le = 2 To DLE
            If Application.CountIf([E:E], F) > 0 Then
                Cells(La, "F") = "X"
                Exit For
            End If
        Next Le
    Next La
    ActiveSheet.Range("$F$1:$F$22").AutoFilter Field:=1, Criteria1:="<>"
End Sub
Sub FiltreOFF()
    Application.ScreenUpdating = False
    Range("F2:F65000").ClearContents
    ActiveSheet.Range("$F$1:$F$65000").AutoFilter Field:=1
End Sub
Cliquez pour agrandir...
Merci beaucoup à toi et ton temps , je vais tester et voir !
 
Vote positif 0 Vote négatif
T

tokou

XLDnaute Nouveau
Encore Merci à toi Sylvanu , t'es trop fort la macro marche bien , juste un bémol après avoir filtrer , une grande partie des nombres de la colonne filtre disparaisse mais cela ne fait rien du moment que ça filtre la base de donnée de la colonne A et qu'il y'a pas de manque .

Je te remercie bonne fin d'après midi :) .
 

Pièces jointes

  • Sans titre.png
    Sans titre.png
    32 KB · Affichages: 40
Vote positif 0 Vote négatif

Discussions similaires

B
  • Question
Microsoft 365 Filtrer des colonnes multiples
Réponses
1
Affichages
128
WTF
WTF
L
  • Question
XL 2021 Appliquer plusieurs filtres numériques "entre" sur une colonne excel
Réponses
6
Affichages
175
Cousinhub
Cousinhub
M
  • Question
Microsoft 365 vous ne pouvez pas modifier une partie de la matrice"
Réponses
8
Affichages
200
TooFatBoy
TooFatBoy
K
  • Question
XL 2016 Synchroniser le filtrage de 5 graphs sur la même feuille Excel
Réponses
0
Affichages
239
Kad97
K
T
  • Résolu(e)
XL 2019 Filtrer un colonne de donnée suivant une autre colonne
Réponses
5
Affichages
899
sylvanu
sylvanu
M
  • Résolu(e)
Microsoft 365 Rafraîchir listbox
Réponses
9
Affichages
645
Marvin57
M
M
  • Question
Microsoft 365 "Vous ne pouvez pas modifier une partie de matrice"
Réponses
1
Affichages
372
danielco
D
P
  • Résolu(e)
Autres Choix selon plusieurs critères
Réponses
2
Affichages
133
Pascal22100
P
D
  • Question
Microsoft 365 Macro pour enlever les filtres mais laisser la possibilité de filtrer avant fermeture
2
Réponses
25
Affichages
461
TooFatBoy
TooFatBoy
C
  • Résolu(e)
XL 2021 filtrer données puis envoi sur une autre feuille
Réponses
3
Affichages
210
sylvanu
sylvanu

Membres actuellement en ligne

11 membres et 98 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 176
Messages
2 085 962
Membres
103 067
dernier inscrit
el_privach