Discussion :

[Mimosa777]

Bonjour tout le monde,

j'ai un fichier excel contenant une colonne "CODE" avec des chiffres (code employé).

J'ai 350 lignes de codes d'employé dans ma colonne "CODE" mais il y en a qui se repète. Je souhaiterais supprimer ces codes d'employés qui se repète et ne garder qu'une seule fois le code en question. Je veux donc supprimer la ligne qui contient le code et non pas seulement vider la cellule. La colonne n'est pas forcement classer en ordre de code. Voila la difficulte pour moi.

Merci de votre aide d'avance.

[sabzzz]

bonjour Mimosa777,

Code :

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

1
2
3
4
5
6
7
Sub Macro1()
Dim i As Integer, derLigne As Integer
derLigne = Range("A65536").End(xlUp).Row
For i = derLigne To 2 Step -1
 If Application.Match(Range("A" & i), Range("A:A"), 0) <> i Then Rows(i).Delete Shift:=xlUp
Next
End Sub

[Access Newbie]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
 
Sub SupprDoublons()
'supprime les doublons
 
Dim strCode As String
Dim i As Integer
'
    strCode = ""
 
    'trie les données
    Range("A2:C8").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    i = 2 'premiere ligne de données
    Do While Range("A" & i) <> ""
        If strCode = Range("A" & i) Then
            'supprime la ligne
            Rows(i).Delete shift:=xlUp
            i = i - 1
        Else
            'recupere le code
            strCode = Range("A" & i)
        End If
        i = i + 1
    Loop
End Sub

[Mimosa777]

Merci enormement sabzzz. Ca marches!


Access Newbie, j'ai essaye ton code, il fait des suppressions mais il laisse des doublons. Merci tout de même.

[Access Newbie]

Si si, ca marche, mais il fallait changer le range du tri (j'aurais dû mettre une recherche du nombre de lignes dynamique), mais c'était juste pour que tu comprennes le principe.

Mais la solution de sabzzz est bien plus simple à écrire !

[Mimosa777]

effectivement tu as raison, le tien marches aussi maintenant lorsque je mets le bon range. je garde les 2 solutions, cela pourrait toujours m'aider

[mercatog]

Je proposerai dans le même sens ce code à toute fin utile (pour éviter de bloquer par .Match au cas où une cellule vide est rencontrée)

Code :

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

1
2
3
4
Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
 If Application.CountIf(Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row), Range("A" & i)) > 1 Or Range("A" & i) = "" Then Rows(i).Delete
Next i

[laetitia]

bonjour Mimosa777 Access Newbie isabelle l'ami mercatog on peut utiliser Dictionary aussi qui peut être interessant!! en terme de rapidite sur des grandes plages!!!!!
exemple "brut"

Code :

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

1
2
3
4
5
6
Dim m As Object, i As Long, z As Variant
       Set m = CreateObject("Scripting.Dictionary")
  For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
      z = Cells(i, 1)
     If Not m.Exists(z) And z <> "" Then m.Add z, z Else Rows(i).Delete
  Next