Soucis avec les tris

Baside

XLDnaute Impliqué

• 14 Mai 2007

• #2

Re : Soucis avec les tris

Bonjour le Forum,

Le début de la macro modifié:

Range("A3: D" & Range("D65536").End(xlUp).Row).Select
Selection.Copy
Sheets("Analyse").Activate
Range("B5").Select
ActiveSheet.Paste
Range("B5:E" & Range("E65536").End(xlUp).Row).Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Cliquez pour agrandir...

Amicalement, Hervé.

 

Vote positif 0 Vote négatif

GGPS58

XLDnaute Occasionnel

• 14 Mai 2007

• #3

Re : Soucis avec les tris

Merci, mais cela ne fonctionne pas.
Votre macro copie et tri l'ensemble du tableau en conservant une correspondance linéaire.
Je souhaites classer individuellement chaque colonnes. Je n'ai plus besoin de la correspondance linéaire de ma feuil1.
Je continue à chercher.

 

Vote positif 0 Vote négatif

Baside

XLDnaute Impliqué

• 14 Mai 2007

• #4

Re : Soucis avec les tris

Re,

Pas bien réveillé alors, ou c'est ce maudit mal de tête...

Je regarde à nouveau.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 14 Mai 2007

• #5

Re : Soucis avec les tris

bonjour GGPS58

Salut Baside

Ta macro corrigée (xlNo au lieu de xlGuess) et en module 2 telle que je l'aurais ecrite

 

Pièces jointes

• test.zip

  16.7 KB · Affichages: 19
• test.zip

  16.7 KB · Affichages: 20
• test.zip

  16.7 KB · Affichages: 18

Vote positif 0 Vote négatif

Baside

XLDnaute Impliqué

• 14 Mai 2007

• #6

Re : Soucis avec les tris

Re,

Ah, j'allais mettre en ligne...

Trop tard lol

A plus

Je regarde ta solution

Ma solution est un peu différente, je faisais le tri avec une ligne de titre et cela met direct dans l'ordre.

 

Dernière édition: 14 Mai 2007

Vote positif 0 Vote négatif

GGPS58

XLDnaute Occasionnel

• 14 Mai 2007

• #7

Re : Soucis avec les tris

Merci à tous, cela fonctionne parfaitement.

 

Vote positif 0 Vote négatif