XL 2021 recherche doublons dans colonne puis suppression des lignes

ftpo69

XLDnaute Nouveau
Bonjour à toutes et tous.
J'ai des fichiers avec de nombreuses lignes, où j'ai des données en doublons dans une colonne.
Actuellement, je recherche ces doublons en procédant à une mise en forme conditionnelle des doublons, puis en triant cette colonne par couleur.
Ensuite, je sélectionne les lignes en couleur où sont les doublons et j'utilise la fonction suppression des doublons, pour éliminer les lignes contenant les valeurs en double.
Si une ligne est en doublon 1, 2 ou plusieurs fois, je souhaite garder la première ligne.
Pour finir je procède à un tri de tout mon tableau pour supprimer les lignes devenues vide.
J'ai illustré cela dans le fichier joint.
Cette méthode est un peu longue et fastidieuse.
Y'a t-il une macro qui rendrait cela automatique?
Merci de votre aide.
 

Pièces jointes

  • exemple.xlsx
    28.7 KB · Affichages: 4
Solution
Bonjour Ftpo, Phil,
Et si vous t tenaez, un macro VBA qui fait exactement pareil que Phil :
VB:
Sub SuppDoublons()
    Application.ScreenUpdating = False
    ActiveSheet.Range("A8:D" & [A50000].End(xlUp).Row). _
    RemoveDuplicates Columns:=Array(2, 4), Header:=xlYes
End Sub

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir ftpo,
Pourquoi passer par une MFC pour déceler les doublons ?
Pourquoi ne pas simplement supprimer les doublons de toute la colonne directement, cela donne le même résultat :
Test4.gif
 

ftpo69

XLDnaute Nouveau
Bonsoir Sylvanu.
Je vous remercie pour votre réponse. En effet, cela va me permettre de clarifier ma demande.
Dans la colonne où se situe mes doublons, il y'a des cellules vides. Si je procède comme vous me l'indiquez, je vais supprimer les lignes où se situe les cellules vides.
Je ne peux donc pas utiliser cette méthode.
J'ai modifié mon fichier exemple pour l'illustrer.
Merci.
 

Pièces jointes

  • exemple2.xlsx
    29.7 KB · Affichages: 5

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Ftpo, Phil,
Et si vous t tenaez, un macro VBA qui fait exactement pareil que Phil :
VB:
Sub SuppDoublons()
    Application.ScreenUpdating = False
    ActiveSheet.Range("A8:D" & [A50000].End(xlUp).Row). _
    RemoveDuplicates Columns:=Array(2, 4), Header:=xlYes
End Sub
 

Pièces jointes

  • exemple2.xlsm
    36.8 KB · Affichages: 5

Discussions similaires

Statistiques des forums

Discussions
312 584
Messages
2 089 995
Membres
104 331
dernier inscrit
xdream