Trier par equipe de 3

[Camille]

Bonjours

comment trier soit par des formules ou une macro les 3 meilleurs concurrents d'un d'une meme DISC et d'une meme CAT en addionnant les points et les par rang
a gauche du tableau les resultats individuelles
et a droite du tableau les resultats par equipe
que l'on doit obtenir en les classant
je l'ai fait manuelement????? quel temps passé !!il doit surement avoir un moyen d'etre plus rapide mais je ne sais pas le realiser

merci

camille

 

[Camille]

j'ai quand meme un petit souci

je n'ai plus de resutats pour la DISC 104??

j'ai rajouté dans la feuille plan 3 tireurs du meme club dans la DISC 300 et S4 en CAT

j'ai lancer la macro elle ne figure pas dans le resultat

j'ai mis le fichier club_tir.zip a jour

merci

 

[AV]

Re,

Quelques bricoles rajoutées dans la dernière version
C'est pas super rapide mais bon... ça devrait gazer

AV [aaa] [file name=Clubs_Tirs_20060425093031.zip size=27854]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Clubs_Tirs_20060425093031.zip[/file]

 

[Camille]

Bonjours AV

je suis embetant

j'ai essaye mais il y a une erreur
' erreur de compilation: nommé introuvable
le blocage se situe
Tri en fonction classement Disc et CAT
'DataOption1:='

merci

 

[AV]

Re,

''..j'ai essaye mais il y a une erreur
' erreur de compilation: nommé introuvable
le blocage se situe
Tri en fonction classement Disc et CAT
'DataOption1:='...''

C'est que tu dois avoir XL2000 ou inférieur et il faut donc supprimer tous les ''DataOption'' qui sont des arguments de Sort apparus avec XL2002!

Donc...remplacer la partie :

'Tri en fonction classement Disc et CAT
Range('A1').CurrentRegion.Sort Key1:=Range('E2'), Order1:=xlAscending, Key2:=Range( _
'D2'), Order2:=xlAscending, Key3:=Range('H2'), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal

par :

'Tri en fonction classement Disc et CAT
Range('A1').CurrentRegion.Sort Key1:=Range('E2'), Order1:=xlAscending, Key2:=Range( _
'D2'), Order2:=xlAscending, Key3:=Range('H2'), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom


Version compatible XL97 et plus, jointe, au cas où.....
AV [aaa] [file name=Clubs_Tirs_20060425110442.zip size=26466]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Clubs_Tirs_20060425110442.zip[/file]

 

[Camille]

Bonjours AV

encore un grand merci a toi pour le temps que tu as passé ca fonctionne a merveille

tu me dis c'est lent, pour moi c'est ultra rapide

.comparé a ce que c'etait avant

pas simple les macros certaines lignes je comprends mais pas tous

a +

Merci

Camille