Synthétiser tableau sans doublon

Bonjour à tous,

Je voudrai synthétiser un tableau sans doublon via vba...

Un fichier sera plus représentatif

En Page1_1, mon fichier brut et en Feuil1, ce que je voudrai obtenir.

Auriez-vous une idée?

Merci d'avance pour votre aide.

Bobbyte

Bonjour,

étonnant que MFerrand ou Klin89 ne soit pas sur la balle

P.

Bonjour

Une proposition en attendant mieux (la double boucle n'est pas trop de mon goût ) :

Sub test()
Dim i&, DRw As Object, DCol As Object
Dim TData As Variant, TReport As Variant

Set DRw = CreateObject("scripting.dictionary")
Set DCol = CreateObject("scripting.dictionary")

With Sheets("Page1_1") 'nom a adapter
    TData = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(3)(1, 3))
End With

For i = LBound(TData, 1) + 1 To UBound(TData, 1)
 If Not DRw.Exists(TData(i, 2)) Then DRw(TData(i, 2)) = DRw.Count + 1
 If Not DCol.Exists(TData(i, 1)) Then DCol(TData(i, 1)) = DCol.Count + 1
Next i

ReDim TReport(1 To DRw.Count + 1, 1 To DCol.Count + 1)
TReport(1, 1) = TData(1, 2)
For i = LBound(TData, 1) + 1 To UBound(TData, 1)
    TReport(DRw(TData(i, 2)) + 1, 1) = TData(i, 2)
    TReport(1, DCol(TData(i, 1)) + 1) = TData(i, 1)
    TReport(DRw(TData(i, 2)) + 1, DCol(TData(i, 1)) + 1) = TData(i, 3)
Next i

With Sheets("Feuil1") 'nom a adapter
    .Cells(1, 1).Resize(UBound(TReport, 1), UBound(TReport, 2)) = TReport
    .Columns.AutoFit
End With

End Sub

Cordialement

Avec le fichier exemple.

Bonjour,

bien fait efgé...

Toujours rien pigé moi avec ces !è§(§!µ$^ de dictionnaire mais j'étais sur le même chemin.. j'ai juste réussi à mettre les articles uniques dans une colonne et les nu_site en ligne 1 (non triés) ...

Le reste, je patauge ((depuis longtemps )

P.

Un grand merci Efgé pour ce code, je encore loin de ce niveau!!!

Bonjour à tous, le fil, le forum

Suite à échanges par MP, un version qui prends en compte plusieurs champs (colonnes) sans connaitre par avance le nombre de champs.

Cordialement

Efgé a écrit :

Bonjour à tous, le fil, le forum

Suite à échanges par MP, un version qui prends en compte plusieurs champs (colonnes) sans connaitre par avance le nombre de champs.

Cordialement

Bonjour à tous,

petite question à efgé pour ma culture perso:

pourquoi ne pas prendre [A1].currentregion qui permettrait de ne pas chercher les dernière ligne et colonne ?

P.

Bonjour Patrick1957

CurentRegion peux poser problème :

Si il y a trop de "trous" juxtaposés, la région va s'interrompre avant la fin réelle

Si certaines lignes ont été supprimées et le classeur non sauvegardé avant le passage de la macro, des lignes "fantômes" peuvent subsister et agrandir anormalement la zone

Enfin bref, je ne fais pas confiance à CurentRegion

Cordialement

Oui pas faux

Merci !

Un grand merci à Efgé!!!