XL 2019 transposer une liste de données sans doublons

pasquetp · 14 Février 2023

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

DUB110

GRU2

GRU4

PDX

BJS20

ICN53

ICN54

pasquetp · 14 Février 2023

voici un fichier avec les données sensibles retiré

mapomme · 14 Février 2023

Bonjour @pasquetp ,

Testez le code :

VB:

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 · 14 Février 2023

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

VB:

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 · 14 Février 2023

Salut @pierrejean

,

R@chid · 14 Février 2023

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

Cordialement

mapomme · 14 Février 2023

R@chid à dit:
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 · 14 Février 2023

Bonjour @mapomme

mapomme à dit:
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 · 14 Février 2023

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 · 15 Février 2023

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

XL 2019 transposer une liste de données sans doublons

pasquetp

XLDnaute Occasionnel

pasquetp

XLDnaute Occasionnel

Pièces jointes

mapomme

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

R@chid

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

R@chid

XLDnaute Barbatruc

pasquetp

XLDnaute Occasionnel

pasquetp

XLDnaute Occasionnel

Discussions similaires