Recherche verticale doublon et suppression du doublon

Bonjour,

Je suis confronté à ce petit problème dont je n'arrive pas à trouver la solution. Il faut dire que mes connaissances en VBA sont assez limitées .

Le fichier présent en PJ se présente comme suit:

Dans la Feuil1 se trouvent des relevés avec à chaque fois un numéro de série.

Voici le fonctionnement attendu :

Si un numéro de série est présent 2 fois dans la colonne A alors la 1ère ligne trouvée du doublon est supprimée (Il peut y avoir plusieurs doublons dans la colonne A, donc si il y a par exemple 5 paires de numéro de série en doublons, alors une ligne de chaque est supprimée).

Merci d'avance pour votre aide!

Bonjour,

1) Tu sélectionnes tes 3 colonnes à partir de la ligne 2.

2) Tu vas dans l'onglet "Donnée" puis "supprimer les doublons"

3) Une fenêtre s'ouvre en te proposant les 3 intitulés de tes colonnes A, B et C. Ils sont cochés par défaut.

4) Tu décoches "Date" et "Heure", puis valider.

En espérant que cela correspond à ta demande.

Cordialement.

Espoir

Bonjour,

Devons-nous prendre en considération les dates et les heures?

Dans la négative, sans VBA, tu peux supprimer les doublons à partir du ruban.

(Menu Données/Supprimer les doublons).

Cdlt.

Merci pour vos réponses espoir et Jean-Eric.

Pour répondre à ta question Jean-Eric, la date et l'heure ne doivent pas être pris en compte.

Je ne m'y connais pas vraiment en VBA donc serait il possible d'avoir une macro pour faire cette opération de recherche et de suppression de ligne svp ? (En effet, je dois avoir absolument une macro pour cette traiter cette tache car celle-ci doit s'effectuer automatiquement lors d'un clique sur bouton)

Merci d'avance!

Bonjour,

Pour le principe :

Public Sub Demo()
    Feuil2.Cells.Clear
    Feuil1.Cells(1).CurrentRegion.Copy _
            Destination:=Feuil2.Cells(1)
    Feuil2.Cells(1).CurrentRegion.RemoveDuplicates _
            Columns:=1, _
            Header:=xlYes
    Feuil2.Cells(1).Select
End Sub