Boutton de commande

Fermé
ZeusProd Messages postés 72 Date d'inscription mercredi 28 mai 2014 Statut Membre Dernière intervention 10 juillet 2017 - 4 juin 2014 à 20:17
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 10 juin 2014 à 22:36
Bonjour,

est ce que je peux creer un boutton de commande dans excel

A voir également:

6 réponses

Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 076
4 juin 2014 à 20:21
Bonjour,

Oui bien sur, le principal est le code que tu devras mettre dans les propriétés de ce bouton et pourquoi faire
0
ZeusProd Messages postés 72 Date d'inscription mercredi 28 mai 2014 Statut Membre Dernière intervention 10 juillet 2017 6
4 juin 2014 à 20:45
je voudrai creer un boutton me permet de trier le nombre d' admis par exemple
0
antipolis a Messages postés 15609 Date d'inscription mercredi 5 novembre 2008 Statut Membre Dernière intervention 12 novembre 2014 2 859
4 juin 2014 à 20:22
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.
0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 076
4 juin 2014 à 20:48
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
0
ZeusProd Messages postés 72 Date d'inscription mercredi 28 mai 2014 Statut Membre Dernière intervention 10 juillet 2017 6
4 juin 2014 à 21:08
c vrai vous avez raison.
C est a dire que je voudrai avoir dans une feuille un bouton de commande qui me permettra de trier les admis ou les échec dans la liste des candidats qui ont subit l examen ou le test.
0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 076
4 juin 2014 à 21:22
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/
0
ZeusProd Messages postés 72 Date d'inscription mercredi 28 mai 2014 Statut Membre Dernière intervention 10 juillet 2017 6
5 juin 2014 à 23:20
merci vous avez raison.
le voila donc
https://www.cjoint.com/?3FfxoZeSuLL
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 076
6 juin 2014 à 00:10
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
0
ZeusProd Messages postés 72 Date d'inscription mercredi 28 mai 2014 Statut Membre Dernière intervention 10 juillet 2017 6
10 juin 2014 à 21:20
Tres chik MIKE. Mais je ne sais pas comment vous avez fait. Explik SVP
0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 076
10 juin 2014 à 22:36
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
0