Trouver les doublons sur Excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Trouver les doublons sur Excel

Tryskel33

Bonjour,

Je suis en train de reprendre une tres grosse base de donnee Excel avec plusieurs colonnes (nom, adresse, Code postal, N° Tel, adresse Mail, etc...)
le probleme pour moi, c'est qu'il y a pas mal de doublons et je souhaiterais pouvoir les retrouver facilement avec des couleurs.

Pour se faire j'ai trouve une solution avec l'ajout d'une macro en VBA qui marche tres bien pour les noms, adresse et N° de tel mais par contre pour les adresses mail, elle ne fonctionne pas :??:

voici ma macro :

Citation :

Type TableauType
Contenu As String
Coordonnee As Integer
End Type

Sub TrouveDoublon()
Dim Tableau() As TableauType
Dim Cellule, Haut, Bas, Compteur, C2
Colonne = ActiveCell.Column
Haut = Selection.End(xlUp).Row
Bas = Selection.End(xlDown).Row
ReDim Tableau(Bas)
For Compteur = Haut To Bas
Tableau(Compteur).Contenu = Cells(Compteur, Colonne)
Tableau(Compteur).Coordonnee = Cells(Compteur, Colonne).Row
Next
For Compteur = Haut To Bas
For C2 = (Compteur + 1) To Bas
If Tableau(Compteur).Contenu = Tableau(C2).Contenu Then
Cells(Tableau(Compteur).Coordonnee, Colonne).Interior.ColorIndex = 4
Cells(Tableau(C2).Coordonnee, Colonne).Interior.ColorIndex = 3
End If
Next
Next
End Sub

Est ce qu'une ame charitable pourrais m'aider ???

Merci par avance pour vos reponses....
PS : je n'y connais rien en VB !!

Publicité

Wolfman

Lobo'tomizado

Ce sujet a été déplacé de la catégorie Windows & Software vers la categorie Programmation par Wolfman

pyrof

Bonjour,

Normalement elle devrait fonctionner

Voici une méthode plus rapide

Sub TrouveDoublon()
Dim colonne, Haut, Bas, cle
Colonne = ActiveCell.Column
Haut = Selection.End(xlUp).Row
Bas = Selection.End(xlDown).Row
Dim tab1
Set tab1 = CreateObject("Scripting.dictionary" )
For Compteur = 3 To 9
cle = CStr(Cells(Compteur, Colonne))
If tab1.exists(cle) Then
couleur = 3
Else
tab1(cle) = 1
couleur = 4
End If
Cells(Compteur, Colonne).Interior.ColorIndex = couleur
Next
End Sub

Tryskel33

Bonjour,
Merci beaucoup pour ton aide, en effet la 1ere fonctionne bien aussi, juste que je dois trier la colonne avant !

encore merci a toi Pyrof

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Trouver les doublons sur Excel

Sujets relatifs
Récuperer un tableau excel	Excel 2007 VBE avez vous ERR.Number =9???
[VB/VBA/VBS] Excel - Lien entre Tableau croisé dynamique et cellule	Excel/VB - Valeur cellule de ligne + élevée dans tableau
Créer ses propres fonctions dans excel 2007 !	Inserer données fichier excel dans base Mysql
Fichier excel généré qui a une taille anormale [RESOLU]	Conseil langage programmation Excel
[Excel] Inverser l'ordre des mots dans une cellule	Compatibilité du VBA dans Excel 2007 et 2003
Plus de sujets relatifs à : Trouver les doublons sur Excel

Page générée en 0.053 secondes