Doublons sur 2 colonnes

[julos08]

Bonjour à tous,

Cela fait une demi heure que je fouille sur le forum pour trouver une solution a mon probleme de doublons.

Voila J'ai un classeur excel avec 2 colonnes.
1er colone : un nom de fichier
2éme colonne: taille du fichier

J'ai creer une macro qui me recherche sur mon disque dur nimporte quel sorte de fichiers.
Par ex des fichiers word.
Je lance ma recherche et toute la litse de mes fichiers word s'affiche dans le classeur excel avec le nom et la taille des fichiers trouves.

Je voudrais creer une macro qui me trouve les doublons de mes fichiers.
Il faut que le nom et la taille soit identique pour le considerer comme doublons
et qui me les affiche sur une autre colonne.

Je joins un fichier pour etre plus clair.

Merci d'avance et bon week-end [file name=test_doublons.zip size=1822]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_doublons.zip[/file]

 

[porcinet82]

Salut julos08,

La macro qui suit fonctionne pour ton fichiers, si tu as des questions ou que tu veux des expliations, tiens moi au courant.

Sub doublons()
Dim i As Integer, k As Integer, m As Integer
Dim val As Variant, val2 As Variant

Application.Goto Sheets('feuil1').Range('A1')
m = 7
For i = 7 To Range('d65536').End(xlUp).Row
    val = Cells(i, 4).Value & Cells(i, 5).Value
    For k = Cells(i, 4).Row + 1 To Range('d65536').End(xlUp).Row
        val2 = Cells(k, 4).Value & Cells(k, 5).Value
        If val = val2 Then
            Cells(m, 7).Value = Cells(k, 4).Value
            Cells(m, 8).Value = Cells(k, 5).Value
            m = m + 1
        End If
    Next k
Next i
End Sub

@+

 

[pierrejean]

bonjour julos08

voir la macro (à adapter pour les colonnes et les lignes)


salut porcinet
on a failli la collision !!

[file name=test_doublons_20060225151450.zip size=10391]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_doublons_20060225151450.zip[/file]

Message édité par: pierrejean, à: 25/02/2006 15:16

 

[pat1545.]

Salut,


pourquoi réinventer la roue ?
un filtre élaboré suffit.

Patrick [file name=test_doublons_20060225214708.zip size=2328]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_doublons_20060225214708.zip[/file]

 

[ChTi160]

Salut julos08
bonsoir le fil

en pièce jointe une version Tableau lol
bonne fin de Soirée [file name=test_doublonsV2.zip size=11534]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_doublonsV2.zip[/file]

 

[julos08]

Merci à tous c'est exactement ca que je voulais.

Bonne soirée à tous.