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

XL 2021 suppression de doublons

A

auloin

XLDnaute Junior
bonjour,

j'aimerais trouver une solution simple pour supprimer des données présentes sur deux feuilles Excel.
j'ai un fichier prospects (plusieurs milliers de lignes)
j'ai un fichier client (également plusieurs milliers de lignes)

l'objectif serait de trouver une solution pour supprimer de la liste des prospects les sociétés présentes dans le fichier clients
aujourd'hui la seule solution que j'utilise est de mettre dans une seule feuille les données avec des couleurs différentes d'utiliser la MFC pour identifier les doublons puis de supprimer manuellement les doublons des prospects ligne par ligne
fastidieux

pouvez-vous m'aider?

merci par avance
 

Pièces jointes

  • test.xlsx
    13.1 KB · Affichages: 9
Trier par date Trier par votes

sylvanu

XLDnaute Barbatruc
Supporter XLD
@Staple,
Pour être plus précis, avec ou sans la ligne :
VB: 
.EntireRow.Sort .Cells, xlDescending
Sans cette ligne et avec xlCellTypeFormulas, j'obtiens à iso-périmètre 0.295s.
Donc là c'est assez proche.
Mais bon, comme ce module est gravé dans mes archives et est le plus rapide, c'est plus simple pour moi de faire un copier coller. Fainéantise oblige.
 
Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc
J'ai répondu d'après ce que j'ai compris. Désolé de t'avoir fait perdre ton temps.
 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Bonjour @cp4

Par essence, on perds tous notre temps libre sur XLD
(demandeur comme répondeur)

Par exemple, aujourd'hui c'est les journées du matri-patrimoine

Et où suis-je ? Le c*l sur ma chaise, à m'abimer les yeux sur une feuille Excel

PS: Mais moi, j'ai le droit, ici il pleut fort
 
Vote positif 0 Vote négatif
A

auloin

XLDnaute Junior
merci à tous

en PJ le tableau corrigé (bons codes Iris par sociétés)
@sylvanu effectivement ma demande n'était pas assez précise et mon tableau pas corrigé

@cp4 tu ne me fais pas perdre de temps et merci pour vos efforts à m'apporter une réponse
@Staple 1600 je teste dés que je peux

merci à vous

​

 
Vote positif 0 Vote négatif
A

auloin

XLDnaute Junior
Staple1600 à dit:
@auloin
Tu es sur que c'est la version corrigée ?

Car il y encore des doublons sur la feuille prospects (dans la colonne ref_iris)
Cliquez pour agrandir...
oui
en fait les zones Iris sont des indices géographiques (plus petits que la commune)
il se peut donc que des sociétés soient sur la même zone
en changeant mes colonnes (intervertir A et B dans les feuilles) et en utilisant le code donné par @sylvanu à 10h06 je parviens quasiment au résultat attendu

je me remets dessus dans la soirée et je vous tiens au courant
 
Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro
Bonjour
pour information il n'y à pas de doublons "societé 16" de l'onglets prospects n'existe pas dans l'onglet test et "societe 16" de l'onglet test n'existe pas dans l'onglet prospects!

tu veux que ta macro apprenne à lire car il doit y avoir plus de subtilités que "societ(é)" et "societ(e)"?

Mais tu peux toujours reprendre ton vieux minitel qui lui prenait même en compte les fautes d'orthographe

VB: 
Sub test()
Application.DisplayAlerts = False
On Error Resume Next
Sheets("prospects2").Delete
On Error GoTo 0
Application.DisplayAlerts = True
With Sheets.Add(After:=Sheets(Sheets.Count))
 .Name = "prospects2"
End With
Sheets("prospects").Rows(1).Copy Sheets("prospects2").Rows(1)
Dim Cn As String, SQL As String
Cn = GenereCSTRING(Xls, Base:=ThisWorkbook.FullName, Titre:=True)
SQL = "insert into [prospects2$] Select frm.* from [prospects$] as frm left join [test$] as frm2 on frm2.[SOCIÉTÉ CLIENT]=frm.[nom] where frm2.[SOCIÉTÉ CLIENT]is null"
ExecuteRequete SQL, Cn
End Sub
 

Pièces jointes

  • test.xlsm
    31.8 KB · Affichages: 5
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question
XL 2021 Doublons
Réponses
2
Affichages
282
JohnBill
F
  • Résolu(e)
XL 2021 recherche doublons dans colonne puis suppression des lignes
Réponses
5
Affichages
518
ftpo69
F
E
  • Question
XL 2021 Doublons
Réponses
1
Affichages
219
sylvanu
  • Question
XL 2016 Adapter un code à mon fichier (RESOLU)
Réponses
4
Affichages
254
misteryann
P
  • Résolu(e)
XL 2021 Identifier lignes des doublons dans message Box
Réponses
5
Affichages
206
pierrof
P
E
  • Résolu(e)
Microsoft 365 ComboBox "dynamiques" sans doublon sur plusieurs colonnes
Réponses
2
Affichages
181
ExcLnoob
E
J
  • Question
Autres Surbrillance cellule pour doublons sur Sheets
Réponses
6
Affichages
355
jny
J
S
  • Question
Microsoft 365 Modifier des données via un Userform
Réponses
3
Affichages
510
youky(BJ)
C
  • Résolu(e)
formulaire de saisie
2 3
Réponses
41
Affichages
3 K
Caso
C
  • Résolu(e)
XL 2016 reproduire MEFC
Réponses
12
Affichages
382
Neo Hyuga
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…