XL 2019 transposer une liste de données sans doublons

[pasquetp]

Bonjour,

je travaille sur un projet important pour la boite ou je travaille et j'espere que pourrez m'aider

voila j'ai deux feuilles :

une premiere appelé TABLEAU-REPORT et une seconde PIVOT TABLE

sur la premiere feuille en colonne J a partir de la ligne 2 jusquà la dernière ligne rempli , j'ai une liste de données voici un petit echantillon
sur la seconde page en colonne V a partir de la seconde ligne je veux integrer les données provenant de l'autre feuille et sans doublon

je souhaite optimiser le code au mieux mais je connais tres mal les tableaux a plusieurs dimensions

auriez vous une piste ?

merci infiniment

Pierre

IAD1

IAD101

IAD101

IAD101

DUB110

GRU2

GRU4

GRU4

PDX

BJS20

ICN53

ICN53

ICN54

 

[pasquetp]

voici un fichier avec les données sensibles retiré

 

[mapomme]

Bonjour @pasquetp 🙂,

Testez le code :

Sub CopierJenVunique()
Dim der&
   Application.ScreenUpdating = False
   With Sheets("PIVOT TABLE")
      .Range("v2").Resize(Rows.Count - 1).Clear
      der = Sheets("TABLEAU-REPORT").Cells(Rows.Count, "j").End(xlUp).Row
      Sheets("TABLEAU-REPORT").Range("j2:j" & der).Copy .Range("v2")
      .Range("v2:v" & der).RemoveDuplicates Columns:=Array(1), Header:=xlNo
   End With
End Sub

 

[pierrejean]

Bonjour pasquetp
Salut mapomme
Je l'ai fait ,je le publie

Sub report()
tablo = Sheets("TABLEAU-REPORT").Range("J2:J" & Sheets("TABLEAU-REPORT").Range("J" & Rows.Count).End(xlUp).Row)
For n = LBound(tablo, 1) To UBound(tablo, 1)
  For m = LBound(tablo, 1) To UBound(tablo, 1)
    If tablo(n, 1) < tablo(m, 1) Then
       temp = tablo(n, 1)
       tablo(n, 1) = tablo(m, 1)
       tablo(m, 1) = temp
    End If
  Next
Next
lin = 3
Sheets("PIVOT TABLE").Range("V2") = tablo(LBound(tablo, 1), 1)
For n = LBound(tablo, 1) + 1 To UBound(tablo, 1)
  If tablo(n, 1) <> tablo(n - 1, 1) Then
     Sheets("PIVOT TABLE").Range("V" & lin) = tablo(n, 1)
     lin = lin + 1
  End If
Next
End Sub

 

[mapomme]

Salut @pierrejean 🙂😉,

 

[R@chid]

Bonjour @ tous,
Je ne sais pas quoi dire, j'ai honte de répondre.
Un essai avec PowerQuery

Cordialement

 

[mapomme]

Je ne sais pas quoi dire, j'ai honte de répondre.

Bonjour @R@chid 🙂☺️,
Aucune raison d'avoir honte pour quoi que ce soit, d'autant plus que tu apportes une troisième solution originale.

 

[R@chid]

Bonjour @mapomme

Aucune raison d'avoir honte pour quoi que ce soit

Si si, car déjà les VBAistes sont passés par là et ont donné des réponses concises.
😉

 

[pasquetp]

Bonjour et un Grand merci de tous ces retours 😍

j'ai été pris par mon travail sur le terrain, je regarde vos codes des que je pourrais et je vous fais un retour

Merci encore une fois

Pierre

 

[pasquetp]

Bonjour

jai regarde et teste les codes, vous etes des magiciens le resultat fonctionne tres bien pour chaque methode proposée, merci a tous le monde

voulant augmenter mes connaissances vba, j'ai particulierement lu et relu le code de Mr PierreJean qui m'a fascine ( cest dailleurs le code que je maitrise le moins de ceux fournis)

serait il possible d'ajouter des lignes commentaires car jai encore du mal a interpreter les lignes de codes et ca m'aidera a mieux comprendre le raisonnement , je sais que j'ai encore bcppp de chose a apprendre sur les tableaux a dimensions

encore une fois merci à vous tous

Pierre