ranger deux colonnes ous excel

Question

Bonjour,

J'ai un petit problème. J'ai deux tableau avec des colonnes identiques qui contiennent des articles et des prix.
l'un date de l'année dernière et l'autre de cette année.

J'aimerai les trier pour les mettre cote a cote sur la même feuille et ainsi pouvoir voir les nouveau articles ainsi que ceux qui n'existent plus (tout ca a la fin du document).

J'ai plus de 4000 références et je me vois mal tout faire a la main.

exemple, note : tout est sur la même feuille :

article         famille     quantité                    article     famille       quantité
bougie         A               5                        artichaud        A             2 
allumette      A               4                        allumette      A             1
lunette        B                2                        cuillère         B              2
                                                              lunette        B              2


voila ce que j'ai avec 4000 ref.
J'aimerai avoir ceci :

article         famille     quantité                    article     famille       quantité
allumette      A               4                        allumette      A             1
lunette        B                2                         lunette        B              2
bougie         A               5                         artichaud        B              2

Avec en fin de liste les nouveaux et les anciens articles (voir si possible mettre les nouveaux ou les anciens en couleur et en faisant un tri par ordre alphabétique.

Merci pour vos conseils, peut être que j'en demande beaucoup.

Merci encore.

LePierre · Answer

bonjour

essaye déjà de trier dans l'ordre croissant tes deux tableaux à partir de la colonne "article".
ensuite colle les données d'une année à côté des données de l'année suivante
insère des cellules vides entre les lignes de l'une ou l'autre série de données pour rétablir la ligne de comparaison.
(ceci est faisable manuellement à condition de ne pas avoir trop de nouvelles données)

à plus

fredmam · Answer

Salut,

C'est ce que je voudrais essayer de ne pas faire, j'ai pas mal de changements d'articles.

En fait j'ai déjà fais mon tri croissant mais sur 4000 références je vais y passer la nuit.

Merci pour vos réponses.

gbinforme · Answer

bonjour fredmam, LePierre,


Si j'ai compris ta question, je te propose sur ton classeur de trier :
 - tes 3 premières colonnes sur code article
 - tes 3 colonnes D,E,F sur code article
puis d'insérer et lancer cette macro (mode d'emploi) :
Public Sub anc_nouv()
Dim lig As Long
Application.ScreenUpdating = False
For lig = 2 To UsedRange.Rows.Count
    If Cells(lig, 1).Value > Cells(lig, 4).Value Then
        Cells(lig, 1).Resize(1, 3).Insert Shift:=xlDown
    ElseIf Cells(lig, 1).Value < Cells(lig, 4).Value Then
        Cells(lig, 4).Resize(1, 3).Insert Shift:=xlDown
    End If
Next lig
Cells.Sort Key1:=Range("D2"), Order1:=xlAscending, Key2:=Range("A2") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Application.ScreenUpdating = True
End Sub

Les anciens articles non reconduits sont en fin, les nouveaux sont insérés avec un vide aux 3 premières colonnes.

fredmam · Answer

En tout cas merci pour tout.

Malheureusement j'ai tout fait a la main et ca m'a pris plus de 4 heures.

Par contre je garde la macro précieusement pour l'année prochaine.

Super boulot, merci encore.

fredmam · Answer

Bonjour,

Je remonte le post car suite a formattage independant de ma volonté j'ai perdu le fichier de macro et quand je copie la macro ecrite j'ai un message d'erreur sur DataOption1 "argument nomme introuvable) erreur de compilation ??

Merci par avance pour votre aide précieuse.

gbinforme · Answer

bonjour

Le paramètre xlSortNormal  s'écrit la lettre L minuscule pas le chiffre 1

Vérifies que tu as bien ce code.

Ranger deux colonnes ous excel

6 réponses

Discussions similaires

Newsletters