Discussion :

[kassarasta]

Bonjour à tous,

Après avoir regarder quasiment tout les sujets, je ne trouve pas la solution à mon problème.

Je suis gestionnaire du fichier client d'une société qui compte plus de 100000 clients.

Je viens de récupérer le fichier et là une flopper de doublons ( même triplons et quadriplons ....) sont présent dans ce fichier. Ma société travail toujours sont fichier sur Excel 2013( quel bêtise...).

Ce que j'aimerai c'est pouvoir fusionner les ligne en doublons, c'est à dire :
Voila mon en tête de fichier :

A = NOM, B =ADRESSE, C= VILLE, D = CP, E= TEL, F = PORTABLE, G = MAIL, H = ANCIENNES TV, I = TV, J = DONNE LE, K = PILULIER (P) / RENOUVELLEMENT ( R), L = FICHIER D ORIGINE, M = FICHIER, N = DATE NAISSANCE, O = AGE, P = STATUT GLOBAL, Q = STATUT 1, R = STATUT 2, S = OBSERVATIONS, T = ENVOI LIVRET, U = DATE DE RAPPEL

Toutes les infos de ses colonnes sont importantes.
Donc ma demande est simple aurait il une macro pour concatener mes doublons si mes colonnes (en rouge A B C D E F ) sont identiques?
Mon patron me demande cela aujourd'hui pour hier donc mon problème est très urgent et si quelqu'un pouvez me trouver la solution rapidement cela serait formidable.

Je joint le fichier exemple de ce que je voudrais (ps : j'ai oublier de mettre numéro de tel et numéro de portable en recherche de doublons aussi)

Merci d'avance a ce qui voudrons bien me donner un coup de main.

[DeVaK]

Tout soucis est un problème récurent qui peut être résolu de plusieurs façon. Je vais avoir l'air de répondre à côté, mais un logiciel d'ETL (Extract-Transform-Load) est un outil qui répondrait parfaitement à ce genre de besoin.

Il va te permettre de travailler sur une source ou plusieurs sources (ici un fichier Excel, mais aussi une base de données, un fichier csv/xml, etc...) afin de produire un résultat donnée. Ca peut être typiquement une suppression de doublon, une agrégation de données provenant de plusieurs sources, etc...

Bien qu'un outil d'ETL a pour but de créer des routines fixe (ex: tous les jours à minuit, tu prend ces deux base de données, tu agrèges leurs données que tu enregistreras dans ce fichier d'archive csv), une fois maîtrisé, il te permettra d'accomplir le genre de tâche auquel tu es actuellement confronté de façon très rapide. Tu pourras même garder ton outil sous la main si tu dois faire ce genre de chose régulièrement.

Voici plusieurs outils d'ETL : Microsoft SSIS 2012, Talend, Pentaho, etc...

Je pourrais notamment t'aider pour utiliser Microsoft SSIS que je sais utiliser.

Source : https://en.wikipedia.org/wiki/Extract,_transform,_load

[nanooby]

Hello,

http://www.ozgrid.com/forum/showthread.php?t=98218

A adapter pour toi.

[Invité]

Bonjour,
Effectivement, il y a plusieurs méthode.
Moi ,si je devais effectuer ce traitement, je le gèrerais avec Odbc. Pour plusieurs raisons.

Tes doublons ne sont pas forcément des doublons!
Par exemple le nom, prénom, adresse identique, mais sur une ligne il y a le téléphone et pas sur l'autre, hors il peut s'avérer intéressant de regrouper les informations disparates sur un même individu!

Une requête Sql via Ado n'est possible que si le fichier est enregistrer, mais j'imagine que c'est le cas!

[kassarasta]

Alors oui c'est ce que je cherche a faire : identifier les VRAI doublons et si c'est réellement le cas les grouper.

Mon fichier est bien enregistrer en format XLSX

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Test()
Dim Cn As Object, Sql As String, rs As Object
Set Cn = CreateObject("Adodb.connection")
'j’effectue un connexion sur ThisWorkbook
 With Cn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=YES;"""
        .Open
    End With
'Requête de regroupent qui récupéré le max des champs!
Sql = " select [NOM],[ADRESSE],[VILLE],[CP],max([TEL]),max([PORTABLE]),max([MAIL]),max([ANCIENNES TV]),max([TV]),max([DONNE LE]),max([PILULIER (P) / RENOUVELLEMENT ( R)]),max([FICHIER D ORIGINE]),max([FICHIER]),max([DATE NAISSANCE]),max([AGE]),max([STATUT GLOBAL]),max([STATUT 1]),max([STATUT 2]),max([OBSERVATIONS]),max([ENVOI LIVRET]),max([DATE DE RAPPEL]) "
Sql = Sql & "From [Feuil1$] where [NOM] is not null "
Sql = Sql & "group by [NOM],[ADRESSE],[VILLE],[CP]"
Set rs = CreateObject("adodb.recordSet")
rs.Open Sql, Cn
ThisWorkbook.Sheets("Feuil2").Range("A2").CopyFromRecordset rs
rs.Close
    Cn.Close
End Sub

[Invité]

j'ai fait une petite erreur