Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Lister, sans doublons, et en ligne

  • Initiateur de la discussion Initiateur de la discussion Chubby
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 

Pièces jointes

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)
 
Dernière édition:
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
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
229
Réponses
14
Affichages
200
  • Question Question
XL 2021 Macro
Réponses
6
Affichages
319
Réponses
16
Affichages
556
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…