Microsoft 365 Filtre sur plusieurs colonnes

[farid]

Bonjour,
Après multiple recherche , si j'ai bien chercher , je n'arrive pas à trouver la formule qui permettra de filtrer sur plusieurs colonne.
Exemple dans le fichier joint , avec le bouton 1 , je souhaite filtrer tous les 1 a partir de la ligne 6 N6:Y500.
Par avance , merci

 

[job75]

Bonjour farid,

Le code de la feuille :

Private Sub CommandButton1_Click()
With [N5:V25]
    [A2] = "=COUNTIF(" & .Rows(2).Address(0, 0) & ",1)"
    .AdvancedFilter xlFilterInPlace, [A1:A2] 'filtre avancé
End With
[A2] = ""
End Sub

Sub RAZ()
If Me.FilterMode Then Me.ShowAllData 'si la feuille est filtrée
End Sub

A+

 

[farid]

Bonjour Job
merci pour ton implication, cela fonctionne très bien .J'ai été trop sur ma demande , Ce que je souhaite , c'est de passer par un userform et a partir de celui j'inserts les bouton pour filtrer et si possible sur une feuille bien déterminée.
Je te met le fichier en PJ
Par avance, merci

 

[job75]

Que voulez-vous de plus ?

Que les boutons soient dans une feuille de calcul ou dans un UserForm c'est la même chose.

 

[farid]

Autant pour moi , il faut que je surveille ce qu'on me met dans le café .
merci beaucoup
Bonne journée

 

[farid]

Que voulez-vous de plus ?

Que les boutons soient dans une feuille de calcul ou dans un UserForm c'est la même chose.

Rebonjour Job, désolé , mais le défiltrage via un bouton dans un userform bug , quelque chose m'échappe , lors le bouton sur la feuille fonctionne tres bien. Si vous pouvez me dire sur quoi je ne comprends pas.Par avance , merci

 

[job75]

désolé , mais le défiltrage via un bouton dans un userform bug , quelque chose m'échappe ,

Bah il faut bien sûr préciser la feuille; au lieu de :

If .FilterMode = True Then .ShowAllData

écrire :

If Feuil1.FilterMode = True Then Feuil1.ShowAllData

Feuil1 étant le CodeName de la feuille.

 

[farid]

Bah il faut bien sûr préciser la feuille; au lieu de :

If .FilterMode = True Then .ShowAllData

écrire :

If Feuil1.FilterMode = True Then Feuil1.ShowAllData

Feuil1 étant le CodeName de la feuille.

merci infiniment en vous souhaitant une agréable journée