trier

[cmarleau]

Bonjour Cher (ère) excellien(ne),

J'ai une base de donnée d'environ 500 noms, J'aimerais qu'`la fermeture du classeur, pouvoir trier automatiquement les clents.

merci de m'éclairer
christian [file name=base.zip size=1830]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/base.zip[/file]

 

[olive2.5]

Salut,
j'ai bien saisi ton pb, mais selon quel critère veux-tu trier?

 

[CBernardT]

Bonsoir Cmarleau et Olive2.5,

Je suppose que le tri est en ordre croissant de l'alphabet.

Macro à placer dans le module de classeur :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets('Feuil1').Range('A2:K19').Sort Key1:=Range('B2'), Order1:=xlAscending
End Sub

Cordialement

Bernard

 

[olive2.5]

En fait, je demandais sur quelle critère (société, nom,...) tu voulais que le tri se fasse.
Pour éviter d'avoir à changer le nombre de lignes, voici ce que je te propose:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
derligne = Range('A2').End(xlDown).Row
Range(Cells(2, 1), Cells(derligne, 11)).Select
Selection.Sort Key1:=Range('B2'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

 

[cmarleau]

Bonjour,

J'ai trouver une formule qui fonctionne avec macro, celle-ci trie parfaitement la colonne A (société), J'aimerais y ajouter la colonne B (NOm)

Merci de m'aider

Sub test()

'ordre alphabetique
Sheets('Feuil1').Range('A8:K19').Sort Key1:=Range('A8')




End Sub

 

[CBernardT]

Bonsoir Cmarleau et Olive2.5,

Pour ajouter une condition (Le tri d'Excel en permet trois en série) tu peux le réaliser en réalisant l'enregistrement automatique de l'opération. Suite à cela, tu simplifies le code le cas échéant.
Par contre ne supprimes pas Order1:=xlAscending

Cordialement

Bernard

 

[cmarleau]

Bonsoir et merci de l'aide apporter.

je ne comprends pas tr`s bien ta réponse, je sis débutant, lorsque tu mentionnes, 'tu peux le réaliser en réalisant l'enregistrement automatique de l'opération. Suite à cela, tu simplifies le code le cas échéant'.. Comment? ajouter une condition.

Moi, j,aimerais réaliser la même action , lorsque j'utilise Trier, croissant, (Société), deuxième condition, croissant, (Nom)

donc, si cela trier de façon croissante la cellule A,
Sheets('Feuil1').Range('A8:K19').Sort Key1:=Range('A8'),

comment y ajouter une deuxième condition?

Encore milles excuses de ne pas comprendre, je débute.

Merci de ton aidre
christian