tri base données a 3 ou 4 critéres [résolu]

[surplus]

Bonjour,
je voudrais faire une macro qui me trie les doublons dans une Base de Données selon 3 critères
j'ai dans colonne A1 Nom ,B1 Prénom,C1 Adresse
je trouve beaucoup de solutions pour une colonne mais si j'ai le même nom avec prénom différent faudra filtrer sur le prénom en plus
et donc on peut avoir même nom et prénom mais pas a la même adresse donc filtrer avec adresse en plus
on pourrait même avoir le père et fils avec même nom prénom et adresse et la rajouter un filtre de plus avec l'age ce serait l'idéal

mais bon avec 3 déjà ce serait pas mal
merci de vos lumières
a bientôt

 

[Oliver77]

Re : tri base données a 3 ou 4 critéres

Slt "Surplus",

Sans fichier exemple...
C'est mission tordu !

Cordialement,
Oliver77

 

[surplus]

Re : tri base données a 3 ou 4 critéres

bonjour
je vous mets le fichier exemple

 

[Dranreb]

Re : tri base données a 3 ou 4 critéres

Bonsoir.
Mes dictionnaires arborescents l'organisent sans effort quel que soit le nombre de colonnes. Après c'est à vous de voir comment vous l'exploitez. Il manque un scénario d'utilisation dans votre histoire.
À +

 

[surplus]

Re : tri base données a 3 ou 4 critéres

Bonsoir.
Mes dictionnaires arborescents l'organisent sans effort quel que soit le nombre de colonnes. Après c'est à vous de voir comment vous l'exploitez. Il manque un scénario d'utilisation dans votre histoire.
À +

bonjour
et concrètement ça veut dire quoi votre phrase?
a bientôt

 

[mapomme]

Re : tri base données a 3 ou 4 critéres

Bonjour surplus

Un essai dans le fichier joint (pour ce que j'en ai compris).

 

[surplus]

Re : tri base données a 3 ou 4 critéres

bonjour mapomme
c'est cela mais je voudrais que ça les supprime meme sans les montrer les supprimer en gardant une ligne bien sur
a bientot

 

[mapomme]

Re : tri base données a 3 ou 4 critéres

re-Bonjour,

les supprime meme sans les montrer les supprimer en gardant une ligne

Je n'avais pas vu qu'il fallait supprimer les doublons. Un essai dans le fichier (sans optimisation aucune )

 

[laetitia90]

Re : tri base données a 3 ou 4 critéres

bonjour tous
si tu as excel2010 peut être passer par un filtre
un exemple avec enregistreur de macro

Sub Macro3()
    Range("A2:F22").Select
    Range("A2:F22").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
End Sub

attention quand meme il faut coder un peu... je vois que tu as
Dupont AECUnté
et
Dupont Aecunté

donc 2 prenoms different on peut corriger avec lcase ou ucase

 

[surplus]

Re : tri base données a 3 ou 4 critéres

bonjour
les noms sont des exemples vites faits
mais ta macro ne supprime pas les doublons ?
merci de ton aide
a bientot

 

[laetitia90]

Re : tri base données a 3 ou 4 critéres

re ,tous... une macro egalement qui le fait en passant par Dictionary

Sub es()
 Dim m As Object, i As Long, z As Variant
 Application.ScreenUpdating = False
 Set m = CreateObject("Scripting.Dictionary")
 For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
 z = Cells(i, 1) & Cells(i, 2) & Cells(i, 3) & Cells(i, 4) & Cells(i, 5) & Cells(i, 6)
 If Not m.Exists(z) Then m.Add z, z Else Rows(i).Delete
 Next i
End Sub

eventuellement si grande plage utiliser un "tablo" bien plus rapide

 

[surplus]

Re : tri base données a 3 ou 4 critéres

bonjour
c'est une grande base 5000 noms evolutive donc faire un tablo evolutif
comment?
a bientot

 

[laetitia90]

Re : tri base données a 3 ou 4 critéres

re , regarderais demain si pas de reponse avec un tablo mais la deja rapide sur 5000 noms < a 1.5 seconde
mais plus le temps

 

[laetitia90]

Re : tri base données a 3 ou 4 critéres

re , tous un version "tablo " brut traite sur place les données plusieurs facon de l'ecrire mais bon !!!

on peut quand meme utilser un filtre mais il faut pas que la base de données depasse 10000 lignes apres le temps d'execution trop long

 

[Si...]

Re : tri base données a 3 ou 4 critéres

salut

comme le dit laetitia , Si... tu as 2010

Sub SansDoublon()
  Range("$A$3:$F$" & Cells(Rows.Count, 1).End(xlUp).Row).RemoveDuplicates _
      Columns:=Array(1, 2, 3, 4, 5, 6)
End Sub