Trier

[Olyxier]

Bonsoir le forum

quel code faut il pour trier en ordre decroissant cette Range("EH10:EH23")

merci et bonne soirée

 

[jeanpierre]

Re : Trier

Bonsoir Olyxier,le forum,

As-tu essayé l'enregisteur de macro ?

Outils/Macro/Nouvelle macro,

Tu y fais ce que tu veux... tu stop... et c'est bon...

A te lire pour plus si besoin...


Jean-Pierre

 

[Olyxier]

Re : Trier

oui biensur mais je tri des valeurs que je recopie ou que j'ai couper avec des macros et avec l'enregistreur lorsque je lance la macro ça ne marche pas
cordialement

 

[Banzai64]

Re : Trier

Bonsoir

lorsque je lance la macro ça ne marche pas

Ele ne fait pas ce qu'il faut ou elle bloque ?

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 15/12/2007 par Moi
'

'
    Range("EH10:EH23").Select
    Selection.Sort Key1:=Range("EH10"), Order1:=xlDescending, Header:=xlGuess _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Tu dois avoir un genre de macro comme celle-ci
Elle fonctionne même en changeant des valeurs dans la plage EH10:EH23

Il faut en dire plus et/ou joindre un fichier dans les conditions habituelles pour que l'on puisse t'aider

 

[Olyxier]

Re : Trier

voici le code que j'ai enregistré

Range("GH51:GH70").Select
Application.CutCopyMode = False
Selection.Cut
Range("GK51").Select
ActiveSheet.Paste
Range("GE51:GE70").Select
Selection.Cut
Range("GL51").Select
ActiveSheet.Paste
Range("GK51:GL70").Select
ActiveWorkbook.Worksheets("3").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("3").Sort.SortFields.Add Key:=Range("GK51"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("3").Sort
.SetRange Range("GK51:GL70")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
mais il ne marche pas à chaque fois

 

[Banzai64]

Re : Trier

Re

Heuuh c'est quoi comme version d'excel ?
Il y a des propriétés que mon mien (2003) ne reconnait pas
ActiveWorkbook.Worksheets("3").Sort.SortFields.Clear

A te lire

 

[Olyxier]

Re : Trier

la version est 2007 mais les codes que j'utilisais sur 2003 marche
mais ma question est plus simple
peut on en cliquant sur un bouton declancher un macros qui tris en ordre decroissant une colonne.????????????????
voila merci

 

[Banzai64]

Re : Trier

Re
Oui il y a une certaine compatibilité ascendante (un programme fait avec XL 2003 à de très fortes chances (quoique) de fonctionner avec XL 2007) mais un programme développé sous 2007 a beaucoup moins de chance de fonctionner avec une version antérieure

Mon programme bloque sur cette ligne

ActiveWorkbook.Worksheets("3").Sort.SortFields.Clear

avec comme erreur:
Erreur d'exécution '438'
Propriété ou méthode non gérée par cet objet

Pour ta question rouge : Bien sur

 

[Olyxier]

Re : Trier

ok je vais essayer autrement merci quand meme bonne soirée