Comment trier une colonne à longueur variable
Bonsoir, j'aimerais savoir de quel façon simple dont je pourais trier une colonne qui a une longueur variable (donc selectionner toute la colonne ou presque) et en extraire seulement les résultats et non les espaces vides ou les zéro.
voici un exemple court du fichier:
https://www.excel-pratique.com/~files/doc/lMvWXessai.xls
Merci beaucoup.
Fran6
Bonjour,
Tu cliques sur l'entête de ta colonne (C) pour sélectionner la colonne entière et tu fais DONNEES - TRIER (ou clique sur l'icone AZ)
Amicalement
Nad
Merci,
mais je voudrais pouvoir trier de façon croissante sans que les espaces vides soient au début.
En plus j'aimerais extraire par formule les cellules non vides. je veux dire que dans la colonne A j'aimerais copier seulement les données triées ,sans cellules vides.
Merci
hello
tu filtres selon "non vide" avant de trier
croyez-vous qu'il est possible d'effectuer cette tâche mais de façon plus automatisé plutôt que de filtrer manuellement et trier manuellement? Soit par une fonction, ou du VB (je connais moins mais je pourrais m'en arranger)
Merci.
Bonjour
Si je me base sur ton fichier d'origine, veux-tu seulement trier en gardant toutes les données (sans les blancs) ou bien trier avec des données uniques (sans les doublons et sans les blancs) ?
A te relire
Amicalement
Nad
Bonjour, je ne veux que les données sans les doublons ni les espaces blanc ou zéro s'il y a lieu.
Merci
Fran6
re à tous
si tu sais faire en manuel, utilise l'enregistreur de macro.
9 fois sur 10 la macro enregistrée fonctionne bien.
Bonjour,
regarde le fichier joint
le code :
Sub unique()
Application.ScreenUpdating = False
Dim Uniques As Object, Cel As Range
Set Uniques = CreateObject("Scripting.Dictionary")
For Each Cel In Range("C5:O22")
If Not Uniques.Exists(Cel.Value) And Cel.Value <> "" And Cel.Value <> 0 _
Then Uniques.Add Cel.Value, Cel.Value
Next Cel
Columns(1).ClearContents
Range("A1:A" & Uniques.Count).Value = Application.Transpose(Uniques.items)
With Columns("A:A")
.Copy
.Insert Shift:=xlToRight
.Replace What:="-", Replacement:="", LookAt:=xlPart
Columns("A:B").Sort Key1:=Range("B1"), Order1:=xlAscending
.Delete Shift:=xlToLeft
End With
End SubLe fichier :
Merci beaucoup!
Vous avez répondu à mes questions.
Francis