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

[Juana]

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]

Bonjour,

Voir fichier ci-joint.

 

[Juana]

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]

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]

Bonjour Juana

Salut Ikito

D’après ce que j(ai compris

 

[Juana]

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]

Re

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

 

[zebanx]

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]

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

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

 

[zebanx]

Re-

Sauf erreur, un autre essai

 

[BOISGONTIER]

Bonjour,

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]

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 !