classement automatique croissant

L

loulou

Guest
bonjour, voila je cherche un moyen pour classer automatiquement les cellules d'une colonne par odre croissant sans avoir à cliké sur la barre d'outils
 

Omicron

XLDnaute Junior
Bonjour Loulou,

Tu obtiendras le résultat escompté en codant l'évènement Change de l'objet WorkBook de la façon suivante :

===============================================

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim Rng As Range

Sht = 'Feuil1' '<<<< A Adapter
Col = 'A' '<<<< A Adapter

Set Rng = Range(Sht & '!' & Col & ':' & Col)

If Sh.Name = Sht And Not Intersect(Target, Rng) Is Nothing Then _
Rng.Sort Key1:=Rng.Cells(1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

End Sub

================================================

Pense à adapter les paramètres 'Sht' et 'Col' en indiquant respectivement la feuille et la colonne à trier automatiquement.

Attention, comme tu l'as demandé, seule la colonne sera trieé, si tu veux trier un tableau ou les lignes entiière en prenant cette colonne pour clé, il faudra modifier légèrement cette macro. Fais moi signe.

Bye.


:) Omicron
 
M

mazolive

Guest
Bonjour Gérard,

je cherchais justement un moyen de faire des tris automatiques et j'ai en partie la soluce.
Maintenant, j'ai mon tableau au milieu de ma feuille et je ne voudrais trier que celui-ci sans que cela touche le reste.
Quels sont les paramêtres à changer dans la macro?

Merci
 

Statistiques des forums

Discussions
312 329
Messages
2 087 332
Membres
103 519
dernier inscrit
Thomas_grc11