Tri alphabétique vba
Résolu
raoulmenard
Messages postés
23
Statut
Membre
-
raoulmenard Messages postés 23 Statut Membre -
raoulmenard Messages postés 23 Statut Membre -
Bonjour,
j'ai créé un tableau excel a deux feuil.sur la feuil1 j'ai créé un formulaire de saisi classique qui ajoute les données sur la feuil2 en A1 et B1 .la colonne a répertorie une ville et la B un parcours.par exemple en A1 "paris" et en B1 "bords de la seine". Les données saisie dans le formulaire Userform s'ajoute en dessous a chaque saisie.je souhaiterai que les données saisies se mettent dans l'ordre alphabétique automatiquement.J'ai fait divers recherches dans les forum mais je n'ai pas réussi a mettre en application ce que j'ai trouvé.Le souci viens en fait de la sélection qui varie a chaque donnée ajoutée.Si quelqu'un peut m'aider ce serait sympa merci d'avance.
j'ai créé un tableau excel a deux feuil.sur la feuil1 j'ai créé un formulaire de saisi classique qui ajoute les données sur la feuil2 en A1 et B1 .la colonne a répertorie une ville et la B un parcours.par exemple en A1 "paris" et en B1 "bords de la seine". Les données saisie dans le formulaire Userform s'ajoute en dessous a chaque saisie.je souhaiterai que les données saisies se mettent dans l'ordre alphabétique automatiquement.J'ai fait divers recherches dans les forum mais je n'ai pas réussi a mettre en application ce que j'ai trouvé.Le souci viens en fait de la sélection qui varie a chaque donnée ajoutée.Si quelqu'un peut m'aider ce serait sympa merci d'avance.
4 réponses
-
Mon erreur
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom -
Il faudrait ajouter un tri sur le bouton du userform pour trier a chaque ajout.
Si tu a une entête, tu peux trouver la dernière ligne x ayant des données et trier
(Dans cet exemple, ton tableau commence à la 3ieme ligne)
Dim X as integer
X = Cells(3, 1).End(xlDown).Row
Range("A3:B" & X).Select
Selection.Sort Key1:=Range("A"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Modifie le 3 partout pour la ligne ou commence ton tableau -
bonjour.
j'ai fait un essai rapide pour l'instant j'ai juste modifié le 3 en 2 j'obtient une erreur 1004 avec message (la méthode 'range' de l'objet '_worksheet' a echoué)
en attendant merci beaucoup j'ai deja avancé. -
Bonjour.
Merci ca fonctionne parfaitement j'ai rajouté la formule que vous m'avez donné sur le bouton "VALIDER" qui permet la saisie de mes données comme ça quand je valide le tri s'effectue automatiquement puis ferme l'userfom
merci pour votre efficacité
