suprimer des lignes de chiffre en doublon

desire · 16 Décembre 2014

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 · 16 Décembre 2014

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 · 16 Décembre 2014

Re : suprimer des lignes de chiffre en doublon

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

laetitia90 · 16 Décembre 2014

Re : suprimer des lignes de chiffre en doublon

bonjour desire ,papou

comme je comprends a adapter

Code:

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 · 16 Décembre 2014

Re : suprimer des lignes de chiffre en doublon

Bonjour Desire Laetitia
juste pour te saluer Laetitia
a+
Papou

desire · 16 Décembre 2014

Re : suprimer des lignes de chiffre en doublon

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

Paritec · 16 Décembre 2014

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

Code:

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 · 21 Décembre 2014

Re : suprimer des lignes de chiffre en doublon

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

suprimer des lignes de chiffre en doublon

desire

XLDnaute Nouveau

Paritec

XLDnaute Barbatruc

desire

XLDnaute Nouveau

Pièces jointes

laetitia90

XLDnaute Barbatruc

Paritec

XLDnaute Barbatruc

desire

XLDnaute Nouveau

Paritec

XLDnaute Barbatruc

Pièces jointes

desire

XLDnaute Nouveau

Discussions similaires