Filtre par quantité

[flo27]

Bonjour à tous !
N'ayant que quelques notions dans Excel je n'arrive pas à me sortir d'une feuille qui contient plus de 9000 lignes. J'essaye, jusqu'à ce que je trouve ce forum, depuis plusieurs jours de trier mon tableau par quantité mais je ne trouve pas la bonne formule.
A priori je ne pense pas qu'il s'agisse d'un filtre élaboré vu que j'ai cru comprendre qu'il ne s'agissait que de deux colonnes, mais bon je n'y connais pas grand chose quand même.
Pour vous expliquer :

j'ai plusieurs "agents" auprès de plusieurs "employeurs", j'aimerais créer un filtre qui me permette de ne retenir que les "employeurs" de moins de 5 "agents". Est ce possible ?

Merci d'avance 🙂

P.S : mon fichier joint n'est qu'une partie en raison du fichier trop lourd 🙂

 

[mikeo]

Re : Filtre par quantité

Bonjour flo, le forum,

Je te propose, si cela est possible, de créer une colonne supplémentaire qui détecte les employeurs de < de 5 agents puis faire ton filtre sur cette colonne.

Mikeo

 

[skoobi]

Re : Filtre par quantité

Bonjour flo27, bienvenue sur XLD,

tu peux utiliser le filtre élaboré en utilisant une formule comme dans l'exemple joint.

Bonne journée.

Edit: bonjour mikeo.

 

[Robert]

Re : Filtre par quantité

Bonjour Flo et bienvenu sur le forum, Bonjour Mikeo, Skoobi, bonjour le forum,

En pièce jointe une proposition VBA avec un Bouton bascule (ToggleButton) qui Filtre/Affiche Tout avec le code ci-dessous :

Private Sub ToggleButton1_Click() 'au clic sur le bouton bascule
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim pl As Range 'déclare la variable pl (PLage)
Dim x As Long 'déclare la variable x (incrément de boucle)
 
Range("A1").Select 'enlève le focus au bouton
dl = Range("A65536").End(xlUp).Row 'définit la dernière ligne de la colonne A
Set pl = Range("A2:A" & dl) 'définit la plage des cellules éditées de la colonne A
ToggleButton1.Caption = IIf(ToggleButton1.Value = True, "Afficher Tout", "Filtrer") 'définit la texte du bouton appuyé/lâché
If ToggleButton1.Caption = "Afficher Tout" Then 'condition1 : si le bouton affiche "Afficher Tout"
    For x = dl To 1 Step -1 'boucle inversé de la dernière ligne à la ligne 2 de la colonne A
        'condition 2 : si le nombre de fois que la valeur de la cellule se repète est supérieur à 5, masque la ligne
        If Application.WorksheetFunction.CountIf(pl, Cells(x, 1).Value) > 5 Then Rows(x).Hidden = True
    Next x 'prochaine ligne de la plage
Else 'sinon (condition1)
    pl.EntireRow.Hidden = False 'affiche toute les ligne de la plage
End If 'fin de la condition 1
End Sub

 

[flo27]

Re : Filtre par quantité

Merci beaucoup pour toutes vos réponses précises et rapides !
J'ai essayé de comprendre vos manipulations, et je pense les avoir saisies, juste, et c'est probablement stupide, mais que faire avec un bouton bascule ? Comment l'activer ?

 

[Robert]

Re : Filtre par quantité

Bonjour le fil, bonjour le forum,

Si le bouton bascule ne fonctionne pas c'est que les macros ne sont pas activées. Si à l'ouverture du fichier que je t'ai proposé tu n'as pas eu de message te demandant d'activer ou pas les macros, il faut que tu règles le niveau de sécurité . Pour cela, menu Outils/Macro/Sécurité... Choisir l'option Niveau de sécurité moyen permettra, à l'ouverture d'un fichier contenant des macros, de pouvoir choisir de les activer ou pas. Je pense qu'une fois les macros activées tu comprendras certainement mieux le fonctionnement du ToggleButton.

 

[flo27]

Re : Filtre par quantité

Merci beaucoup !
J'ai déjà eu l'occasion d'utiliser la création de macro donc je vais regarder ça de plus près. Merci encore à tous !

 

[david84]

Re : Filtre par quantité

Bonjour à tous,
ci-joint en passant une version formule, prétexte pour remercier Robert pour ses versions soigneusement commentées des macros qu'il propose, ce qui me permet de me familiariser (très) doucement au VBA.
Merci encore Robert😉
A+

Edit : on peut même écrire la formule sans passer par équiv :

=SI(LIGNES($1:1)<=SOMMEPROD(N(NB.SI($A$2:$A$39;$A$2:$A$39)<5));INDEX(A$2:A$39;PETITE.VALEUR(SI(NB.SI($A$2:$A$39;$A$2:$A$39)<5;LIGNE(INDIRECT("1:"&LIGNES($A$2:$A$39))));LIGNES($1:1)));"")

Formule matricielle à tirer vers la droite et le bas.