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

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

C

CoCo26

XLDnaute Nouveau
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!
 

Pièces jointes

  • Essai 07032023.xlsm
    23.4 KB · Affichages: 7
Trier par date Trier par votes

vgendron

XLDnaute Barbatruc
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
 

Pièces jointes

  • Essai 07032023.xlsm
    32.7 KB · Affichages: 8
Vote positif 0 Vote négatif
C

CoCo26

XLDnaute Nouveau
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
 
Vote positif 0 Vote négatif
C

CoCo26

XLDnaute Nouveau
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
 
Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc
à 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?
 
Vote positif 0 Vote négatif
C

CoCo26

XLDnaute Nouveau
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é ....

 
Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc
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")
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
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 :
VB: 
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.
 

Pièces jointes

  • Essai 07032023(1).xlsm
    33.6 KB · Affichages: 3
Dernière édition:
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonjour CoCo26, le forum,

Dans ce fichier (2) je me suis occupé d'unifier les bordures :
VB: 
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+
 

Pièces jointes

  • Essai 07032023(2).xlsm
    34.2 KB · Affichages: 6
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
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.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

N
  • Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
444
Nel'
N
T
  • Question
Microsoft 365 Supprimer les lignes en doublon
2
Réponses
26
Affichages
1 K
Cousinhub
I
  • Question
XL 2019 Suite à une formule, enlever le doublon dans le résultat avec fonction SI
Réponses
2
Affichages
347
IderMTC
I
D
  • Question
XL 2019 Concaténer plusieurs lignes à partir d'une référence en doublon
Réponses
5
Affichages
716
vgendron
T
  • Question
XL 2010 Supprimer les lignes en doubles (multi critères)
2
Réponses
18
Affichages
2 K
oguruma
  • Question
XL 2016 Macro mise en forme sur un filtre macro de tri
Réponses
0
Affichages
588
ymanot
M
  • Résolu(e)
Microsoft 365 Comparer le contenu d'une ligne avec d'autres lignes
Réponses
4
Affichages
864
mahakas
M
L
  • Résolu(e)
XL 2013 Fusionner des lignes sur une colonne en fonction de la valeur
2
Réponses
18
Affichages
2 K
Leché
L
L
  • Question
XL 2016 vba pour inserer des lignes et des colonnes
Réponses
5
Affichages
1 K
Linda42
L
Y
  • Résolu(e)
XL 2016 Transposition des lignes en une seule colonne avec VBA
Réponses
2
Affichages
2 K
Yjjou
Y
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…