Bonjour hervé, bonjour Mjo
J'ai bien récupéré votre code. à priori cela fonctionne
j'ai fais évidemment quelques modifs pour l'adapter à ma vrai base
ça fonctionne, j'espère ne pas avoir perverti votre code
Sub Bouton1_QuandClic()
Dim c As Range
Dim data As New Collection
Dim i As Integer, j As Integer
Dim t1, t2
On Error Resume Next
For Each c In Range("d2:d" & Range("d600").End(xlUp).Row)
data.Add c.Value, CStr(c.Value)
Next c
On Error GoTo 0
For i = 1 To data.Count - 1
For j = i + 1 To data.Count
If data(i) > data(j) Then
t1 = data(i)
t2 = data(j)
data.Add t1, before:=j
data.Add t2, before:=i
data.Remove i + 1
data.Remove j + 1
End If
Next j
Next i
For i = 1 To data.Count
Range("H" & i + 2) = data(i)
Next i
End Sub
En fait, je voulais une liste à jour des Centre de frais qui sont distribués par personne. Dans une liste il peut y avoir plusieurs fois le même centre de frais parce qu'il y a plusieurs personnes sur un seul centre de frais et bien sûr un centre de frais aloué à une personne peut aussi changer.
Cela va me servir après pour préparer une écriture automatique avec un total par centre de frais.
et plus tard je vais pouvoir consolider par mois, par personne et par centre de frais.
Je ne sais pas si je suis clair ?
En tout cas, je vous remercie beaucoup.
cheechwizard