suprimer des lignes de chiffre en doublon

[desire]

bonjour,
dans un tableau de excell comment supprimer des lignes de chiffres en double sans supprimer les autres
voici une liste exemple ( dans le tableau j'ai plus de 20 mille ligne)
26 32 38
26 32 0
26 38 39
26 39 0
38 39 0
3 3 10 a supprimer
3 3 32idem
3 3 35idem
3 3 47idem
3 3 0idem
3 10 32
3 10 47
3 32 35
3 32 47
3 32 0
3 35 47
3 47 0
merci pour vos reponse

 

[Paritec]

Re : suprimer des lignes de chiffre en doublon

Bonjour desiré le forum
tu me fais un petit fichier avec une centaine de lignes, tu le joins au post et je te fais cela
a+
Papou

 

[desire]

Re : suprimer des lignes de chiffre en doublon

bonjour, voici un fichier joint avec un exemple de 100 ligne merci

 

[laetitia90]

Re : suprimer des lignes de chiffre en doublon

bonjour desire ,papou

comme je comprends a adapter

Sub es()
 Dim t(), t1(), i As Long, c As Byte
  Application.ScreenUpdating = 0
  t = Range("a2:c" & Cells(Rows.Count, 1).End(3).Row)
  ReDim t1(1 To UBound(t), 1 To 3)
  For i = 1 To UBound(t)
  If t(i, 1) <> t(i, 2) Then
  x = x + 1
  For c = 1 To 3: t1(x, c) = t(i, c): Next c
  End If
  Next i
  Range("a2:c" & Cells.Find("*", , , , , xlPrevious).Row).ClearContents
  Range("a2").Resize(x, 3) = t1
End Sub

 

[Paritec]

Re : suprimer des lignes de chiffre en doublon

Bonjour Desire Laetitia
juste pour te saluer Laetitia
a+
Papou

 

[desire]

Re : suprimer des lignes de chiffre en doublon

merci
cela me supprime tous les doublons sauf ceux inscrit comme ceci
3 9 9

 

[Paritec]

Re : suprimer des lignes de chiffre en doublon

Re Bonjour Désire Laetitia le forum
bon alors, oui il fallait deviner qu'il fallait comparer les trois colonnes et pas les deux premières comme dans l'exemple !!!
a+
Papou

Sub es()
 Dim t(), t1(), i&, c&, x&
  Application.ScreenUpdating = 0
  t = Range("a2:c" & Cells(Rows.Count, 1).End(3).Row)
  ReDim t1(1 To UBound(t), 1 To 3)
  For i = 1 To UBound(t)
  If t(i, 1) <> t(i, 2) And t(i, 3) <> t(i, 2) And t(i, 3) <> t(i,1) Then
  x = x + 1
  For c = 1 To 3: t1(x, c) = t(i, c): Next c
  End If
  Next i
  Range("a2:c" & Cells.Find("*", , , , , xlPrevious).Row).ClearContents
  Range("a2").Resize(x, 3) = t1
End Sub

 

[desire]

Re : suprimer des lignes de chiffre en doublon

bonjour, merci je m'excuse de ne pas avoir été plus explicite. bonne journée