[RESOLU] Trier un tableau en VBA

Roland_M

XLDnaute Barbatruc

• 12 Janvier 2014

• #2

Re : Trier un tableau en VBA

bonsoir,

EDIT: modifié pour 2003 !

Code:

Lig = 6 '< ici ta ligne et l'entête en B3 !
 Sheets("BDPMT").Select
 R1$ = "B3": R$ = R1$ & ":I" & Lig
 Range(R$).Select
 Selection.Sort Key1:=Range(R1$), Order1:=xlAscending, _
   Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

 

Dernière édition: 12 Janvier 2014

Vote positif 0 Vote négatif

kingfadhel

XLDnaute Impliqué

• 12 Janvier 2014

• #3

Re : Trier un tableau en VBA

Bonsoir,


UNE PETITE FAUTE DANS TON CODE:


.Range("B:I" & Lig).Sort .[B3], xlDescending, Header:=xlYes 'tri alphabétique


.Range("B3:I" & Lig).Sort .[B3], xlDescending, Header:=xlYes 'tri alphabétique

xlAscending pour tri croissant de A à Z
xlDescending ==> decroissant donc de Z à A

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 12 Janvier 2014

• #4

Re : Trier un tableau en VBA

Bonsoir Ternoise, Roland et le Forum.

Peut-être comme ceci, le tri étant "Descending".

End With

Range("B3:I" & Lig).Select
Selection.Sort Key1:=Range("B3"), Order1:=xlDescending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

A+

René

Edit: Bonsoir Kingfadhel

 

Dernière édition: 12 Janvier 2014

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 12 Janvier 2014

• #5

Re : Trier un tableau en VBA

re

revoir j'ai modifié !

 

Vote positif 0 Vote négatif

T

Ternoise

XLDnaute Occasionnel

• 12 Janvier 2014

• #6

Re : Trier un tableau en VBA

Bonsoir et merci Roland

Je suis en version 2003. Toutefois j'ai, dans un premier temps, lancé l'enregistreur de macro. mais je pense qu'il y a beaucoup plus simple comme ligne !

Merci toutefois de ton aide
David

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 12 Janvier 2014

• #7

Re : Trier un tableau en VBA

bonsoir à vous !

les messages se sont croisés ...
@ ternoise !
reprendre le code il est modifié !

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 12 Janvier 2014

• #8

Re : Trier un tableau en VBA

re

sous 2003 et simplifié !

Code:

Lig = 6 '< ici ta ligne et l'entête en B3 !
Sheets("BDPMT").Select
R1$ = "B3": R$ = R1$ & ":I" & Lig
Range(R$).Select
Selection.Sort Key1:=Range(R1$), Order1:=xlAscending, _
  Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

 

Vote positif 0 Vote négatif

T

Ternoise

XLDnaute Occasionnel

• 12 Janvier 2014

• #9

Re : Trier un tableau en VBA

Merci à tous
Je prend l'option de Kingfadhel

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 12 Janvier 2014

• #10

Re : [RESOLU] Trier un tableau en VBA

salut

Si... la ligne 3 est une ligne de titres, tu peux te contenter de

Code:

.[B4:I65000].Sort .[B4], 2 'ou 1

 

Vote positif 0 Vote négatif

T

Ternoise

XLDnaute Occasionnel

• 13 Janvier 2014

• #11

Re : [RESOLU] Trier un tableau en VBA

Bonsoir et merci Si...
Dsl du retard de réponse

 

Vote positif 0 Vote négatif