Discussion :

[dianophe]

Bonjour,

J'ai importé un fichier XML avec des données.

Mon patron m'as donc demandé de faire un filtre de doublons :




Donc mon soucis est de :

- Comparer les lignes pour trouver les doublons.
- Si doublon il y a, en garder seulement un comme ceci :



- Ensuite, mettre sur la même ligne le reste, en l’occurrence ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CAMIEG\Commun_comm AND CAMIEG\Responsable_coordination_Antennes OR ...

Voilà, si vous pouviez m'aider à faire cette macro.

Merci !

[jeanmidudu]

Bonjour,

Propose nous un premier bout de code (aide tout de l'enregistreur de macros et de la fonction supprimer les doublons) et on t'aidera à l'optimiser

[dianophe]

Tout d'abord merci de ta réponse, avec l'enregistreur de macro, cela m'a enregistré ce script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Macro2()
'
' Macro2 Macro
'
 
'
    ActiveSheet.Range("Tableau1[#Tout]").RemoveDuplicates Columns:=Array(1, 2, 3), _
        Header:=xlYes
End Sub

Mais cela supprime non pas une cellule, mais carrément toute la ligne, or ça n'est pas cela qui est attendu.

[jeanmidudu]

Fais des tests, si tu t'arrêtes à ça c'est comme si l'on faisait tout le travail. Surtout que tu n'as pas dû chercher très loin car on peut supprimer les doublons dans une seule colonne.

[dianophe]

Ah mais de toute façon c'est normal, on ne peut pas 'supprimer' une seule cellule directement, on peut la vider d'abord.
Donc j'ai réussis à faire ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim N As Long, i As Long
    N = Cells(Rows.Count, "A").End(xlUp).Row
    For i = N To 2 Step -1
        If Cells(i, "A").Value = Cells(i - 1, "A").Value Then Cells(i, "A").Clear
    Next i

Sur la colonne A, maintenant sur la b & d, ça sera ensuite bon pour les doublons. Ensuite le reste sur la même ligne :/ Et donc la ça m'embête.
Est-ce qu'il faudrait que je fasse un test par rapport aux cellules vides ?

[jeanmidudu]

Il y a beaucoup plus simple pour supprimer les doublons dans chaque colonne :

Ce code supprime tous les doublons des colonnes 1 à 10, colonne par colonne (ne supprime pas la ligne entière)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Sub Macro1()
    Dim i As Long
    For i = 1 To 10
        Columns(i).RemoveDuplicates Columns:=1, Header:=xlNo
    Next i
End Sub

Ensuite le reste sur la même ligne :/ Et donc la ça m'embête.
Est-ce qu'il faudrait que je fasse un test par rapport aux cellules vides ?

Je n'ai pas bien saisi

[joe.levrai]

Bonjour,

en réutilisant la boucle de ton dernier message

lorsque tu clear la cellule en A, alimente une variable string avec la valeur des deux colonnes au fur et à mesure

et à la fin, sur la ligne que tu conserves, tu écris la valeur de cette variable string