Bonjour tout le monde,
J'utilise une macro que voici :
Je sélectionne donc une plage de cellules, je la copie et la colle dans un autre
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 Sub calcul() ' ' calcul Macro ' Macro enregistrée le 4/06/2006 ' ' Application.Goto Reference:="alphabétique" Selection.Copy Application.Goto Reference:="délibé" ActiveSheet.Paste Sheets("entree des données").Select Range("B11").Select Sheets("ordre de mérites").Select Application.Goto Reference:="délibec" Application.CutCopyMode = False Selection.Sort Key1:=Range("L12"), Order1:=xlDescending, Key2:=Range( _ "I12"), Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase _ :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _ DataOption2:=xlSortNormal ActiveWindow.SmallScroll Down:=-3 Range("B9").Select End Sub
onglet excel.
Je trie ensuite la plage collée par odre décroissant (du plus grand au plus petit)
Mon problème est ici :
Le programme est censé classer les Grande distinction, Distinction, Satisfaction et en toute fin de liste les ajournés
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Selection.Sort Key1:=Range("L12"), Order1:=xlDescending, Key2:=Range( _ "I12"), Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase _ :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _ DataOption2:=xlSortNormal
Le problème, c'est que des ajournés se retrouvent avant des satisfactions.
J'ai bien sûr compris le problème :
Les lignes sont classées par rapport aux rangées L et ensuite I, il y a des ajournés qui ont des totaux plus importants pour le cours 6 que des étudiants satisfaits.
Je me demandais si il y avait moyen de ne pas inclure dans le tri les lignes dont la colonne O (voir onglet "ordre de mérites") est égal à "Aj" ?
J'aimerais par contre que ces lignes qui contiennet "Aj" soient classées en dessous de toutes les autres.
Je joins le fichier afin que cela soit plus claire.
Merci d'avance pour l'aide.
beegees
Partager