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

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

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 !

surplus

XLDnaute Occasionnel
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
 
Dernière édition:
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.
À +
 
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

Code:
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
 
Re : tri base données a 3 ou 4 critéres

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

Code:
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
 
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
 

Pièces jointes

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

salut

comme le dit laetitia 🙂, Si... tu as 2010
Code:
Sub SansDoublon()
  Range("$A$3:$F$" & Cells(Rows.Count, 1).End(xlUp).Row).RemoveDuplicates _
      Columns:=Array(1, 2, 3, 4, 5, 6)
End Sub
 
- 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

Discussions similaires

  • Question Question
Réponses
5
Affichages
168
  • Question Question
Microsoft 365 MFC dans tableau
Réponses
2
Affichages
225
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…