Trie des Colonnes

Bonjour

J'ai problème avec le trie des colonnes et j'avoue, ne pas savoir comment faire ?

J'ai 12 colonnes et je voudrais trier deux plages en même temps par apport à la colonne "I" qui est la colonne des résultats

Pour illustrer ma demande, je joins un fichier

Je vous remercie de votre aide

Cordialement

Max

Bonjour,

J'aurai mis

Sub TriClassement()
    Range("c5:i104").Sort _
        Key1:=Range("i5"), Order1:=xlDescending, _
        Key2:=Range("c5"), Order2:=xlAscending, _
    Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Amicalement

Claude

Bonjour,

Je vous propose une solution. Faites des essais et dites moi si cela vous convient.

Il faut cliquer le bouton Classement que j'ai ajouter et qui exécute la procédure Classement.

Si ça va je vous donne les modifications que j'ai faites.

Bonjour Robjam,

Oui sa marche nickel sauf que je n'est pas la colonne "K" des classement et la colonnes" L" des N° des joueurs

Merci

@+

Max

Re,

Vous écrivez

Oui sa marche nickel sauf que je n'est pas la colonne "K" des classement et la colonnes" L" des N° des joueurs

Je ne comprends pas !!! ça fonctionne ou ça ne fonctionne pas ?

Chez moi la colonne K et la L sont afficées triées.

re,

Non sa ne fonctionne pas avec toutes les colonnes ?

Re,

Je renvoie le fichier après appui sur Classement. Dites moi ce qui n'est pas correct.

Re,

Je vous est remis un fichier avec les détails

Merci du temps passé

Cordialement

Max

Re,

J'ai compris ce qui se passait. dans la colonne L j'ai mis une formule pour écrire le N° et vous aviez mis une procédure sur l'évènement change de la feuille Inscriptions. Procédure qui effacait mes formules.

Pour les classement c'était une question de couleur de police que vous aviez également programmée dans une procédure.

Maintenant je crois que ça fonctionne.

Re,

Le classement se fait nickel.

Juste une petite chose si je n'abuse pas dans le premier il y avait dans la colonne "I" la couleur des resultat négatif en violet serait il possible de mettre les couleurs dans votre code?

Private Sub CommandButton4_Click()
Range("A5:L104").Select
    ActiveWindow.ScrollRow = 1
    Selection.Sort Key1:=Range("J5"), Order1:=xlDescending, Key2:=Range("I5") _
        , Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom
    Range("K5:K104").Select
    Selection.Font.ColorIndex = 3
    Range("B4").Select
    Dim Plage As Range, i&, Cell As Range, Rng As Range

  On Error Resume Next
  Set Plage = Range("I5:I104")
  If IsEmpty(Plage) Then Exit Sub

  Application.ScreenUpdating = False

  For Each Cell In Plage
    For i = 1 To Plage.Count
      Set Rng = Cell.Offset(i)
      If Rng <> "" And Rng = Cell Then
        Cell.Interior.ColorIndex = 39
        Rng.Interior.ColorIndex = 39
        Exit For
      End If
    Next i
  Next Cell
  'MsgBox "Vous avez des joueurs avec le même nombre de points", vbInformation, "  Attention !"
End Sub

Merci beaucoup

Max

Re,

Petit problème avec les valeurs négatives auxquelles je n'avais pas pensé.

J'ai modifié la procédure de classement en ce sens qu'elle sélectionne dynamiquement la plage à classer pour ne pas tenir comptes des 0 dans la colonne I sinon une valeur négative allait se classer dans le fond de la zone. Logique -5 est < que 0.

Joint le fichier corrigé.

Re,

Excuse moi de ne pas avoir répondu avant Boulot oblige.

Bon j'ai regardé le fichier mais dans lacolonne "I" Classement les valeurs négatif peut on mettre le fond de la cellule en violet?

Et merci pour tous

Max

Re,

Va dans la MFC et modifie la règle prend Remplissage au lieu de Police pour le Format et choisi la couleur. Sur Violet pour le fond met la police en Blanc ou jaune. A tester.

Re,

Ok merci pour tous " Génial "

Bonne journée

@+

Max