Trier une liste

[Hulk]

Hello tout le monde,

J'ai un petit souci avec une liste à trier.

Un poil difficile à expliquer, le mieux est de voir le fichier joint 😎

Sincères remerciements pour l'aide et bon weekend à tous 🙂

 

[BOISGONTIER]

Re : Trier une liste

Bonjour,

Voir pj

Sub essai()
  [C5:C15].ClearContents
  For Each c In Range("a2:A15")
    If IsError(Application.Match(c, [C2:C4], 0)) Then [C65000].End(xlUp).Offset(1) = c
  Next c
End Sub

JB

 

[david84]

Re : Trier une liste

Bonjour,
à tester :

Sub test()
  [C5:C15].ClearContents
  Set Pl = [A2:A15]
  a = [TRANSPOSE(COUNTIF(C2:C4, A2:A15))]
  j = 1
  Dim tabl()
  For i = LBound(a) To UBound(a)
    If a(i) = 0 Then
      ReDim Preserve tabl(1 To j)
      tabl(j) = Pl(i).Value: j = j + 1
      End If
    Next i
  [C5].Resize(UBound(tabl)) = Application.Transpose(tabl)
End Sub

A+

 

[Hulk]

Re : Trier une liste

Re,

Merci bien messieurs, c'est impec !

Sans vouloir te heurter David, préférence pour celle de Boisgontier 🙄 mais je garde les deux 😉

 

[david84]

Re : Trier une liste

Re

Sans vouloir te heurter David, préférence pour celle de Boisgontier mais je garde les deux

moi aussi mais c'était simplement pour tester une autre manière de faire en passant par Evaluate😉.
A+