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

Effectuer un tri par groupe de celulles... Casse tête !

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 !

francois75

XLDnaute Nouveau
Bonjour à tous,

Je recherche à effectuer un tri croissant par prix de la référence "générique" (se terminant par "-") mais sans défaire les "groupes" de références.
Un peu compliqué à exprimer mais en gros le seul critère de tri doit être le prix de la réf génériques et les autres lignes doivent suivre mais ne pas être séparées...
Je ne peux pas grouper manuellement les lignes sachant que dans mon cas il y en a des milliers.

Ce sera plus clair avec l'exemple ci-joint.

Si quelqu'un pouvait m'aider...?
Recevez par avance toute mon immense gratitude (et admiration au passage 🙂)

MERCI !
François
 

Pièces jointes

Re : Effectuer un tri par groupe de celulles... Casse tête !

Merci beaucoup !!!!

Cela ne fonctionne pas sur mon fichier mais c'est entièrement ma faute car en créant un fichier exemple, les paramètres changent et faussent le problème.
Ci-joint le vrai format.

Oserais-je abuser et demander votre aide à nouveau ?

Merci encore pour votre temps et votre générosité !!!!!
 

Pièces jointes

Dernière édition:
Re : Effectuer un tri par groupe de celulles... Casse tête !

Bonjour.
VB:
Sub Macro1()
With Feuil1.[A2:I2].Resize(Feuil1.[A60000].End(xlUp).Row - 1)
   With .Columns("I"):
      .FormulaR1C1 = "=IF(RIGHT(RC1,1)=""-"",RC[-1],R[-1]C)"
      .Value = .Value: End With
  .Sort Key1:=.Columns("I"), Order1:=xlAscending, _
        Key2:=.Columns("A"), Order2:=xlAscending, _
      Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
      DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
   .Columns("I").ClearContents: End With
End Sub
 
- 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
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…