TCD avec texte

Bonjour,

J'ai un fichier excel qui contient 1 million 700 milles lignes. Je l'ai ouvert avec powerpivot. Ce fichier contient le nom et prénom de plusieurs personnes qui peuvent se répéter. Chaque personne a un identifiant unique Person ID.

Je désire synthétiser ce fichier dans un tableau contenant les variables suivantes:

Person ID First name Middle name Last name Salutation

Je voulais savoir si c'était possible de le faire avec un TCD ou y t il une autre solution.

Ci joint un échantillon de mon fichier

Je vous remercie d'avance.

Bien cordialement

Bonjour,

tu transforme en tableau et tu supprimes les doublons.

merci DjiDji59430

J'ai essayé de supprimer les doublons en recopiant mes données de powerpivot vers excel sur 3 feuilles. Pour une seule feuille, le traitement m'a pris 2 heures et demi.

Est ce que c'est possible de supprimer les doublons dans powerpivot sans passer par excel ?

Merci d'avance

Bonjour,

un essai à faire sur ton fichier test...

P.

Sub ListeSansDoublons()
   Set mondico = CreateObject("Scripting.Dictionary")
   For Each c In Range("a1", [A65000].End(xlUp))
     If Not mondico.Exists(c.Value) Then
        mondico(c.Value) = c.Offset(, 1).Value & "¦" & c.Offset(, 2).Value & "¦" & c.Offset(, 3).Value & "¦" & c.Offset(, 4).Value
     Else
        mondico(c.Value) = mondico(c.Value)
     End If
  Next c
If mondico.Count = 0 Then Exit Sub  ' si vide on sort OK
A = mondico.Keys
b = mondico.Items
For i = 0 To UBound(A)
  Cells(i + 2, 7) = A(i)
  S = Split(b(i), "¦")
  Cells(i + 2, 8) = S(0)
  Cells(i + 2, 9) = S(1)
  Cells(i + 2, 10) = S(2)
  Cells(i + 2, 11) = S(3)
Next
End Sub

Bonsoir Monsieur Patrick,

merci de m'avoir répondu, oui ça fonctionne sur mon fichier test.

Comment puis je l'appliquer sur mes données qui sont dans powerpivot ?

Merci d'avance

Bonjour,

je ne connais pas powerpivot....je n'ai jamais traité un aussi grand nombre de data

tu ne sais pas ramener une partie de 500.000 lignes et le faire en plusieurs fois ?

et je suis en XL2007 , donc pas possible pour moi

dsl

Merci Patrick je vais essayer de recopier mes données de powerpivot vers excel

Bien à vous