Tri alphabétique en vba
89ric
Messages postés
10
Statut
Membre
-
89ric Messages postés 10 Statut Membre -
89ric Messages postés 10 Statut Membre -
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.
4 réponses
-
Bonjour,
Peux-tu nous mettre la formule insérée dans les cellules de la colonne B?
Bonne journée -
Bonjour, la formule dans la cellule B5 est : =MAJUSCULE(Saisie!B33)
Merci! -
-
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.
