Lister, sans doublons, et en ligne

Chubby

XLDnaute Impliqué
Bonsoir à tous,

Malgré mes recherches sur le forum, merci à vous, je n'arrive pas à trouver de formule pour trier dans une liste sur une ligne.
J'ai vu des choses très intéressantes mais toutes sont pour des colonnes et pour certaines demandes la 1ère ligne vide. Enfin, tout ça pour dire que je cale.
Je vous joins un bout de fichier.
Merci à vous
 

Fichiers joints

Staple1600

XLDnaute Barbatruc
Re : Lister, sans doublons, et en ligne

Bonsoir

J'ai une suggestion
1) Sélectionnes ton tableau
2) Edition-> Copier ensuite positionnes toi dans une cellule vide -> Collage Spécial/Transposé
3) Trie ce nouveau tableau
4) Fais un sous-total (Dans le menu: Données/Sous-total)
stot.gif
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Re : Lister, sans doublons, et en ligne

Re


Je te mets en VBA l'équivalent de ce que j'ai décris dans mon premier message

Code:
Sub test_ok()
    Range("C1:H7").Copy
    Sheets("Feuil2").[A1].PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Application.CutCopyMode = False
    Sheets("Feuil2").Activate
    [A1].CurrentRegion.Sort Key1:=Range("F2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    [A1].CurrentRegion.Subtotal GroupBy:=6, Function:=xlSum, TotalList:=Array(7), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    ActiveSheet.Outline.ShowLevels RowLevels:=2
    Range("F9").Columns.AutoFit
    Range("F10").Select
End Sub
 

Chubby

XLDnaute Impliqué
Re : Lister, sans doublons, et en ligne

Bonjour Staples, bonjour le forum,
Je te remercie Staples de t'être penché sur mon problème. La solution du transposé me semblait assez appropriée. Sinon qu'elle nécessite des manipulations, et c'est bien l'avantage de ton code vba. Seulement voilà ce fichier doit être manipulé par des personnes peut enclines à l'utilisation d'XL.
Voilà pourquoi si tu, ou d'autres, avais une formule avec index;min je suppose je serais sauvé.
Je regarde encore à droite et à gauche.
Merci encore à vous tous et bonne journée
 

Chubby

XLDnaute Impliqué
Re : Lister, sans doublons, et en ligne

Bonsoir Cisco, bonsoir les zotres,
Je reconnais bien là la patte de l'orfèvre. Ca marche vraiment tip top. Je regarde ça de plus près pour m'en imprégner.
Merci encore à toi Cisco.
Chubby
 

Discussions similaires


Haut Bas