XL 2019 Filtrer une colonne selon une autre colonne de valeur

tokou · 20 Janvier 2022

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 .

sylvanu · 20 Janvier 2022

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

sylvanu · 20 Janvier 2022

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.

tokou · 20 Janvier 2022

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 .

JHA · 20 Janvier 2022

Bonjour à tous,

Avec une colonne supplémentaire et des formules

JHA

tokou · 20 Janvier 2022

JHA à dit:
Bonjour à tous,

Avec une colonne supplémentaire et des formules

JHA

Salut à toi JHA , merci pour ta réponse mais en F3= 2 ne correspond à aucune valeurs dans la base de donnée de la colonne A mais elle s'affiche vrai alors qu'il n'y a pas de valeurs 2 dans la base .

tokou · 20 Janvier 2022

JHA à dit:
Bonjour à tous,

Avec une colonne supplémentaire et des formules

JHA

parce que je souhaiterai qu'elle m'affiche les informations des éléments en filtrage dans le tableau de droite car je sais qu'elles existent j'ai pas besoin de savoir si c'est Vrai ou Faux , mais je pense qu'il faut passer par VBA ...

sylvanu · 20 Janvier 2022

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

tokou · 20 Janvier 2022

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

sylvanu · 20 Janvier 2022

Mais c'est ce que fait cette PJ, elle filtre avec les valeurs de la colonne E.
Elle ne marche pas ?
Par contre sur XL2007 je n'ai pas de filtre possible sur couleur, donc je ne pourrais pas vous aider sur ce point.

tokou · 20 Janvier 2022

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

Merci beaucoup à toi et ton temps , je vais tester et voir !

tokou · 20 Janvier 2022

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 .

XL 2019 Filtrer une colonne selon une autre colonne de valeur

tokou

XLDnaute Nouveau

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

tokou

XLDnaute Nouveau

JHA

XLDnaute Barbatruc

Pièces jointes

tokou

XLDnaute Nouveau

tokou

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

tokou

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

tokou

XLDnaute Nouveau

tokou

XLDnaute Nouveau

Pièces jointes

Discussions similaires