XL pour MAC [RESOLU] Trier par ordre alphabétique avec des blocs de lignes

Juana · 19 Juillet 2019

Bonjour,

je suis à la recherche d'une solution afin d'effectuer un tri sur un tableau excel que j'utilise tous les jours. Je travail sur Mac avec Excel 2011.
Il s'agit d'un tableau de commandes. Les commandes sont organisées en lignes et sont séparées par une ligne vide colorée. Si 2 produits différents sont commandés dans la même commande alors 2 lignes se suivent (sans être séparées par la ligne vide colorée). Il peut y avoir 2 produits différents comme 3, 4, 10... Il n'y a pas de règle là dessus.

Mon objectif est de pouvoir trier ces commandes pour préparer les commandes physiquement, un tri par ordre alphabétique des produits serait déjà super. Le but étant que les commandes ayant plusieurs produits (donc plusieurs lignes) restent en bloc par commande, et que les produits ne soient pas dispersés. Les lignes de commande avec un seul produit serait triées normalement et les commandes avec plusieurs lignes pourraient être triées sur la base de la première ligne.

J'utilise déjà pas mal de macros pour faire d'autres tris et préparation de fichiers, mais sur cette fonctionnalité là je coince, alors aujourd'hui j'extrais les commandes sur plusieurs lignes manuellement pour les remettre une fois que j'ai tout trié, mais c'est une grosse perte de temps...

J'ai crée un exemple de fichier pour que vous puissiez voir de quoi il s'agit exactement.

Je vous remercie d'avance pour votre aide.

À bientôt =)

Ikito · 19 Juillet 2019

Bonjour,

Voir fichier ci-joint.

Juana · 19 Juillet 2019

Merci Ikito pour ce fichier

Ce n'est pas exactement ce dont j'ai besoin, en réalité les commandes doivent être triées entre elles et pas uniquement à l'intérieur de chaque bloc (même si je garde cette option que je trouve utile à rajouter).

En utilisant l'exemple du tableau que tu as travaillé (avec les lettres comme nom de produit), les lignes 16 et 17 devrait arriver juste après la ligne 11 car la première ligne de ce bloc est un "b" et que la ligne 11 est un "c". Pour l'instant entre les deux, il y a une commande avec pour première ligne un "e", cette commande devrait arriver après la commande commençant par un "b".

Houlà j'espère être assez explicite, c'est un peu compliqué à expliquer

Ikito · 19 Juillet 2019

Re,

J'ai rien compris, on recommence ?

Tu veux trier selon quelle colonne ?

Edit : Je pars en week-end, tu auras ma prochaine réponse Lundi, à moins que quelqu'un trouve une solution, bon courage.

pierrejean · 19 Juillet 2019

Bonjour Juana

Salut Ikito

D’après ce que j(ai compris

Juana · 19 Juillet 2019

Merci pour ces deux retours, c'est vraiment compliqué à expliquer, pourtant une fois qu'on sait, c'est tout simple, sauf à appliquer évidemment !

Exemple simplifié :

Feuille	Commande 1
Enveloppe	Commande 1

Carte	Commande 2

Boite	Commande 3

Mon objectif est d'avoir :

Boite	Commande 3

Carte	Commande 2

Feuille	Commande 1
Enveloppe	Commande 1

La commande n°3 est remontée en premier car le mot "Boite" commande par un B, puis "Carte", puis "Feuille" par ordre alphabétique.

Je pense que c'est beaucoup plus simple comme ça =)

pierrejean · 19 Juillet 2019

Re

Le mieux est que tu fasses manuellement quelques lignes en feuille2 comme tu souhaites le résultat

zebanx · 19 Juillet 2019

Bonjour à tous,

Je ne m'insère dans le fil que pour souhaiter que la requérante mette un fichier avec un tableau de restitution souhaité, complété de bulles si cela s'avère nécessaire. Inutile de tartiner... plutôt que de présenter sur votre fichier, par ailleurs bien présenté, ce que vous attendez comme résultat final.

Merci

Edit : bonjour pierre-jean, messages téléscopés

Juana · 19 Juillet 2019

Affectivement merci pour ce conseil avisé, j'aurai dû commencer par ça

Voilà le fichier avec le résultat souhaité en feuille 2.

zebanx · 19 Juillet 2019

Re-

Sauf erreur, un autre essai

BOISGONTIER · 19 Juillet 2019

Bonjour,

Code:

Sub TriGroupes()
  'Application.ScreenUpdating = False
  '--- tri chaque groupe
  lignedéb = 3
  NbLignes = [A65000].End(xlUp).Row
  i = lignedéb
  Do While i <= NbLignes
   Cells(i, 1).CurrentRegion.Sort Key1:=Cells(i, 1)
   i = Cells(i, 1).CurrentRegion.Rows.Count + i + 1
   If i > NbLignes Then Exit Do
  Loop
  '--- tri général
  NbCol = 12
  Columns("A:A").Offset(0, NbCol).Insert Shift:=xlToRight
  i = lignedéb
  Do While i <= [A65000].End(xlUp).Row + 1
    temp = Cells(i, 1)
    Cells(i, 1).Offset(0, NbCol) = temp
    i = i + 1
    Do While Cells(i, 1) <> "" And i <= [A65000].End(xlUp).Row
       Cells(i, 1).Offset(0, NbCol) = temp
       i = i + 1
    Loop
    Cells(i, 1).Offset(0, NbCol) = temp: i = i + 1
  Loop
  Range(Cells(lignedéb, 1), Cells([C65000].End(xlUp).Row, NbCol + 1)).Sort Key1:=Cells(lignedéb, 1).Offset(, NbCol), Order1:=xlAscending, Header:=xlNo
  [A:A].Offset(0, NbCol).Delete Shift:=xlToLeft
End Sub

Boisgontier

Juana · 22 Juillet 2019

Bonjour tout le monde,

ce matin j'ai testé le fichier de Boisgontier et magie, miracle, ça fonctionne !!! Merci beaucoup vraiment, vous êtes tous incroyables à donner votre temps et votre énergie pour aider les autres.

Merci Boisgontier, ton fichier va changer mon quotidien !

XL pour MAC [RESOLU] Trier par ordre alphabétique avec des blocs de lignes

Juana

XLDnaute Nouveau

Pièces jointes

Ikito

XLDnaute Occasionnel

Pièces jointes

Juana

XLDnaute Nouveau

Ikito

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

Pièces jointes

Juana

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

zebanx

XLDnaute Accro

Juana

XLDnaute Nouveau

Pièces jointes

zebanx

XLDnaute Accro

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

Juana

XLDnaute Nouveau

Discussions similaires