classer par ordre alphabétique des données

[arkancylla]

Bonjour,
Je souhaite rentrer des données a partir d'une zone de texte dans une base de données excel. Je souhaite qu'apres chaque saisie les données se classent par ordre alphabétique.
Voici le code que j'utilise pour le classement:

public sub clsmt()
Rows('2:14000').Select
selection.Sort Key1:=Range('A2'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Le problème c'est que cela marche sur les quelques premieres lignes puis ca ne marche plus...
ou est mon erreur ou comment faire pour que cela marche meme si je dois employer une autre methode
merci de votre aide

 

[Hellboy]

Bonjour arkancylla

Je ne suis pas sur de celle-ci, mais à la place de
rows(2:14000).select essaie plutot ceci:
Columns('A:Z').Select
Je suppose ici que tu as 24 colonnes de données..

Philippe

 

[arkancylla]

merci mais ca ne marche toujours pas...

 

[Hellboy]

Bonjour arkancylla

Pourrais-tu nous envoyer ton fichier s.v.p.

Il se pourrais qu'il est plus à voir qu'il n'y parrait.

Phil :ermm:

 

[porcinet82]

salut,

je te propose autre chose, mais moi aussi au pifomètre, je dirais à la place de

rows(2:14000).select

mettre plutot

range('A2:A100').select

ens uposant que des données sont sur la plage de cellule A2:A100

@+

 

[ARKANCYLLA]

jve bien tenvoyer mon fichier mais je ne c pa ou te lenvoyer...

 

[porcinet82]

re,

pour envoyer le fichier, tu doi le zippé, ca taille doit etre inférieur a 50ko. lorsque tu tapes ton post, en bas tu peux joindre un fichier, tu fait parcourir, tu sélectionne ton fichier, et apres tu cliques sur le petit bouton a coté de parcourir ou il y a [fichier]

@+

 

[arkancylla]

meme en compressant ca fait 121ko...g voulu copier une partie de mon prog mais la je me suis apercu ke la procédure marchait, mais dans mon prog entier elle ne march pa...???