Comment trier automatiquement dans Excel ?

Résolu
EspGre67 Messages postés 20 Statut Membre -  
EspGre67 Messages postés 20 Statut Membre -
Bonjour,

je vous voudrais que dès que je rentre un nombre dans une colonne, les totaux se fassent, mais surtout que le classement se fasse tout seul, sans aller dans donner, trier....

Le principe est le même principe que l'eurovision pour différents pays:
1 Point
2 pts
3 pts
4 pts
5 pts
6 pts
7 pts
8 pts
10 pts
12 pts

(en revanche je ne sais pas comment joindre un fichier )

1 réponse

  1.
    via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    Bonjour

    Pour que le tri soit automatique il faut d'abord faire un exemple de tri en enregistrant une macro
    Ensuite tu copies la macro enregistrée et tu la mets dans le worksheet de la feuille concernée au changement d'une valeur dans la feuille (Private Sub Worksheet_Change(ByVal Target As Range) )

    Pour joindre ton fichier, tu peux le poster sur le site cjoint.com, faire créer le lien et revenir ici indiquer le lien fourni

    Cdlmnt
    Via
    0
    1. EspGre67 Messages postés 20 Statut Membre
       
      Merci beaucoup via55
      cordialement
      Esp-Grè-67
      0
    2. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759 > EspGre67 Messages postés 20 Statut Membre
       
      Ce n'est pas le lien fourni par cjoint, je ne peux rien en faire !
      Lorsque tu as téléchargé ton fichier sur cjoint et fait créer un lien le lien s'affiche en haut de page en bleu, tu fais clic droit sur le lien puis copier et tu viens le coller ici
      0
    3. EspGre67 Messages postés 20 Statut Membre
       
      https://www.cjoint.com/c/EFwoulzsCig
      voila je crois que c'est bon, et je voudrais que ça tri automatiquement en ordre croissant et non décroissant.
      merci beaucoup ;)
      cordialement
      0
    5. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759 > EspGre67 Messages postés 20 Statut Membre
       
      Oui
      Pour classer par ordre croissant il suffit dans la macro de changer le xlDescending en xlAscending
      If Not Application.Intersect(Target, MaPlage.Offset(0, 3).Resize(, 46)) Is Nothing Then
      Cells(Target.Row, 3) = Application.Sum(Cells(Target.Row, 4).Resize(, 46))
      MaPlage.Sort Key1:=Cells(1, 3), Order1:=xlDescending, Header:=xlNo

      Par contre dans ta macro cela ne trie que les 40 premières lignes et exclut donc Portugal, mais je pense que c'est voulu ?

      Cdlmnt
      Via
      0