C
Caninge
Guest
Bonjour à tous
Il y a quelque temps j'avais demandé sur le forum une macro qui sert à trier des résultats pour un programme de Bowling.
La macro que j' avais demandé à titre d'exemple regroupé environ 4 joueurs.
j'ai reproduis les formules pour une quarantaine de joueurs et ça donne cela:
Sheets("Calcul").Select
Range("C1:AP1,C5:AP504").Select
Selection.Copy
Range("A1").Select
Sheets("recap").Select
Range("A1").Select
ActiveSheet.Paste
'Trier
Range("A1:A504").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("B1:B504").Select
Selection.Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("C1:C504").Select
Selection.Sort Key1:=Range("C1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("D1504").Select
Selection.Sort Key1:=Range("D1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("E1:E504").Select
Selection.Sort Key1:=Range("E1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("F1:F504").Select
Selection.Sort Key1:=Range("F1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("G1:G504").Select
Selection.Sort Key1:=Range("G1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("H1:H504").Select
Selection.Sort Key1:=Range("H1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("I1:I504").Select
Selection.Sort Key1:=Range("I1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("J1:J504").Select
Selection.Sort Key1:=Range("J1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("K1:K504").Select
Selection.Sort Key1:=Range("K1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("L1:L504").Select
Selection.Sort Key1:=Range("L1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("M1:M504").Select
Selection.Sort Key1:=Range("M1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("N1:N504").Select
Selection.Sort Key1:=Range("N1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("O1:O504").Select
Selection.Sort Key1:=Range("O1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("P1504").Select
Selection.Sort Key1:=Range("P1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("Q1:Q504").Select
Selection.Sort Key1:=Range("Q1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("R1:R504").Select
Selection.Sort Key1:=Range("R1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("S1:S504").Select
Selection.Sort Key1:=Range("S1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("T1:T504").Select
Selection.Sort Key1:=Range("T1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("U1:U504").Select
Selection.Sort Key1:=Range("U1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("V1:V504").Select
Selection.Sort Key1:=Range("V1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("W1:W504").Select
Selection.Sort Key1:=Range("W1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("X1:X504").Select
Selection.Sort Key1:=Range("X1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("Y1:Y504").Select
Selection.Sort Key1:=Range("Y1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("Z1:Z504").Select
Selection.Sort Key1:=Range("Z1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AA1:AA504").Select
Selection.Sort Key1:=Range("AA1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AB1:AB504").Select
Selection.Sort Key1:=Range("AB1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AC1:AC504").Select
Selection.Sort Key1:=Range("AC1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AD1:AD504").Select
Selection.Sort Key1:=Range("AD1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AE1:AE504").Select
Selection.Sort Key1:=Range("AE1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AF1:AF504").Select
Selection.Sort Key1:=Range("AF1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AG1:AG504").Select
Selection.Sort Key1:=Range("AG1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AH1:AH504").Select
Selection.Sort Key1:=Range("AH1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AI1:AI504").Select
Selection.Sort Key1:=Range("AI1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AJ1:AJ504").Select
Selection.Sort Key1:=Range("AJ1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AK1:AK504").Select
Selection.Sort Key1:=Range("AK1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AL1:AL504").Select
Selection.Sort Key1:=Range("AL1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AM1:AM504").Select
Selection.Sort Key1:=Range("AM1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AN1:AN504").Select
Selection.Sort Key1:=Range("AN1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("a1").Select
Application.CutCopyMode = False
Sheets("Calcul").Select
Range("a1").Select
End Sub
Ne pourrait t'on pas "alléger" cet macro parce que j'ai mis tout ça sur le pc d'un ami. Je ne sais si ça vient de son ordinateur ou de la macro.
Il met environ 1/2 heure pour faire les calcul !!!!!!!!!!!!!!
Il faut avoir du temps devant soi n'est-ce pas !
merci de me dépanner
A bientôt
Caninge
Il y a quelque temps j'avais demandé sur le forum une macro qui sert à trier des résultats pour un programme de Bowling.
La macro que j' avais demandé à titre d'exemple regroupé environ 4 joueurs.
j'ai reproduis les formules pour une quarantaine de joueurs et ça donne cela:
Sheets("Calcul").Select
Range("C1:AP1,C5:AP504").Select
Selection.Copy
Range("A1").Select
Sheets("recap").Select
Range("A1").Select
ActiveSheet.Paste
'Trier
Range("A1:A504").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("B1:B504").Select
Selection.Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("C1:C504").Select
Selection.Sort Key1:=Range("C1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("D1504").Select
Selection.Sort Key1:=Range("D1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("E1:E504").Select
Selection.Sort Key1:=Range("E1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("F1:F504").Select
Selection.Sort Key1:=Range("F1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("G1:G504").Select
Selection.Sort Key1:=Range("G1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("H1:H504").Select
Selection.Sort Key1:=Range("H1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("I1:I504").Select
Selection.Sort Key1:=Range("I1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("J1:J504").Select
Selection.Sort Key1:=Range("J1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("K1:K504").Select
Selection.Sort Key1:=Range("K1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("L1:L504").Select
Selection.Sort Key1:=Range("L1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("M1:M504").Select
Selection.Sort Key1:=Range("M1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("N1:N504").Select
Selection.Sort Key1:=Range("N1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("O1:O504").Select
Selection.Sort Key1:=Range("O1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("P1504").Select
Selection.Sort Key1:=Range("P1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("Q1:Q504").Select
Selection.Sort Key1:=Range("Q1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("R1:R504").Select
Selection.Sort Key1:=Range("R1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("S1:S504").Select
Selection.Sort Key1:=Range("S1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("T1:T504").Select
Selection.Sort Key1:=Range("T1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("U1:U504").Select
Selection.Sort Key1:=Range("U1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("V1:V504").Select
Selection.Sort Key1:=Range("V1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("W1:W504").Select
Selection.Sort Key1:=Range("W1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("X1:X504").Select
Selection.Sort Key1:=Range("X1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("Y1:Y504").Select
Selection.Sort Key1:=Range("Y1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("Z1:Z504").Select
Selection.Sort Key1:=Range("Z1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AA1:AA504").Select
Selection.Sort Key1:=Range("AA1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AB1:AB504").Select
Selection.Sort Key1:=Range("AB1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AC1:AC504").Select
Selection.Sort Key1:=Range("AC1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AD1:AD504").Select
Selection.Sort Key1:=Range("AD1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AE1:AE504").Select
Selection.Sort Key1:=Range("AE1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AF1:AF504").Select
Selection.Sort Key1:=Range("AF1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AG1:AG504").Select
Selection.Sort Key1:=Range("AG1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AH1:AH504").Select
Selection.Sort Key1:=Range("AH1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AI1:AI504").Select
Selection.Sort Key1:=Range("AI1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AJ1:AJ504").Select
Selection.Sort Key1:=Range("AJ1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AK1:AK504").Select
Selection.Sort Key1:=Range("AK1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AL1:AL504").Select
Selection.Sort Key1:=Range("AL1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AM1:AM504").Select
Selection.Sort Key1:=Range("AM1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AN1:AN504").Select
Selection.Sort Key1:=Range("AN1"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("a1").Select
Application.CutCopyMode = False
Sheets("Calcul").Select
Range("a1").Select
End Sub
Ne pourrait t'on pas "alléger" cet macro parce que j'ai mis tout ça sur le pc d'un ami. Je ne sais si ça vient de son ordinateur ou de la macro.
Il met environ 1/2 heure pour faire les calcul !!!!!!!!!!!!!!
Il faut avoir du temps devant soi n'est-ce pas !
merci de me dépanner
A bientôt
Caninge