Bonjour,
Parfait, c'est un bon début.
J'ai modifié la formule :
=SI((NB.SI($A$2:$A$20;A2)>1);"DOUBLON";"")
Est-ce que c'est possible regarder le champ "RefContribu" et le champ "Date de mise à jour" (Colonne G) et de conserver la plus récente ?
Dans mon exemple, l'élément qui est en doublon est David Parent (152653) qui se retrouve 3 fois, est-ce qu'on peut conserver l'enregistrement avec la Date de mise à jour 2020-09-25 18:00 (ligne 19) qui est le plus récente et les lignes 1 et 12 se supprimeraient ?
Et l'associer à un Bouton Macro qui en cliquant sur le Bouton, la procédure s'exécuterait ?
Le code pourrait ressemblait à quelque chose comme ça:
Par contre, comment on traduit en VBA la ligne en commentaire ? J'aurai besoin d'un peu d'aide pour y arriver.
Option Explicit
Sub Bouton2_Cliquer()
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim nLigne As Integer
If(NB.SI($A$2:$A$12;A2)>1)) Then
'Comparer les numéros d'identifiants identiques entre eux avec la date de mise à jour et conserver la plus récente
Target.Offset(1).EntireRow.Delete shift:=xlUp
End If
End Select
End If
End Sub
Merci de votre entière collaboration!