Re : Mondial2010
Bonjour Ridame et à tous
Plus que 24 jours avant le Mondial.
#Ridame: effectivement tu as raison, le défaut est passé inaperçu du fait
du nombre de validation, en fait 2 validations successifs sur un même groupe remet tout en ordre.
La raison le tri est effectué après la sauvegarde.
*- Pour corriger le défaut:
dans "Userform2" bouton "Valider"
Permuter Sauvegarde et Tri
Avant:
'------------- Sauvegarde du classement provisoire ---------------
For i = 1 To 4
LesPays(i) = Sheets(Y).Range("C" & 22 + i).Value
Next
For J = 1 To 4
Sheets(Y).Cells(X + 10, 1 + J).Value = LesPays(J)
Next
Sheets(Y).Activate
'====== Classement du Groupe , opération de tri =======
Application.CutCopyMode = False
Range("C22:G26").Select
Selection.Sort key1:=Range("D23"), order1:=xlDescending, Key2:=Range( _
"E23"), Order2:=xlDescending, Key3:=Range("F23"), Order3:=xlAscending, _
header:=xlGuess, OrderCustom:=1, MatchCase:=True, Orientation:= _
xlTopToBottom
Range("c2").Select
'===============================
Après:
Sheets(Y).Activate
'====== Classement du Groupe , opération de tri ========
Application.CutCopyMode = False
Range("C22:G26").Select
Selection.Sort key1:=Range("D23"), order1:=xlDescending, Key2:=Range( _
"E23"), Order2:=xlDescending, Key3:=Range("F23"), Order3:=xlAscending, _
header:=xlGuess, OrderCustom:=1, MatchCase:=True, Orientation:= _
xlTopToBottom
Range("c2").Select
'------------- Sauvegarde du classement provisoire ---------------
For i = 1 To 4
LesPays(i) = Sheets(Y).Range("C" & 22 + i).Value
Next
For J = 1 To 4
Sheets(Y).Cells(X + 10, 1 + J).Value = LesPays(J)
Next
'===========================================
Mea culpea, errare humanum est.
avec ceci tout doit rentrer dans l'ordre.
Amicalement
Jean-Paul