Tri alphabétique en vba
89ric
Messages postés
10
Date d'inscription
Statut
Membre
Dernière intervention
-
89ric Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
89ric Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je me tourne de nouveau vers vous pour m'aider à programmer un code me permettant de faire un tri alphabétique par exemple sur la feuil4 dans une plage déterminée (a5:s36) selon une colonne B mais uniquement sur les lignes non vides. J'ai bien essayé sans macro mais comme il y a des formules dans les cellules vides, il me m'est en premier les cellules vides.
Pouvez-vous m'aider?
Merci.
je me tourne de nouveau vers vous pour m'aider à programmer un code me permettant de faire un tri alphabétique par exemple sur la feuil4 dans une plage déterminée (a5:s36) selon une colonne B mais uniquement sur les lignes non vides. J'ai bien essayé sans macro mais comme il y a des formules dans les cellules vides, il me m'est en premier les cellules vides.
Pouvez-vous m'aider?
Merci.
A voir également:
- Tri alphabétique en vba
- Comment trier par ordre alphabétique sur excel - Guide
- Logiciel tri photo - Guide
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? ✓ - Forum Bureautique
- Ajoutez à la liste de contacts ana le goff, inscrite le 27 novembre 2015, dans la catégorie i. puis triez les contacts en les classant : par ordre alphabétique de leur nom de famille (critère principal), puis par date du plus récent au plus ancien (critère secondaire). quel mot apparaît à la verticale dans la colonne "catégorie" entre les lignes 200 et 209 (en-tête compris) ? ✓ - Forum Word
- Incompatibilité de type vba ✓ - Forum Programmation
4 réponses
Bonjour,
Je viens d'essayer une macro que j'ai trouvé et modifié. Je l'ai essayé sur une feuille (1° trimestre) mais elle m'indique une erreur et surtout elle me place toujours les cellules vides en premier.
Sub Trialphabétique()
Dim ShtS As Worksheet
' Définir le nom de la feuille de saisie
Set ShtS = Sheets("1° Trimestre")
' En Cas d'erreur on continue
On Error Resume Next
' Selectionne la première cellule du tableau
Range("b5").Select
' Boucle tant que pas vide
nbligne = 0
Do While Not (IsEmpty(ActiveCell))
nbligne = nbligne + 1
Selection.Offset(5, 0).Select
Loop
nbligne = Range(Cells(2, 5), Cells(2, 5).End(xlDown)).Rows.Count
Range(Cells(2, 5), Cells(18, nbligne)).Select
Range("b5:s5").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("b5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Merci pour votre aide.
Je viens d'essayer une macro que j'ai trouvé et modifié. Je l'ai essayé sur une feuille (1° trimestre) mais elle m'indique une erreur et surtout elle me place toujours les cellules vides en premier.
Sub Trialphabétique()
Dim ShtS As Worksheet
' Définir le nom de la feuille de saisie
Set ShtS = Sheets("1° Trimestre")
' En Cas d'erreur on continue
On Error Resume Next
' Selectionne la première cellule du tableau
Range("b5").Select
' Boucle tant que pas vide
nbligne = 0
Do While Not (IsEmpty(ActiveCell))
nbligne = nbligne + 1
Selection.Offset(5, 0).Select
Loop
nbligne = Range(Cells(2, 5), Cells(2, 5).End(xlDown)).Rows.Count
Range(Cells(2, 5), Cells(18, nbligne)).Select
Range("b5:s5").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("b5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Merci pour votre aide.
