XL 2019 Concaténer des lignes en doublon Avec Visual BASIC

[CoCo26]

Bonjour à tous,

Je suis très heureux de me joindre à vous aujourd'hui même si je me serrai bien passé de la difficulté qui m'a poussé à rejoindre la communauté Excel Downloads. Excel est un outil puissant, et j'ai hâte de découvrir de nouvelles façons de l'utiliser...

L'objectif est de fusionner les lignes en doublon selon un identifiant identique ( colonne F ) en gardant les informations d'un des deux colonnes selon une priorité de date (colonne B) !
les colonnes A => AE doivent provenir de la ligne la plus récente. (en vert)
les colonnes AF => BR doivent provenir de la ligne la plus vieille. (en vert)
En l'absence de doublon, on ne touche a rien de la ligne !!

je vous joint un .XLSM Exemple avec l’état Initial et l’état final.

Avoir un code prêt à l’emploi c'est bien, Mais j'aimerai surtout apprendre et consolider mes bases ( aussi petite soit-elle Mdr) avec ce projet.

j'ai hate de vous lire!

 

[vgendron]

Hello

déjà.. bravo pour la démarche
voir en PJ un solution par macro: j'ai commenté tout le code pour t'aider à la compréhension

 

[CoCo26]

Merci VGendron pour ta réactivité !!! je suis surpris.
je vais regarder ça a tête reposé et reviendrai vers toi pour en apprendre un peu plus sur ta méthode de travail.
bonne soirée à la communautés

 

[CoCo26]

VGendron, je n'arrive pas à faire fonctionner la macro, code erreur 438 :
"propriété ou méthode non gérée par cet objet"

Es-ce-que mes paramètres Excel peuvent impacter la réalisation de la macro ?

E

 

[CoCo26]

je travail depuis mon poste perso, avec un produit "non activé" ... je crois que cela pose Problème...

 

[vgendron]

à priori.. produit non activé: tu ne pourrais meme pas ouvrir le fichier; ou ne pas pouvoir lancer la macro..
la.. elle est executée au moins sur quelques lignes.==>je ne pense pas que ce soit le pb

par contre.. peut etre as tu déplacé la plage de données par rapport à ton fichier exemple?

 

[CoCo26]

Oui effectivement, tu as un oeil de lynx !! j'ai essayé de le comprendre pour corriger l'erreur depuis le fichier de travail ...
Certaine Macro de mon fichier marche effectivement avec mon produit non activé.

Le fichier exemple ne marche pas mieux de mon coté ....

 

[vgendron]

sur le code, je ne vois pas ce qui peut bugger. par contre, une idée comme ca
dans l'éditeur vba (Alt+F11)
menu Outils /Références
décoches les lignes "Missing" (ou "Manquant")

 

[CoCo26]

5 library sont cochées, Rien du type "Missing" (ou "Manquant").
j'essayerai demain matin avec un Excel en mode Full.

 

[job75]

Bonsoir CoCo26, vgendron,

Une solution simple est de traiter successivement le tableau de gauche et le tableau de droite :

- en les triant sur 2 colonnes

- en leur appliquant la méthode .RemoveDuplicates.

Voyez le fichier joint et la macro du bouton :

Private Sub CommandButton1_Click()
With Sheets("Résultat")
    .Cells.Delete 'RAZ
    Rows("1:" & Cells.SpecialCells(xlCellTypeLastCell).Row).Copy .[A1]
    .Columns("AF:AG").Insert 'insère 2 colonnes auxiliaires
    Union(.Columns("B"), .Columns("F")).Copy .Columns("AF")
    With .Range("A3:AE" & .Rows.Count) 'tableau de gauche
        .Sort .Columns(6), xlAscending, .Columns(2), , xlDescending, Header:=xlYes 'tri sur 2 colonnes
        .RemoveDuplicates 6, Header:=xlYes 'supprime les doublons en colonne F
    End With
    With .Range("AF3:BS" & .Rows.Count) 'tableau de droite
        .Sort .Columns(2), xlAscending, .Columns(1), , xlAscending, Header:=xlYes 'tri sur 2 colonnes
        .RemoveDuplicates 2, Header:=xlYes 'supprime les doublons en colonne AG
    End With
    .Columns("AF:AG").Delete 'supprime les 2 colonnes auxiliaires
    .Rows(.Cells(.Rows.Count, "F").End(xlUp).Row + 1 & ":" & .Rows.Count).Delete 'RAZ en dessous
    .Columns.AutoFit 'ajustement largeurs
    .Activate 'facultatif
End With
End Sub

Bonne nuit.

 

[job75]

Bonjour CoCo26, le forum,

Dans ce fichier (2) je me suis occupé d'unifier les bordures :

Private Sub CommandButton1_Click()
Dim derlig&
derlig = Cells.SpecialCells(xlCellTypeLastCell).Row
With Sheets("Résultat")
    .Cells.Delete 'RAZ
    Rows("1:" & derlig).Copy .[A1]
    .Columns("AF:AG").Insert 'insère 2 colonnes auxiliaires
    Union(.Columns("B"), .Columns("F")).Copy .Columns("AF")
    With .Range("A3:AE" & derlig) 'tableau de gauche
        .Sort .Columns(6), xlAscending, .Columns(2), , xlDescending, Header:=xlYes 'tri sur 2 colonnes
        .RemoveDuplicates 6, Header:=xlYes 'supprime les doublons en colonne F
        .Borders.Weight = xlThin 'bordures
    End With
    With .Range("AF3:BS" & derlig) 'tableau de droite
        .Sort .Columns(2), xlAscending, .Columns(1), , xlAscending, Header:=xlYes 'tri sur 2 colonnes
        .RemoveDuplicates 2, Header:=xlYes 'supprime les doublons en colonne AG
        .Borders.Weight = xlThin 'bordures
    End With
    .Columns("AF:AG").Delete 'supprime les 2 colonnes auxiliaires
    .Rows(.Cells(.Rows.Count, "F").End(xlUp).Row + 1 & ":" & derlig).Delete 'RAZ en dessous
    .Columns.AutoFit 'ajustement largeurs
    .Activate 'facultatif
End With
End Sub

A+

 

[job75]

Une remarque pour @vgendron.

Sur ton fichier du post #2 la méthode de suppression des doublons n'est pas correcte.

Copie les lignes 4:10 de la feuille source sur 11:17 et exécute ta macro.

 

[vgendron]

hello @job75
effectivement tu as raison , mon code ne fonctionne qui si il n'y a QUE 2 lignes à fusionner

 

[job75]

Pour tester mon fichier (2) j'ai effacé toutes les MFC et recopié les lignes 4:10 sur 21 000 lignes.

La macro s'exécute chez moi en 7 secondes dont :

- 5 secondes pour les copier-coller initiaux

- 2 secondes pour les tris et suppressions des doublons.