classer par ordre alphabétique des données

classer par ordre alphabétique des données - VB/VBA/VBS - Programmation

Marsh Posté le 02-05-2005 à 14:33:19    

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 une fois les données rentrées:
 
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


---------------
Arkancylla
Reply

Marsh Posté le 02-05-2005 à 14:33:19   

Reply

Marsh Posté le 03-05-2005 à 02:07:09    

Qu'appelles-tu quelques lignes?
 
J'ai testé ton code sur 80 lignes et pas de problème.
 
Tu peux toujours essayer sous cette forme (nettoyée des éléments inutiles):

Public Sub clsmt()
  Cells.Select
  Selection.Sort Key1:=[A1], Header:=xlYes
End Sub

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed