XL 2016 choisir la date la plus recente

[polyteis]

Bonjour
je vous soumets ce petit problème
Voici ce que je souhaiterais : pour une même opération (colonne A), je souhaiterai retenir uniquement la phase (colonne B) correspondant à la date la plus récente (colonne C).
Mon objectif est d’avoir pour une opération donnée une seule ligne avec la phase possédant la date la plus récente

merci par avance
polyteis

 

[chris]

Bonjour

2 solutions ci-joint selon que tu as besoin de restituer ou non la phase correspondant à la date

 

[djidji59430]

Bonjour à tous,

A l'ancienne !

 

[mapomme]

Bonjour à tous ,

A la macro !

Sub Recent()
   Application.ScreenUpdating = False
   Range("a1").CurrentRegion.Sort Key1:=Range("c1"), Order1:=xlDescending, Key2:=Range("a1"), Order2:=xlAscending
   Range("a1").CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlYes
   Range("a1").CurrentRegion.Sort Key1:=Range("a1"), Order1:=xlAscending
End Sub

 

[polyteis]

bonjour,

je vous remercie pour vos réponses.
je ne sais pas laquelle je vais encore choisir.
En retour, celle émanant de Chris, me plait bien mais questionne car je vois un TCD (ok) et le résultat dans un tableau powerquery, comment se fabrique le tableau powerquery

encore merci à tous

 

[chris]

RE à tous

J'ai continué le panel avec les fonctions propres à 2016 et celles propres à 365

Et aussi complété pour traiter les doublons...

Il y a peut-être plus simple que DECALER pour les doublons

 

[chris]

RE...

Pour PowerQuery tu peux afficher la requête et en voir les étapes : Données, Afficher les requêtes et sélectionner Tableau1 et Modifier
Cela ouvre PowerQuery et à droite tu vois les étapes de la requête

Regarde déjà et si pas assez clair je repréciserai la démarche complète ou répondrais aux questions

 

[polyteis]

Bonjour à tous ,

A la macro !

Sub Recent()
   Application.ScreenUpdating = False
   Range("a1").CurrentRegion.Sort Key1:=Range("c1"), Order1:=xlDescending, Key2:=Range("a1"), Order2:=xlAscending
   Range("a1").CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlYes
   Range("a1").CurrentRegion.Sort Key1:=Range("a1"), Order1:=xlAscending
End Sub

Bonjour
Merci pour cette petite macro.
j'aimerai la voir fonctionner sur le fichier, qui est plus complet que la fois précédente.
le but final c'est qu'il me reste un tableau me donnant les opérations avec la date la plus recente, et tous les éléments associés.
j'ai placé un fichier avec les données à traiter et à côté le resultat attendu ( j'ai fait cela de façon manuelle), le vrai tableau comporte au moins 2000 lignes
en espérant que cela soit faisable, encore merci