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

Suppression doublons

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion thomthom76
  • 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'inscrire
T

thomthom76

Guest
Bonjour à tous 🙂

Ce sujet à dû être abordé à maintes reprises,

Cependant, je n'ai pas trouvé de sujet et de macro permettant de supprimer la deuxième ligne en doublon.

Dans mon cas et sur ma macro, c'est la première ligne qui est effacée.

Auriez-vous une solution pour effacer la deuxième ligne (ou toute les suivantes)?

Voici mon fichier en pièce jointe

Merci beaucoup pour votre aide sur le sujet
 

Pièces jointes

Trier par date Trier par votes
Re : Suppression doublons

Bonjour WUTED et merci pour cette réponse rapide 😀

Je n'arrive cependant pas à adapter la macro à mon fichier, un décallage de ligne apparait

Peux-tu m'éclairer davantage ou me montrer comment rendre la macro adaptée à mon document ?

Je te remercie
 
Vote positif 0 Vote négatif
Re : Suppression doublons

Re thomthom76,

Voici l'adaptation du code de pierrejean à ton problème :

VB: 
Sub suppr()
    For n = Sheets("Extraction").Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
        For m = n - 1 To 2 Step -1
            If Sheets("Extraction").Range("A" & n) = Sheets("Extraction").Range("A" & m) Then
               Sheets("Extraction").Range("A" & m).EntireRow.Delete
               Sheets("Extraction").Range("A" & n - 1).EntireRow.Delete
            End If
        Next m
    Next n
End Sub

C'est un peu bricolé mais ça fonctionne.

Bonne journée,
WUTED
 
Vote positif 0 Vote négatif
Re : Suppression doublons

Merci,

Par contre, ça supprime les deux lignes en doublons avec ta formule WUTED

Ce que je souhaiterais, c'est garder la ligne la plus en haut du doublon
 
Vote positif 0 Vote négatif
Re : Suppression doublons

Re,

Au temps pour moi, j'avais mal lu, je croyais que tu voulais justement supprimer les deux lignes, modifie juste la macro :

VB: 
Sub suppr()
    For n = Sheets("Extraction").Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
        For m = n - 1 To 2 Step -1
            If Sheets("Extraction").Range("A" & n) = Sheets("Extraction").Range("A" & m) Then
               Sheets("Extraction").Range("A" & n).EntireRow.Delete
            End If
        Next m
    Next n
End Sub

Sans l'avoir testé, cela devrait bien marché.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

  • Question Question
XL 2021 Doublons
Réponses
2
Affichages
531
JohnBill
D
  • Question Question
XL 2021 3 problèmes : Bouton VBA (fusion et suppression) & doublons
Réponses
4
Affichages
788
Dubuyz1
D
F
  • Résolu(e)
XL 2021 recherche doublons dans colonne puis suppression des lignes
Réponses
5
Affichages
699
ftpo69
F
O
  • Résolu(e)
Microsoft 365 Amélioration/réparation d'une Macro et création d'un bouton pour calcul consommation
2
Réponses
27
Affichages
2 K
Olihoes
O
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
1 K
spike29
S
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
P
  • Résolu(e)
Microsoft 365 Crée un VBA pour repérer des doublons sur un tableur excel
2 3
Réponses
31
Affichages
4 K
patrick965
P
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
896
picc
P
I
  • Question Question
XL 2019 Suite à une formule, enlever le doublon dans le résultat avec fonction SI
Réponses
2
Affichages
570
IderMTC
I
J
  • Question Question
XL 2016 envoie mail automatique lors de double-clic sur cellule
Réponses
6
Affichages
816
J@ba
J
T
  • Question Question
XL 2016 Comment supprimer les résultats vides des formules
Réponses
3
Affichages
408
Tableau123
T
K
  • Question Question
XL 2016 Conserver les données uniques (VBA)
Réponses
7
Affichages
1 K
Hasco
M
  • Question Question
XL 2016 VBA - Traitement de données avec valeurs identiques dans un dictionnaire
2
Réponses
28
Affichages
3 K
Mak_tarmak
M
D
  • Question Question
XL 2019 Concaténer plusieurs lignes à partir d'une référence en doublon
Réponses
5
Affichages
1 K
vgendron
W
  • Question Question
XL 2016 Calculer les présences en "Seul" ou "Accompagné" en tableau 1 et présenter la synthèse en tableau 2
2
Réponses
21
Affichages
2 K
Webperegrino
W
  • Résolu(e)
XL 2016 Démo pour positionner un UserForm ou ContextMenu sur la grille (Toute version)
10 11 12
Réponses
178
Affichages
10 K
TooFatBoy
P
  • Résolu(e)
Microsoft 365 VBA - EXCEL Compiler plusieurs lignes d'une extraction en un minimum de lignes
Réponses
13
Affichages
1 K
Pb68
P
Z
  • Question Question
XL 2019 fichier trop lourd
Réponses
8
Affichages
1 K
patricktoulon
D
  • Question Question
XL 2021 VBA - Erreur 1004 aléatoire - Image/Logo
Réponses
10
Affichages
1 K
crocrocro
C
L
  • Question Question
XL 2016 Macro VBA, colonnes de 3 feuilles différentes assemblées sans doublon
2
Réponses
20
Affichages
2 K
Lou61
L
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…