Suppression de doublons avec plusieurs critères

  • Initiateur de la discussion Initiateur de la discussion stevefigueras
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S

stevefigueras

Guest
Bonjour à tous et merci de l'aide que vous pourrez m'apporter.

Voilà j'ai un tableur excel (jusque là ca va 🙂 )
Ce tableau contient des doublons que je souhaite supprimer.
Le critère pour qu'une ligne soit considérée comme doublon est que les mêmes valeurs se retrouvent sur les col A D E F G

Mais là où cela se complique c'est que parmi ses doublons je souhaite garder le plus récent d'entre eux dont la date est exprimée en JJ-MM-AAAA HH-MM-SS

Voilà si quelques bonne âmes veulent bien se pencher sur mon souci cela serait très sympa.
 

Pièces jointes

Dernière modification par un modérateur:
Re : Suppression de doublons avec plusieurs critères

Merci R@chid ca me dépanne bien 🙂 J'ai juste à laisser un filtre actif sur le mode TRUE ce qui est déjà pas mal du tout je t'en remercie.
Par contre encore 2 choses :
Possibilité d'étendre ta fonction sur les heures de la journée ?
Possiblité de supprimer si 2 lignes sont strictement identiques ?

Merci encore de ton aide c'est très sympa 🙂
 
Re : Suppression de doublons avec plusieurs critères

Bonsoir,

Comme Excel 2010 propose de supprimer les doublons.

Essaie ce code :

Code:
Sub Macro1()
Dim DerLig As Long
With Worksheets("Sheet1")
    DerLig = .Cells(Rows.Count, 1).End(xlUp).Row
    .Range("A1:K" & DerLig).Sort Key1:=.Range("A2"), Order1:=xlAscending, Key2:=.Range("K2") _
        , Order2:=xlDescending, Header:=xlYes
    .Range("$A$2:$K$" & DerLig).RemoveDuplicates Columns:=Array(1, 4, 5, 6, 7), Header:=xlNo
End With
End Sub

Bonne soirée
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

D
Réponses
4
Affichages
830
Drayke
D
M
Réponses
2
Affichages
1 K
H
Réponses
6
Affichages
1 K
Horusbk
H
Retour