Doublant avec valeur supérieure

Bonjour,

J'aimerai avoir votre aide sur le fichier, ce que je voudrais avoir c'est supprimer les doublants à partir des matricules "Colonne A" et garder que la ligne avec le plus haut niveau d'étude (Colonne D)

merci bcp.

Cordialement,

Zak

6classeur3.zip (386.16 Ko)

Salut Zack,

ainsi, sans doute...
Un double-click sur la feuille démarre la macro.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Application.ScreenUpdating = False
'
Cancel = True
UsedRange.Sort key1:=[A2], order1:=xlAscending, key2:=[D2], order2:=xlDescending, Orientation:=xlTopToBottom, Header:=xlYes
UsedRange.RemoveDuplicates Columns:=1
'
Application.ScreenUpdating = True
'
End Sub

- tri Key1 sur [A:A] Ascending + tri Key2 sur [D:D] Descending ;
- ce qui veut dire que les niveaux d'étude sont classés ainsi (en supposant qu'ils soient tous répertoriés pour un seul matricule) :
* Licence
* Bac+5
* Bac+4
* Autres

Seul "Licence" sera conservé sauf si tu viens me dire que "Autres" est plus important auquel cas il faut revoir la macro...


A+

8zack.zip (391.34 Ko)
Rechercher des sujets similaires à "doublant valeur superieure"