Tri alphabétique vba [Résolu/Fermé]

Messages postés
23
Date d'inscription
mardi 28 octobre 2014
Statut
Membre
Dernière intervention
15 mars 2016
- - Dernière réponse : raoulmenard
Messages postés
23
Date d'inscription
mardi 28 octobre 2014
Statut
Membre
Dernière intervention
15 mars 2016
- 3 nov. 2014 à 17:32
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.
Afficher la suite 

4 réponses

Messages postés
394
Date d'inscription
mercredi 26 mars 2014
Statut
Membre
Dernière intervention
7 mars 2019
13
0
Merci
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
Messages postés
23
Date d'inscription
mardi 28 octobre 2014
Statut
Membre
Dernière intervention
15 mars 2016
0
Merci
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é.
Messages postés
394
Date d'inscription
mercredi 26 mars 2014
Statut
Membre
Dernière intervention
7 mars 2019
13
0
Merci
Mon erreur

Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Messages postés
23
Date d'inscription
mardi 28 octobre 2014
Statut
Membre
Dernière intervention
15 mars 2016
0
Merci
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é