Discussion :

[sam01]

Bonjour à tous,

je sais comment supprimer les colonnes en double sur excel (facile ) par contre je ne sais pas comment conserver toutes les données qui ne sont pas en double.

En gros j'aimerais supprimer tout ce qui est double et même l'original afin de ne garder que les lignes qui ne sont pas en double.

Merci d'avance pour votre aide.

[QuestVba]

Bonjour,

J'ai déjà utiliser le code suivant. Dans ta feuille1, tu as ta liste et le code vérifie ici trois colonnes et supprime tout ce qui est identique et le copie dans la feuille résultat

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
Sub SupDoublons()
  Application.ScreenUpdating = False
  Set f1 = Sheets("feuil1")
  a = f1.Range("A1").CurrentRegion.Value
  Set mondico = CreateObject("Scripting.Dictionary")
  Set mondico2 = CreateObject("Scripting.Dictionary")
  For i = 1 To UBound(a)
    temp = a(i, 1) & a(i, 2) & a(i, 3)
    mondico(temp) = mondico(temp) + 1
  Next
  For i = 1 To UBound(a)
    temp = a(i, 1) & a(i, 2) & a(i, 3)
    If mondico.Item(temp) = 1 Then mondico2(temp) = i
  Next
  Dim c()
  ReDim c(1 To mondico.Count, 1 To UBound(a, 2))
  ligne = 1
  For Each i In mondico2.items
     For k = 1 To UBound(a, 2): c(ligne, k) = a(i, k): Next k
     ligne = ligne + 1
  Next i
  Sheets("résultat").[A1].Resize(mondico.Count, UBound(a, 2)) = c
  Sheets("résultat").Select
End Sub

[sam01]

Merci QuestVba.

Je l'ai adapté pour une colonne.