Tri en VBA

[Sylvain]

Bonjour à tous,

Dans un de mes fichiers, je me retrouve bloqué... Peut être arriverez vous à me débloquer.
Voici mon souci :
Je cherche après avoir complété un tableau le trier en fonction d'une cellule particulière mais je coince. Voici mon code

Sheets("Nom").Range(Cells(14, k - 1), Cells(last_op, k + 2)).Select
Selection.Sort Key1:=Sheets("Nom").Cells(14, k - 1), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

La sélection s'effectue correctement mais pas le tri. Le code est il faux ?

Merci pour votre aide
Sylvain

 

[Abel]

Bonjour Sylvain,

Je n'arrive pas à voir à quoi "DataOption" correspond.
Si ce n'est pas nécessaire, enlève le.

Si tu peux, remplace "Cell(x,y)" par "Range (machin)".

En espérant que cela te dépanne.

Abel.

 

[Sylvain]

Bonjour titi, le forum,

J'ai réussi à m'en soritr en modifiant le code :

Sheets("Nom").Range(Cells(14, k - 1), Cells(last_op, k + 2)).Select

Sheets("Nom").Cells(14, k - 1).Select

Selection.Sort Key1:=Sheets("Nom").Cells(14, k - 1), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

Je sais pas si c'est très correct mais ça marche...

Merci à toi titi, je vais tenter ta soluce !

 

[Sylvain]

Oups, je mélange les messages, je voulais saluer et remercier Abel, autant pour moi...