Trie aleatoire

Bonjour,

J'ai une liste de nom avec leurs N° d’Équipe j'aimerai faire trie aléatoire pour réorganiser des équipes

Si joint un fichier exemple.

Merci d'avance

Cordialement

Max

Bonjour

A tester

Bonjour

Décidément tu est toujours la au bon moment heureusement..!

Heu......! Nom il faut que les N° d'équipes suit avec les noms, si le N° 12 appartiens a jean-Paul il faut après le trie qu'il est toujours le N° 12 et dans la colonne "H" il doit rien avoir.

C'est vrai que j'aurai peut le dire avant excuse moi...

Je te remercie

@+

Max

Bonsoir

Max18 a écrit :

il faut que les N° d'équipes suit avec les noms

Alors il ne faut pas mettre une formule dans la colonne F

Max18 a écrit :

dans la colonne "H" il doit rien avoir.

Cela ce n'est pas grave : La macro peut insérer une colonne avant de la supprimer

Règles le problème de la colonne F et je modifierais la macro

Re,

Oui exact tu as raison j'ai supprimer les formules dans la colonne "F"

@+

Max

Bonsoir

Remplaces ta macro

Option Explicit

Sub Tri()
Dim NbLig As Long

  Application.ScreenUpdating = False
  NbLig = Range("G" & Rows.Count).End(xlUp).Row
  Columns("H").Insert
  With Range("H2:H" & NbLig)
    .Formula = "=RAND()"
    .Value = .Value
  End With
  Range("F2:H" & NbLig).Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortTextAsNumbers
  Columns("H").Delete

End Sub

Re,

Nickel je te remercie beaucoup et te souhaite un bon WE

@+

Max