un bouton pour trier

[roro36]

Bonjour,

Dans le tableau ci-joint je voudrais faire le tri pour classer le résultat dans l'ordre sans avoir à mettre en surbrillance les cellules allant de A2 à W135
Y a t'il une formule qui en cliquant sur une seule cellule ferait le tri automatiquement.
Ou une macro que je ne sais absulument pas faire.
Merci d'avance pour votre réponse.

 

[jpb388]

Re : un bouton pour trier

re
ben met ton fichier en ligne et on travaillera dessus
je parles du vrai sans les infos personnelles bien sur
et des commentaires precis pour savoir ce que tu veux
a+

 

[roro36]

Re : un bouton pour trier

Bonjour JPB388

Tout d'abord merci de ne pas m'abandonner et d'essayer de trouver la solution à mon problème.
Le Fichier que j'ai mis est le bon.
Je ne suis peut-être pas assez clair dans ma demande.

J'explique à nouveau ce que je voudrais.
Pour faire un tri sur plusieurs ligne et colonnes, je dois me positionner sur une cellule et en laissant mon doigt appuyé sur le bouton de la souris gauche, je fais glisser sur toutes les cellules jusqu'à la dernière ligne et la colonne finale.
ceci est pour la sélection; Exemple sur mon fichier, je sélectionne la première cellule de la colonne jaune ( sans sélectionner celle de gauche qui détermine le classement et ne doit pas être modifiée.
Une fois que j'ai rentré les nouveau points face à ceux qui en ont marqués. Ceci change le total de leur point. donc je vais une fois tout sélectionne comme décrit dans l'exemple sur le bouton TRI croissant (pour que celui qui à plus de points ce retrouve en tête de liste et les autres en suivant.
Donc ce que j'aimerais c'est avoir sur un bouton la possibilité que la sélection et le tri ce fasse. Tout ça sans avoir à sélectionner chaque fois les colonnes manuellement.
Merci JPB

 

[job75]

Re : un bouton pour trier

Bonjour roro36,

(...) sans sélectionner celle de gauche qui détermine le classement et ne doit pas être modifiée.

C'est nouveau, et ce n'est pas ce que montrait la colonne A de votre fichier...

Il vaut mieux alors entrer en colonne A la formule =LIGNE()-1 voir fichier joint.

Ainsi on peut toujours appliquer la méthode indiquée par Chris.

Chris vous a dit qu'il est inutile de sélectionner le tableau pour trier, mais j'ai bien l'impression que vous n'avez pas compris...

A+

 

[Si...]

Re : un bouton pour trier

Salut

sans bouton, 2 macros.
la première, clic sur TOTAL, pour ne trier qu'avec ce critère

Option Explicit
Dim Etat As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address <> "$X$1" Then Exit Sub
  Etat = Not Etat
  [C:X].Sort Target, 1 - Etat, Header:=xlYes
  Range("A1").Select
End Sub

la seconde, clic sur une cellule de la ligne 1, pour trier avec le critère cellule choisie comme le suggère job75

Option Explicit
Dim Etat(24) As Boolean, n As Byte
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Intersect(Target, Range("C1:X1")) Is Nothing Or Target.Count > 1 Then Exit Sub
  n = Target.Column
  Etat(n) = Not Etat(n)
  [C:X].Sort Target, 1 - Etat(n), Header:=xlYes
  Range("A1").Select
End Sub

Dans les 2 cas, le premier clic tri dans un sens, le second tri dans l'autre sens

 

[roro36]

Re : un bouton pour trier

Merci Job75 et Si, en effet je n'avais rien compris.
En entrant en colonne A la formule =LIGNE()-1
cela fonctionne très bien sans ajouter de macros, je viens de faire un essai et ça fonctionne, les chiffres de la colonne 1 ne changent pas et tout le reste des colonnes suivent selon le tri en Total.
Donc pouvez vous me confirmer qu'il ni à pas besoin de macro.
Encore merci à vous deux et désolé pour le dérangement.

 

[job75]

Re : un bouton pour trier

Bonjour roro36, le fil,

Donc pouvez vous me confirmer qu'il ni à pas besoin de macro.

Chris vous l'a montré, nous confirmons.

A+

 

[roro36]

Re : un bouton pour trier

Encore merci Job75.
Bon courage pour la semaine de travail.

 

[roro36]

Re : un bouton pour trier

Bonjour à tous,

Je m'adresse à vous car je bloque sur un etout petit problème.
J'ai créé une page sur exel 2003.
Cette page quand je protège des cellules et met un mot de passe tout est correct ça fonctionne.
Je déprotège la page, insert une image, je protège de nouveau ma page et si je clisue sur l'image elle n'est pas protéger et je peux l'effacer.
Comment faire pour quand je protège la page que cette image soit aussi protégée?
Merci d'avance pour vos réponses.

 

[roro36]

Re : un bouton pour trier

Bonjour et merci de ton intervention JPB388.
J'ai fais autre chose et j'abandonne ça.
Toutefois si je pouvais avoir la solution pour le fichier joint, ce serais sympa.

Ca c'est dans la même page, et si c'est dans une autre page quelle serait la fonction à écrire toujours en VBA.

Merci par avance pour l'aide.

 

[jpb388]

Re : un bouton pour trier

Bonjour à tous

même page

=INDEX(A2:B11;EQUIV(F1;B2:B11;-1);1)

page différente

=INDEX(Feuil1!A2:B11;EQUIV(F1;Feuil1!B2:B11;-1);1)

 

[roro36]

Re : un bouton pour trier

Merci jpb, je vais essayer de mettre ce code.

 

[roro36]

Re : un bouton pour trier

C'est ok JPB ça fonctionne merci beaucoup.

 

[roro36]

Re : un bouton pour trier

Ok JB ça fonctionne Merci beaucoup.

Toutefois si je rallonge la liste avec 1500 nom par exemple.
Car le fait de mettre un nom avec prénom si possible rechercherait le numéro.

J'ai essayé sur la ligne 11 en mettant B12 mais le résultat n'est pas bon il m'affiche un dièse.

faut-t-il trapper le code à chaque ligne ou y a t'il autre chose à marquer ?

 

[roro36]

Re : un bouton pour trier

Bonjour Jpb, je viens de faire un essai de nouveau et il y à un bug.
Je ne comprend pas, je t'envoie de nouveau le fichier.
Quand je tape certain nom c'est faux.

 

[jpb388]

Re : un bouton pour trier

Bonjour à tous
j'ai rectifié la formule pour prendre en compte les 1800 noms que j"ai créé