Trie automatique d'une colonne

[maval]

Bonjour

Je suis a la recherche d'un code VBA qui me permet de trier une colonne par ordre alpha de A à Z à chaque fois que je rentre un nom dans la colonne et en sachant qu'il peut y avoir des cellules vides.

Je vous remercie d'avance

Cordialement

Maval

 

[phlaurent55]

Re : Trie automatique d'une colonne

Bonjour maval,

avec ce code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E:E")) Is Nothing Then
    Columns("E:E").Select
    Range("E1").Activate
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("E4"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
       .SetRange Range("E1:E" & Range("E65535").End(xlUp).Row)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End If
End Sub

à+
Philippe

 

[maval]

Re : Trie automatique d'une colonne

Bonjour Philippe

Je te remercie Nickel

Bonne soirée

Max

 

[Regueiro]

Re : Trie automatique d'une colonne

Bonjour à Tous
Tester avec ce code, chez moi OK

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 And Target.Count = 1 Then
m = Target
[E2:E1000].Sort Key1:=[E2]
[E:E].Find(What:=m, LookIn:=xlValues).Select
End If
End Sub

A+

 

[maval]

Re : Trie automatique d'une colonne

Bonsoir Regueiro

Je te remercie, c'est exact qui fonctionne.

Bonne soirée

Max