Boutton de commande

Bonjour,

Oui bien sur, le principal est le code que tu devras mettre dans les propriétés de ce bouton et pourquoi faire

Bonjour.

Faire des recherches, ce n'est pas bien compliqué.

Vous entrez "bouton commande excel" sur votre moteur de recherche préféré,
et c'est certain, j'ai vérifié, vous aurez un tas de propositions.

Bonne soirée.

Re,

si tu n'es pas plus bavard dans tes explications il sera très difficile de t'aider, nous ne sommes pas des devins

Re,

Il faut savoir qu'un code VBA doit être très précis, la moindre erreur dans le code peut mettre Excel en erreur

don cil faut connaitre l'étendue de la matrice, la colonne du filtre etc ...

le mieux serait que tu construises un bout de fichier ressemblant au fichier réel et que tu le joignes à la discussion avec ce lien

https://www.cjoint.com/

Re,

regarde ton fichier en retour sans bouton simplement une liste de validation en P3 pour sélectionner la valeur à filtrer, en O3 le nombre de lignes filtrées visibles

J'ai supprimé certaine cellules fusionnées, qu'il faut éviter au maximum, elles sont difficile à gérer dans les codes.

https://www.cjoint.com/?DFgakpvKx6q

Re,

J'ai commencé par supprimer les cellules fusionnées de la matrice A5:P24

ensuite j'ai créé en P3 une liste de validation directe avec les trois critères "Admis;Echec;Afficher"
En O3 cette formule pour compter le critère affiché en P3 et formaté avec un format personnalisé Standard;Standard;;@ qui évitera l'affichage du zéro

Dans le visual basic j'ai écrit ce code

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [P3]) Is Nothing Then
If Target = "Admis" Then Range("$A$5:$P$24").AutoFilter Field:=16, Criteria1:=Target
If Target = "Echec" Then Range("$A$5:$P$24").AutoFilter Field:=16, Criteria1:=Target
If Target = "Afficher" Then Range("$A$5:$P$26").AutoFilter
End If
End Sub

pour voir ce code, clic sur les touches Alt et F11 et refaire Alt et F11 pour revenir sur Excel