Tri automatique chiffres ordre croissant

[Jacky]

Bonjour a tous

Pourriez vous me dire comment faire un tri automatique de chiffre en ordre croissant. (j'aimerais que lorsque je rentre un nouveau chiffre dans ma liste, excel change automatiquement l'ordre pour le remettre croissant)

Merci par avance

 

[ChTi160]

Salut jacki
bonjour le Forum
voilà ma vision de la chose dans le module de la feuil1 'Objet Worksheet ' procédure 'Change'

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ws As Worksheet
Dim derlgn As Byte
Dim maplage As Range
Set Ws = Worksheets('Feuil1')

Application.ScreenUpdating = False

With Ws
      derlgn = .Range('A100').End(xlUp).Row 'recherche la dernieère a partir de la ligne 100

 Set maplage = .Range('A2:A'  & derlgn)     'définis la plage

    If Not Intersect(Target, maplage) Is Nothing Then 'si la modification est dans la plage alors
     'trier la plage sinon rien
    maplage.Sort Key1:=.Range('A2'), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

    End If
End With
Application.ScreenUpdating = True
End Sub

Message édité par: ChTi160, à: 23/05/2005 11:31

 

[Ti_]

sur Vériti j'ai mis une démo 'Tris automatiques sans macros' présentant des méthodes de tris sans macros sur une ou plusieurs colonnes

Ce lien n'existe plus

 

[Jacky]

Je te remercie bienpour ton aide