Afficher liste dans l'ordre que l'on inscrit

[dolphin]

Bonjour forum,


J'ai une macro qu'un gentil membre du forum m'a aidé à faire.


Voici ma nouvelle problèmatique : J'aimerais que les items que l'on sélectionne s'inscrivent dans le 2e onglet dans l'ordre que l'on sélectionne.

Ma liste d'item en contient 3000. Si je sélectionne l'item 25 - 5 - 10 -200 etc... J'aimerais qu'ils s'inscrivent dans cette ordre et non 5 - 10 - 25 - 200 ( C'est ce qu'il fait en ce moment )

Je vous ai en attachement un fichier ( très limité) contenant la macro qui permet de retranscrire les items.

Merci de tout votre collaboration et de votre aide, je l'apprécie toujours.

Bye.


Dolphin

 

[Sylvie]

Bonjour Dolphin,

 

[Sylvie]

...
tu as oublié de joindre ton fichier

Sylvie

 

[dolphin]

Bonjour Foum,


Désolé de cette omission...


Bye

 

[dolphin]

Bonjour Forum,



Voici le code :


Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Dim l As Integer
If Not Application.Intersect(Target, Range('a4:a2000')) Is Nothing Then
Sheets('proposition').Range('b12:d42').ClearContents
For Each c In Range('a4:a2000')
If c.Value <> '' And c.Value <> 0 Then
l = Sheets('proposition').Range('b42').End(xlUp).Row + 1
Range(Cells(c.Row, 1), Cells(c.Row, 3)).Copy Destination:=Sheets('proposition').Range('b' & l)
End If
Next c
Else
Exit Sub
End If

End Sub



Merci de votre aide et de votre collaboration,


Bonne journée





Dolphin