macro automatique tri alphabetique excel

[belette1970]

bonsoir, après de nombreux essais j'ai ma macro de tri alphabétique, mais je voudrais l'améliorer pour qu'elle s'exécute sans passer par un bouton ou exécuter macro. En fait que le tri s'effectue dès qu'une nouvelle cellule est ajoutée. mes données sont dans la colonne A, et sont complété au fur et à mesure.



Sub trialpha()

Dim Lg As Integer
Lg = Range("A65536").End(xlUp).Row
Range("a2:j" & Lg).Sort Key1:=Range("a2"), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False
End Sub


Merci pour votre aide.😎

 

[jmps]

Re : macro automatique tri alphabetique excel

Bonjour Belette,

Mets ton code dans le Worksheet_Change de ta feuille comme ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Dim Lg As Integer
Lg = Range("A65536").End(xlUp).Row
Range("a2:j" & Lg).Sort Key1:=Range("a2"), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False
End Sub

 

[BOISGONTIER]

Re : macro automatique tri alphabetique excel

Bonsoir,

http://boisgontierjacques.free.fr/fichiers/Tri/TriDynamique.xls

JB

 

[belette1970]

Re : macro automatique tri alphabetique excel

Bonjour Belette,

Mets ton code dans le Worksheet_Change de ta feuille comme ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Dim Lg As Integer
Lg = Range("A65536").End(xlUp).Row
Range("a2:j" & Lg).Sort Key1:=Range("a2"), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False
End Sub

Merci c'est nickel.