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

Please Help: Comparer deux listes et rajouter a l'une ce que l autre a de plus

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion JuniorExcel
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

JuniorExcel

Guest
Bonsoir a tous,

j ai passé bcp de temps sur mon problème et j ai finalement réussi a faire qqch mais de tres moche... c'est pourquoi je fais appel a vos talents...

Version plus simple, ce que j aimerai faire c'est:

J ai plusieurs colonnes formant un tableau TABLE1 et une autres TABLE2 dans une autre feuille. J aimerais rajouter a TABLE1 les lignes de TABLE2 qu il n'a pas ... mais surtout j aimerai laisser la dimension de TABLE1 et TABLE2 variable pour que tout s adapte a un changement de dimensions...

Je vous envoie ci-joint un mini exemple vite fait car le vrai fichier est tres gros, j ai essayé de faire des chose avec les fonction NB.SI et SI et de trier apres ... mais en plus d avoir qqch de moche, je devrais tout recommencer si les tables changes de tailles....


PLEASE HELP 😕😕😕


merci.....
 

Pièces jointes

  • Ex.xls
    Ex.xls
    35.5 KB · Affichages: 66
  • Ex.xls
    Ex.xls
    35.5 KB · Affichages: 69
  • Ex.xls
    Ex.xls
    35.5 KB · Affichages: 68
Trier par date Trier par votes
Re : Please Help: Comparer deux listes et rajouter a l'une ce que l autre a de plus

Bonsoir,

Un essai avec ce code:

Code: 
Sub Conso()
Dim Derlig1 As Long, Derlig2 As Long
 
Derlig1 = Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row
Derlig2 = Sheets("Feuil2").Cells(Rows.Count, 1).End(xlUp).Row
Set Dest = Sheets("Feuil1").Range("A" & Derlig1)
Sheets("Feuil2").Range("A2:D" & Derlig2).Copy Dest
With Sheets("Feuil1")
    Derlig1 = .Cells(Rows.Count, 1).End(xlUp).Row
    .Range("A1:D" & Derlig1).RemoveDuplicates Columns:=Array(1, 2, 3, 4), _
        Header:=xlYes
End With
End Sub

Bonne soirée,

mth

Edit: Oups ... bonsoir Banzai
Désolée, je n'avais pas rafraichi ...😱
@ +
m
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

J
  • Question Question
Reproduire une liste dans une autre feuille et qui se mette a jour directement
2
Réponses
19
Affichages
3 K
JuniorExcel
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…