un bouton pour trier

jpb388

XLDnaute Accro

• 14 Août 2011

• #2

Re : un bouton pour trier

bonjour à tous
voir si cela te vas
a+

 

Pièces jointes

• CLASSEMENT Féminin 2011.xls

  81 KB · Affichages: 466
• CLASSEMENT Féminin 2011.xls

  81 KB · Affichages: 466
• CLASSEMENT Féminin 2011.xls

  81 KB · Affichages: 427

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 14 Août 2011

• #3

Re : un bouton pour trier

Bonjour roro36, le Forum,
Met ceci dans un module :

Sub Trier()
Cells.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
End Sub

Cliquez pour agrandir...

et créer ton bouton

 

Vote positif 0 Vote négatif

F

flyonets44

XLDnaute Occasionnel

• 14 Août 2011

• #4

Re : un bouton pour trier

Bonjour
Voilà le travail
Bon dimanche
Flyonets

 

Pièces jointes

• CLASSEMENT Féminin 2011.xls

  58.5 KB · Affichages: 116
• CLASSEMENT Féminin 2011.xls

  58.5 KB · Affichages: 131
• CLASSEMENT Féminin 2011.xls

  58.5 KB · Affichages: 137

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Août 2011

• #5

Re : un bouton pour trier

Bonjour à tous,

roro36 à dit:

(...) en cliquant sur une seule cellule ferait le tri automatiquement.

Cliquez pour agrandir...

Alors avec un double-clic sur une cellule en 1ère ligne :

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 1 Or Target = "" Then Exit Sub
Dim ordre As Byte
Cancel = True
ordre = MsgBox("Oui => Tri croissant - Non => Tri décroissant", 3, "Tri")
If ordre = 2 Then Exit Sub
[A:X].Sort Target, IIf(ordre = 6, xlAscending, xlDescending), Header:=xlYes
End Sub

La macro est dans le code de la feuille : clic droit sur l'onglet et Visualiser le code.

Fichier joint.

A+

 

Pièces jointes

• CLASSEMENT Féminin 2011(1).xls

  68.5 KB · Affichages: 116

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Août 2011

• #6

Re : un bouton pour trier

Re,

Avec un petit UserForm c'est sans doute un peu mieux...

A+

 

Pièces jointes

• CLASSEMENT Féminin 2011(2).xls

  74.5 KB · Affichages: 126

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 14 Août 2011

• #7

Re : un bouton pour trier

Bonjour

Je ne suis pas sûre de piger : si je clique sur une cellule de la colonne X et que je clique sur le bouton ZA (ou AZ selon l'ordre souhaité), cela se classe tout seul.

A quoi sert la macro si on n'ajoute pas un tri plus sophistiqué ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Août 2011

• #8

Re : un bouton pour trier

Bonjour chris 🙂

Tu as parfaitement raison.

Les macros, comme bien d'autres choses, il faut les consommer avec modération 🙂

A+

 

Vote positif 0 Vote négatif

roro36

XLDnaute Occasionnel

• 19 Août 2011

• #9

Re : un bouton pour trier

Pour le moment je ne comprend pas, et quand je fais des essais avec vos liens je ne trouve pas le résultat espéré.

Il faut mettre un nombre de points dans la colonne suivante d'un speudo.
le calcul est fait. Donc le bouton que j'aimerai avoir est comme dans le fichier joint (si le deuxième marque 20 points qu'il se situe à la première place si il à le nombre supérieur au premier.
Ainsi de suite pour tout le tableau un quinzième marque des points et pas le quatrième qu'il se trouve au dessus après le tri.

 

Vote positif 0 Vote négatif

roro36

XLDnaute Occasionnel

• 21 Août 2011

• #10

Re : un bouton pour trier

Bonjour Jpb .
Quand je clique sur un boton, j'ai une page qui s'ouvre et marque: Erreur de compilation variable non définie.

Je dois annuler pour revenir a ma page classement.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Août 2011

• #11

Re : un bouton pour trier

Bonjour roro36, le forum,

C'est dimanche, ma boule de cristal ne travaille pas.

Bon dimanche.

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 21 Août 2011

• #12

Re : un bouton pour trier

Bonjour
Coucou à Job75

roro36 à dit:

Bonjour Jpb .
Quand je clique sur un boton, j'ai une page qui s'ouvre et marque: Erreur de compilation variable non définie.

Je dois annuler pour revenir a ma page classement.

Cliquez pour agrandir...

As-tu lu mon message du 14/08 qui indique qu'il existe déjà un bouton pour classer dans Excel et donc que tu t'embêtes pour rien avec une macro si tu n'as qu'un seul critère de tri ?

 

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 21 Août 2011

• #13

Re : un bouton pour trier

Bonjour a tous
il faut remplacer feuil1 avec ton nom de feuille
ex:
sheets("feuil1")=sheets("classement")
a+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Août 2011

• #14

Re : un bouton pour trier

Re,

roro36 à dit:

Erreur de compilation variable non définie.

Cliquez pour agrandir...

Ca dit bien ce que ça veut dire : une ou plusieurs variables ne sont pas déclarées.

S'il y a Option Explicit en haut du code, toutes les variables doivent être déclarées.

Notez que les macros de jpb388 n'utilisent pas de variables, vous avez dû ajouter des choses...

A+

 

Vote positif 0 Vote négatif

roro36

XLDnaute Occasionnel

• 23 Août 2011

• #15

Re : un bouton pour trier

Oui Chris j'ai bien lu.
Jpb ça parait facile certainement pour toi mais moi c'est compliqué, donc changer feuille 1 par ce que tu dis pour moi c'est charabia. suis désolé, je pensais que l'on pouvais programmer la sélection de plusieurs cellules, et faire le tri sur une colonne sans difficulté avec un bouton.

 

Vote positif 0 Vote négatif