classement incorect

[Dennnisss]

bonjour a tous

J'ai creer un bouton pour trier en ordre decroissant les colonnes des chiffres
il trie bien ces colonnes mes les colonnes qui n'on pas de noms ou pas de chiffres , ils les mes au dessus du classement au lieu de les mettres en dessous de la liste , je cherche un truc
J,ai mit des zero et il mele les zero avec ceux qui n'ont pas de performances

alors merci de votre aide je cherche a resoudre ce petits problemes

bye bye dennnisss 😉 😉

 

[Compte Supprimé 979]

Re : classement incorect

Salut Denisss,

C'est normal, les valeurs vides sont toujours triées en dernier en mode croissant

Ce qu'il faut c'est :
1) trier les valeurs dans l'ordre croissant, pour que les valeurs vides se retrouvent à la fin
2) trier uniquement les lignes contenant des valeurs dans l'ordre inverse

Voilà 😉

 

[Dennnisss]

Re : classement incorect

salut bruno

Oui je comprend bien ton raisonnement , je vais faire un triage croissant :
mais dans ma macro il trie une liste general a cause que durant la saison il va se rajouter de nouveau mon et nouveau chiffres a chaque semaine , alors comment je peut faire ce triage , a partier d'un macro et non le faire manuellement

merci a toi attend une reponse patiemment

a+ dennnisss 😉😉

 

[Compte Supprimé 979]

Re : classement incorect

Re,

Je te parle bien de VBA, et non pas de truc basique à faire à la mimine 😀

Pour ton premier tableau, voici le code

With Sheets("Quilles depasse moyenne")
  .Activate
  [COLOR=Blue].Range("B7:C126").Sort Key1:=.Range("C7"), Order1:=xlAscending, Key2:=.Range("B7") _
        , Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
        xlSortNormal
  For Lig = 7 To 126
    If .Range("C" & Lig).Value = "" Then
      DerLig = Lig - 1
      Exit For
    End If
  Next Lig
  .Range("B7:C" & DerLig).Sort Key1:=.Range("C7"), Order1:=xlDescending, Key2:=.Range("B7") _
        , Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
        xlSortNormal[/COLOR]
'
' Même chose pour les autres tableaux
' Lignes bleues à adapter

End With

Voilà, sur ce je vais boire l'apéro, au resto puis danser 😀

A+

 

[Dennnisss]

Re : classement incorect

salut Bruno

Merci de ton aide je vais changer mes donnees des autres tableau

alors bonne soiree a toi et bonne apero

bye bye dennnisss 😉😉