OVH Cloud OVH Cloud

trier pour un classement

2 réponses
Avatar
Andrée et Romuald
Bonsoir tout le monde,

j'essaie d'etablir un classement de 16 equipes en fonction de 3
criteres,(points, match gagne et difference de but)
la commande ci dessous fonctionne parfaitement mais est limitée a 3 criteres


Private Sub CommandButton1_Click()
'Trier par points
Range("c9: aa25 ").Select
Selection.Sort key1:=Range("k10"), order1:=xlDescending, key2:=Range("e10")
_
, order2:=xlDescending, key3:=Range("j10"), order3:=xlDescending, _
header:=xlGuess, ordercustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom
Range("a1").Select
End Sub

je voudrais bien en appliquer un quatrieme criteres(but inscrit)(j'insere ce
code : key4:=range("h10")order4:=xlDescending _)
quand je l'execute j'ai un message me disans :
erreur d'execution '1004'
erreur definie par l'application ou par l'objet'

Pourriez vous m'expliquer pourquoi et comment resoudre cette "astuce"??

Merci d'avance
Andrée et Romuald

2 réponses

Avatar
Daniel
Bonjour.
Tu n'as droit qu'à 3 critères.
Pour résoudre le problème, fais un premier tri sur le quatrième critère,
puis un second tri sur les 3 premiers.
Cordialement.
Daniel
"Andrée et Romuald" a écrit dans le message de news:

Bonsoir tout le monde,

j'essaie d'etablir un classement de 16 equipes en fonction de 3
criteres,(points, match gagne et difference de but)
la commande ci dessous fonctionne parfaitement mais est limitée a 3
criteres


Private Sub CommandButton1_Click()
'Trier par points
Range("c9: aa25 ").Select
Selection.Sort key1:=Range("k10"), order1:=xlDescending,
key2:=Range("e10") _
, order2:=xlDescending, key3:=Range("j10"), order3:=xlDescending, _
header:=xlGuess, ordercustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
Range("a1").Select
End Sub

je voudrais bien en appliquer un quatrieme criteres(but inscrit)(j'insere
ce code : key4:=range("h10")order4:=xlDescending _)
quand je l'execute j'ai un message me disans :
erreur d'execution '1004'
erreur definie par l'application ou par l'objet'

Pourriez vous m'expliquer pourquoi et comment resoudre cette "astuce"??

Merci d'avance
Andrée et Romuald



Avatar
Andrée et Romuald
bonsoir,
ok, je comprends bien l'astuce
et je vais appliquer ton conseil
merci pour l'aide

"Daniel" a écrit dans le message de news:

Bonjour.
Tu n'as droit qu'à 3 critères.
Pour résoudre le problème, fais un premier tri sur le quatrième critère,
puis un second tri sur les 3 premiers.
Cordialement.
Daniel
"Andrée et Romuald" a écrit dans le message de news:

Bonsoir tout le monde,

j'essaie d'etablir un classement de 16 equipes en fonction de 3
criteres,(points, match gagne et difference de but)
la commande ci dessous fonctionne parfaitement mais est limitée a 3
criteres


Private Sub CommandButton1_Click()
'Trier par points
Range("c9: aa25 ").Select
Selection.Sort key1:=Range("k10"), order1:=xlDescending,
key2:=Range("e10") _
, order2:=xlDescending, key3:=Range("j10"), order3:=xlDescending,
_
header:=xlGuess, ordercustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
Range("a1").Select
End Sub

je voudrais bien en appliquer un quatrieme criteres(but inscrit)(j'insere
ce code : key4:=range("h10")order4:=xlDescending _)
quand je l'execute j'ai un message me disans :
erreur d'execution '1004'
erreur definie par l'application ou par l'objet'

Pourriez vous m'expliquer pourquoi et comment resoudre cette "astuce"??

Merci d'avance
Andrée et Romuald