[AC-2007] Supprimer doublons de ma table en VBA ou autre ? [Résolu]

[Debutant10]

Bonjour,

J'ai une table importé d 'un fichier excel avec 1000 lignes et 60 colonnes. J'ai un champ nommé
Références qui est en doublons. Comment supprimer les lignes en doublons de ma table ?

Références heures date
AF9999 - 25898 -69885
AD8888- etc ..
AF9999- etc ...
AE6547-

Comment faire simple ? car j'ai regardé dans le forum pas très clair.
Merci de votre aide

[f-leb]

bonsoir,

Références heures date
AF9999 - 25898 -69885
AD8888- etc ..
AF9999- etc ...
AE6547-

On doit supprimer les deux lignes ?
On en conserve qu'une ? Laquelle ?

[Debutant10]

Je voudrais en conservé qu'une à chaque fois

si le champ réf contient un doublons en garder qu'une ligne

[Philippe JOCHMANS]

Bonjour

Envoyé par f-leb

Laquelle ?

Philippe

[Debutant10]

supprimer le doublon dans le champ réf et garder que la ligne si le champ ENT est renseigné et avec les données commancant par un S.

Donc pour garder une des lignes en doublons si j'ai le choix je souhaiterais garder celle ou le champ ENT renseigné avec les données commancant par un S. Surtout bien supprimmer les doublons


AF9999- POIU
AF9999- SPER
AF9999-

MERCI

[f-leb]

Bonsoir,

supprimer, supprimer …Est-ce que les deux cas suivants peuvent se présenter ?

Envoyé par avec S deux fois

AF9999- POIU
AF9999- SPER
AF9999- SPIP

Envoyé par pas de S

AF9999- POIU
AF9999- TOTO
AF9999- RIRI

Et si oui, que doit-on faire ?

[Debutant10]

Bonjour,

non généralement c que le cas 1 ci dessous et parfois le cas 2

cas 1

avec S une fois
AF9999- POIU
AF9999- SPER

cas 2 (parfois)
AF9999- POIU
AF9999- TOTO
AF9999- RIRI


c compliqué à faire ? pouvez vous essayé avec le cas 1 ? merci pour votre aide

[f-leb]

Bonjour,

l’histoire ne disant pas ce qu’on doit faire et quelle ligne on doit conserver dans la cas:

cas 2 (parfois)
AF9999- POIU
AF9999- TOTO
AF9999- RIRI

en supposant également qu’il y ait un identifiant [id] pour ces lignes, on peut essayer :

Code sql :

1
2
3
4
5
6
7
SELECT * FROM Debutant10 D
WHERE D.Id IN
(
   SELECT TOP 1 T.Id FROM Debutant10 T
     WHERE T.Ref=D.Ref
        ORDER BY  iif(T.ENT LIKE "S*",0,1), T.id
);

[Debutant10]

Bonjour

MERCI cela fonctionne très bien pour le Cas 1 !!


pour le cas 2 je viens de vérifier je voudrais garder le 1 er enregistrement des 3 doublons, est possible ? si oui comment faire dans le sql ?

cas 2 (parfois)
AF9999- POIU
AF9999- TOTO
AF9999- RIRI

ci-dessou sql pour le cas 1 et comment injécter dans le même sql le cas 2

MERCi pour votre aide

Code :

1
2
3
4
5
6
7
SELECT * FROM Debutant10 D
WHERE D.Id IN
(
   SELECT TOP 1 T.Id FROM Debutant10 T
     WHERE T.Ref=D.Ref
        ORDER BY  iif(T.ENT LIKE "S*",0,1), T.id
);

L' identifiant [id] pour ces lignes est-il obligatoire ?

[f-leb]

Envoyé par Debutant10

pour le cas 2 je viens de vérifier je voudrais garder le 1 er enregistrement des 3 doublons, est possible ?

le 1er en triant suivant quel ordre ? Les lignes d’une table Access ne sont pas numérotées comme dans Excel.

Dans ton 1er post, tu semblais avoir une date :

Envoyé par Debutant10

Références heures date
AF9999 - 25898 -69885
AD8888- etc ..
AF9999- etc ...

On peut utiliser la date pour trier ? (s’il n’y a pas de ref qui commence par S, on prendrait la ligne qui a la date la plus récente/ancienne)

Code sql :

…ORDER BY  iif(T.ENT LIKE "S*",0,1), T.LaDate DESC, T.id

Envoyé par Debutant10

L' identifiant [id] pour ces lignes est-il obligatoire ?

S’il n’existe pas, il faut d’une manière ou d’une autre en créer (ou calculer) un.

[Debutant10]

Oui on peut utiliser le champ "date deb" pour trier s’il n’y a pas de ref qui commence par S, aucun pb. on prendrait la ligne qui a la date la plus anciènne
sa me va très bien.


si je résume : le trie s'éffectura par le champ "date deb"

Code :

1
2
3
4
5
6
7
SELECT * FROM Debutant10 D
WHERE D.Id IN
(
   SELECT TOP 1 T.Id FROM Debutant10 T
     WHERE T.Ref=D.Ref
        ORDER BY  iif(T.ENT LIKE "S*",0,1), T.date deb DESC, T.id
);

c bon ce que j'ai ajouté ? que signifie DESC ?


Je reviens sur l'aspect clé primaire, je génère un import automatique ce la peut poser un pb ?

ou dois-je créer un champ sup pour la clé primaire car j 'ai jamais essayé d'ajouter de champ id clé primaire ect....

MERCI pour votre aide

[f-leb]

bonjour,

entre crochets [ ] la date, à cause de l’<espace>:

Code sql :

...ORDER BY  iif(T.ENT LIKE "S*",0,1), T.[date deb] DESC, T.id

DESC pour les tris par ordre décroissant, mais pour obtenir la date la plus ancienne il faut trier par ordre croissant==> supprimer DESC

Envoyé par Debutant10

Je reviens sur l'aspect clé primaire, je génère un import automatique ce la peut poser un pb ?
ou dois-je créer un champ sup pour la clé primaire car j 'ai jamais essayé d'ajouter de champ id clé primaire ect....

Aucun problème, dans les spécifications d’importation proposées par l’assistant on peut demander d’ajouter automatiquement un numéroAuto comme clé primaire.

[Debutant10]

Merci pour l'info,

Très bien sa marche. Pour éviter de lancer manuellement sur un bouton pour supp les doublons avec la requête sui fonctionne à chaque fois etc...., peut on pas lancer cette requête automatiquement dans mon code VBA après chaque import.

Voici mon import

Code :

1
2
3
4
5
For Each strFeuille In varFeuilles
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, _
      strTable, strChemin, blnNoms, strFeuille & "!"
 
  Next

comment puis-je mettre le lancement de la requête

MERCI pour votre aide

[f-leb]

Si je comprends bien tu veux supprimer physiquement les doublons une fois l’importation terminée.

Pour supprimer physiquement les doublons dans la table, il faut une requête DELETE avec un NOT IN:

Code sql :

1
2
3
4
5
6
7
DELETE * FROM Debutant10 D
WHERE D.Id NOT IN
(
   SELECT TOP 1 T.Id FROM Debutant10 T
     WHERE T.Ref=D.Ref
        ORDER BY  iif(T.ENT LIKE "S*",0,1), T.[date deb], T.id
);

Pour lancer la requête en VBA:

Code :

1
2
strDelete="DELETE FROM " & strTable & " D WHERE D.Id NOT IN bla bla bla bla…"
currentdb.execute strDelete,dbFailOnError

[Debutant10]

OUI supprimer physiquement les doublons une fois l’importation terminée.
est ce possible.
mais comment in blabla ??? comment retranscrire le sql qui marche très bien en VBA ?

Code :

1
2
3
4
5
6
7
8
For Each strFeuille In varFeuilles
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, _
      strTable, strChemin, blnNoms, strFeuille & "!"
 
  Next 
 
strDelete="DELETE FROM " & strTable & " D WHERE D.Id NOT IN bla bla bla bla…"
currentdb.execute strDelete,dbFailOnError

[f-leb]

bonjour,

ben bla bla bla pour la suite de la requête :

Code :

1
2
3
strDelete = "DELETE  FROM " & StrTable & " D WHERE D.Id NOT IN " & _
"( SELECT TOP 1 T.Id FROM " & StrTable & " T WHERE T.Ref = D.Ref " & _
"ORDER BY iif(T.ENT LIKE ""S*"",0,1), T.[date deb], T.id );"

[f-leb]

...sinon ça en est où l'histoire ?

tes doublons sont bien supprimés ?
Le NOT IN a la réputation de faire traîner les requêtes, les délais restent raisonnables ?

[Debutant10]

Merci sa fonctionne

[Debutant10]

Bonjour,

un petit Détail

Est il possible d'utiliser le même code sql mais cette fois ci je vourdais utiliser mon

Code :

1
2
SELECT * FROM Debutant10 D
WHERE D.Id IN

à partir d'une requête et non pas de ma table Debutant10 D

Code :

1
2
3
4
5
6
7
SELECT * FROM Debutant10 D
WHERE D.Id IN
(
   SELECT TOP 1 T.Id FROM Debutant10 T
     WHERE T.Ref=D.Ref
        ORDER BY  iif(T.ENT LIKE "S*",0,1), T.date deb DESC, T.id
);

car j'ai un message d 'erreur .... quand je fais cela depuis une table ...

[f-leb]

bonjour,

quel message d'erreur ?

Tu parles du SELECT... WHERE D.id IN...ou bien du
DELETE FROM...WHERE D.id NOT IN...?