Trier

jeanpierre

Nous a quitté

Repose en paix

• 15 Décembre 2007

• #2

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

 

Vote positif 0 Vote négatif

O

Olyxier

XLDnaute Occasionnel

• 15 Décembre 2007

• #3

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

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 15 Décembre 2007

• #4

Re : Trier

Bonsoir

lorsque je lance la macro ça ne marche pas

Cliquez pour agrandir...

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

Code:

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

 

Vote positif 0 Vote négatif

O

Olyxier

XLDnaute Occasionnel

• 15 Décembre 2007

• #5

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

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 15 Décembre 2007

• #6

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

 

Vote positif 0 Vote négatif

O

Olyxier

XLDnaute Occasionnel

• 15 Décembre 2007

• #7

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

 

Dernière édition: 15 Décembre 2007

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 15 Décembre 2007

• #8

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

 

Vote positif 0 Vote négatif

O

Olyxier

XLDnaute Occasionnel

• 15 Décembre 2007

• #9

Re : Trier

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

 

Vote positif 0 Vote négatif