OVH Cloud OVH Cloud

Tri

1 réponse
Avatar
Kat
Bonjour tout le monde !!

je voudrais trier ce tableau par ordre croissant de la=20
colonne A et =E7a ne marche pas !!

Total.Activate
Total.Columns("A:E").Select
Selection.Sort Key1:=3DRange("A1"), Order1:=3DxlAscending,=20
Header:=3DxlGuess,OrderCustom:=3D1, MatchCase:=3DFalse,=20
Orientation:=3DxlTopToBottom

merci de me venir en aide

Bonne journ=E9e,

Kat

1 réponse

Avatar
Dédé
Salut Kat !

Tu sélectionne une cellule de la colonne concernée (A)
du démarre l'enregistreur de macro et tu cliques sur le bouton de ta barre
doutil qui te sert à trié en ordre croissant ... (A-Z) ...

Ensuite, tu arrête l'enregistreur de macro et tu va regarder la macro qu'il
t'a concocté ...

normalement, cela devrait ressembler à cela :
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 17.09.2003 par Dédé
'
Range("A1:E7").Sort Key1:=Range("A4"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub


Que tu pourrais simplifier de la façon suivante :
Sub Macro1()
Range("A:A").Sort Key1:=Range("A4"), Order1:=xlAscending
End Sub

Est-ce que cela te convient ?

Salutations
Dédé

--
Pour répondre, enlever le NOSPAM
"Kat" a écrit dans le message de
news:0b8e01c37d18$ef8c1cd0$
Bonjour tout le monde !!

je voudrais trier ce tableau par ordre croissant de la
colonne A et ça ne marche pas !!

Total.Activate
Total.Columns("A:E").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending,
Header:=xlGuess,OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom

merci de me venir en aide

Bonne journée,

Kat