Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…