Bonjour à tous,
J'ai des points d'examens qui permettent d'obtenir grâce à des formules un % et une mention (ajourné, satisfaction,...).
J'ai par exemple
J'aurais voulu classer d'abord par mention (ajourné, satisfaction, distinction...) et ensuite pas pourcentage.Dist 72,70
Aj 53,60
Dist 77,5
....
Il faut que tous les ajournés se trouvent en bas du classement (il ne peut pas y avoir un ajourné qui soit au-dessus d'une distinction par exemple).
Pour cela, j'utilisais ce code :
La macro "calcul" reprend le code ci-dessus.
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 Sub calcul() Dim Lign As Long Dim Fom As Worksheet Set Fom = Sheets("ordre de mérites") 'on détermine la feuille de travail 'Range("alphabétique").Copy Range("délibé") 'on copie les données 'Range("délibec").Sort Key1:=Range("AD11"), Order1:=xlAscending 'premier tri, pour mettre les Aj en fin de liste With Fom 'sur la feuille de travail Lign = Application.Match("Aj", .Columns(24), 0) 'on cherche la première ligne "Aj" .Range("A12:BD" & Lign - 1).Sort Key1:=.Range("L12"), Order1:=xlDescending, Key2:=.Range( _ "I12"), Order2:=xlDescending, Header:=xlNo 'on trie les non-ajournés .Range("A" & Lign & ":BD" & .[A65000].End(xlUp).Row).Sort Key1:=.Range("L" & Lign), Order1:=xlDescending, _ Key2:=.Range("I" & Lign), Order2:=xlDescending, Header:=xlNo 'on trie les ajournés End With End Sub
J'ai une erreur ici :
Je mets en attaché un fichier, cela sera plus simple.incompatibilité de type
J'aimerais donc classer la colonne AD (en mettant les aj en dessous) et ensuite par AL (%)
Je vous remercie d'avance pour votre aide.
beegees
Partager