Fusionner 2 tableaux differents en supprimant les doulons
Bonjour, j'aimerais savoir si il existe une formule pour supprimer les doublons et ajouter les informations les lignes base SUPP et le remplir dans la lignes base ANC. que si il y a doublon.
Il faut surtout qu'excel sache identifier les reel doublon de ligne.
voici le tableau.
merci à tous
Bonjour
Je ne suis pas sûr de tout comprendre car je ne vois qu'un seul tableau dans le fichier que tu as joint.
Mais s'il s"sagit de supprimer les doublons, voici un essai, bien que tu puisses le faire à partir du menu "Données" et "Supprimer les doublons"
Bye !
Effectivement, je confirme que ma demande n'est pas très clair.
Alors, sur le tableau que j'ai mis, tu peux t'apercevoir que j'ai fusionné les deux tableaux sur la même feuille. ils sont identifiable via la colonne "A" BASE ANC ( tableau 1 ) et BASE SUPP ( tableau 2 )
on s'aperçoit aussi que dans les colonnes suivantes de "B a BD" il y a des doublons entre base ANC et base supp.
Ma demande est la suivante.
sur les colonnes base SUPP il y a des données qui ne sont pas sur la base ANC, je voudrais qu'ils s'ajoutent automatiquement grâce a une formule sur la ligne correspondante au doublons et supprimer la lignes base SUPP.
aussi, il y'a des lignes en base supp qui ne sont pas en doublon donc celles ci doivent rester sur mon tableau.
Je ne sais pas si je suis plus clair, mais je sais que ma demande est particulière. j'ai plus de 80000 lignes a traiter, je voudrais me faire gagner du temps ! que de faire des copier coller.
Bonjour à tous,
je n'ai compris qu'a moitie .....
alors que fait on des colonnes L et N ?
Cest quoi, pour toi, un doublon ?.
Met à jour ta version d'excel sur ton profil (2015;2021;365....)
Crdlmt
Je vous joins un nouveau fichier.
en vert la ligne que je veux garder.
en orange les donner que je veux qu'ils soient sur la ligne vert. et du coup la ligne jaune la supprimer.
Ça ne te gène pas ?
| Applicabilité |
| A1 |
| A1 |
| A1 |
| 17E |
| 17E |
| 17E |
le 17E va etre supprimer
et si tu avais un fichier avec les deux tableaux sources, ce serait beaucoup mieux.
Ta version d'excel ??
Crdlmt
la version :
Microsoft® Excel® pour Microsoft 365 MSO (Version 2402 Build 16.0.17328.20770) 32 bits
Pour le tableau, je t'ai crée un nouveau tableau avec ta demande.
Je t'ai mis en feuille 1 " tableau de bord"
en feuille 2 " base supp"
en feuille 3 " base Anc"
il serait top si toute mes données de l
a base supp et base ancrage apparaissent sur le tableau de bord.
Bien sur ne pas afficher les doublons de ligne. Cependant, elles peuvent rester sur leurs base .
je reviens sur ce que j'ai dit :
Quels sont les critères (colonnes) qui te permettent de dire que c'est un doublon ?
Donne un exemple
Et on doit retrouver dans le TdB, les memes intitulés que dans les bases
Crdlmt
pour t'expliquer,
le type en colonne "U" peut être présent dans plusieurs ligne colonne "Q"
Quand je parle de doublon c'est que sur le numéro de ligne "Q" il peux y avoir qu'un TYPE "U" sur certaines lignes, il y'a deux fois le même type.
par contre, sur un des doublon il y'a des informations qu'il faut intégrer sur la ligne.
exemple : la ligne RPE 1067 on s'aperçoit qu'on a deux fois le type HK-06ST5873 or je devrai l'avoir qu'une fois. mais on s'aperçoit aussi que si j'en supprime une je surprime des donnés.
c'est pour cela que j'aimerais transférer les donnés sur la bonne ligne et supprimer le doublon
un vrai doublon c'est quand j'ai le numéro de ligne et le type deux fois !
si un numéro de ligne et diffèrent mais que le type est le même cela n'est pas un doublon.
Bonjour
Bonjour à tous
Nouvel essai qui si j'ai bien compris tient compte de tes denières explications
Bye !
Mince je ne peux pas l'ouvrir.
les fichiers avec macro sont bloqué par mon entreprise.
je vais essayer de trouver une autre solution pour l'ouvrir.
merci encore pour votre aide :)
Si tu peux (et sais) coller la macro sur ton fichier, la voici :
Sub SupprimerLesDoublons()
tablo = Range("A2").CurrentRegion.Offset(1)
Set dico = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(tablo, 1)
If tablo(i, 1) = "BASE ANC" Then
dico(tablo(i, 17) & "-" & tablo(i, 21)) = i
End If
Next i
For i = 2 To UBound(tablo, 1)
If dico.exists(tablo(i, 17) & "-" & tablo(i, 21)) _
And tablo(i, 1) = "BASE SUP" Then
nomDico = tablo(i, 17) & "-" & tablo(i, 21)
ln = dico(nomDico)
For j = 2 To UBound(tablo, 2)
If tablo(i, j) <> "" And tablo(ln, j) = "" Then
Cells(ln + 1, j) = Cells(i + 1, j)
End If
Next j
Range("A" & i + 1 & ":BD" & i + 1).ClearContents
End If
Next i
nbLn = UBound(tablo, 1)
Erase tablo
tablo = Range("A2:BD" & nbLn)
k = 0
For i = 2 To UBound(tablo, 1)
If tablo(i, 1) <> "" Then
ReDim Preserve tabloR(1 To UBound(tablo, 2), 1 To k + 1)
For j = 1 To UBound(tablo, 2)
tabloR(j, k + 1) = tablo(i, j)
Next j
k = k + 1
End If
Next i
Range("A3:BD" & nbLn).ClearContents
Range("A3").Resize(UBound(tabloR, 2), UBound(tabloR, 1)) = Application.Transpose(tabloR)
End SubBye !
Bonjour à tous,
La meme chose, mais avec power query
Merci beaucoup à vous deux.
GMB, j'ai réussi a débloquer la macro. ca fonctionne !
Est ce que c'est possible d'ajouter ta macro sur ce tableau ?
car ca fonctionne mais quand je mets mes 80000 lignes ca bloque ( débocage )
Merci encore vous me faite économiser un temps précieux.
si ta macro peux prendre en compte les plus de 80 000 lignes ca serait top !
Bonjour
si ta macro peux prendre en compte les plus de 80 000 lignes ca serait top !
A tester
Bye !
Voici le rapport d'erreur qu'il m'indique :
C'est curieux !
Je viens de télécharger le fichier que je t"ai retourné et voici ce que j'ai obtenu après avoir cliqué sur le bouton mauve "Supprimer les doublons" :
Je ne vois pas comment faire pour obtenir le même résultat chez toi. Désolé...
Bye !
Effectivement, j'ai le même résultat.
Mais je constate que les lignes ne se supprime pas automatiquement. ( elles reste en case vident ) et toutes les informations ne reste pas sur les lignes qui restent...
Cependant, le 1er tableau avec ta macro était parfait... sauf que j'ai constaté que j'avais oublier des colonnes.