Tri alphabétique vba
Résolu/Fermé
raoulmenard
Messages postés
23
Date d'inscription
mardi 28 octobre 2014
Statut
Membre
Dernière intervention
15 mars 2016
-
29 oct. 2014 à 10:28
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
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
A voir également:
- Tri vba
- Tri excel - Guide
- Incompatibilité de type vba ✓ - Forum Programmation
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Vba dernière colonne non vide ✓ - Forum VB / VBA
- Logiciel de tri de photos - Guide
4 réponses
PlacageGranby
Messages postés
393
Date d'inscription
mercredi 26 mars 2014
Statut
Membre
Dernière intervention
7 mars 2019
26
Modifié par PlacageGranby le 31/10/2014 à 13:39
Modifié par PlacageGranby le 31/10/2014 à 13:39
Mon erreur
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
PlacageGranby
Messages postés
393
Date d'inscription
mercredi 26 mars 2014
Statut
Membre
Dernière intervention
7 mars 2019
26
Modifié par PlacageGranby le 30/10/2014 à 15:38
Modifié par PlacageGranby le 30/10/2014 à 15:38
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
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
raoulmenard
Messages postés
23
Date d'inscription
mardi 28 octobre 2014
Statut
Membre
Dernière intervention
15 mars 2016
31 oct. 2014 à 08:48
31 oct. 2014 à 08:48
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é.
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é.
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
3 nov. 2014 à 17:32
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é
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é
