Discussion :

[beegees]

Bonjour tout le monde,

J'ai cette macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub calcul()
'
' calcul Macro
' Macro enregistrée le 30/06/99 par Catherine Debeer
'
 
'
'sélectionne la plage de cellule "alpha"
Application.Goto Reference:="alpha"
'copie cette plage de cellule dans le clipboard
Selection.Copy
'sélectionne la cellule A10
Range("A10").Select
'sélectionne la feuille "ordre de mérites"
Sheets("ordre de mérites").Select
'séléctionne la range A1 de "ordre de mérites"
Range("A1").Select
'colle ce qui a dans le clipboard
ActiveSheet.Paste
'on sélectionne la plage nommée "delibec"
Application.Goto Reference:="delibec"
Application.CutCopyMode = False
'on classe par ordre décroissant et par rapport au pourcentage
Selection.Sort Key1:=Range("AK11"), Order1:=xlDescending, Key2:=Range( _
"AJ11"), Order2:=xlDescending, Header:=xlNo, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
ActiveWindow.SmallScroll Down:=-3
'on sélectionne la cellule B9
Range("B9").Select
End Sub

Qui au final classe dans la colonne AK les résultats d'abord par null et ensuite par ordre numérique.

J'aurais voulu que les cotes soient classées par ordre numérique en mettant les blancs en bas.

Pour tester, je vous laisse un fichier xlsx :

1) allez dans la feuille "entrée des données"
2) Cliquez sur le bouton "Calcul"
3) vous verrez le résultat dans la feuille ordre de mérite dans la colonne AK

Un super grand merci d'avance.

beegees

[Godzestla]

Bonjour,
à ta place je travaillerais sur la définition de la plage "ALPHA" qui comprend actuellement des cellules à null.

As-tu essayé de la définir en te limitant aux cellules remplies (via end(xlup).row par exemple).

cela pourrait résoudre ton problème.

Autre remarque : enlève tous ces SELECT qui sont un poison pour le code.