Extraire Des Colonnes D'un Tableau pour former un autre Tableau

[rigo]

Bonjour,

Débutant sous Excel et en plein projet, je fais appelle vous pour un petit coup de pouce.
Je voudrais extraire d'un tableau de données des éléments d'une colonne dans laquelle il y a des doublons, supprimer ces derniers et les positionner en têtes de colonne.
Puis sélectionner les éléments d'une autre colonne qui sont eux uniques pour les positionner sous les têtes de colonnes correspondantes.
Pour plus de clarté voici un exemple:
Produit Référence Longueur
As 001 1
As 002 3
Et 105 56
Ad 230 34
Ad 245 20
Ad 231 10
Ad 236 15

A transformer en

As Et Ad
1 56 34
3 20
10
15

Voila j’espère que tout est clair.
Je joins mon Tableau, le feuillet concerné se nomme EQUERRE-RALLONGE et le colonnes visées sont "Produit" et "Longueur Max"

Par Avance Merci

Greg

 

[natorp]

Re : Extraire Des Colonnes D'un Tableau pour former un autre Tableau

Bjr Greg

ce n'est pas très clair, est-ce que vous pourriez dans votre fichier joint faire un petit exemple de ce que vous souhaitez avec les données de votre tableau ?

cordialement, Gérard

 

[rigo]

Re : Extraire Des Colonnes D'un Tableau pour former un autre Tableau

Gerard,

Voici le fichier avec un élément éclairci mis en couleur.

Merci beaucoup

 

[rigo]

Re : Extraire Des Colonnes D'un Tableau pour former un autre Tableau

Est-ce assez clair?

 

[rigo]

Re : Extraire Des Colonnes D'un Tableau pour former un autre Tableau

N'y a-t-il personne pour me sortir de l'impasse?
🙁

 

[Efgé]

Re : Extraire Des Colonnes D'un Tableau pour former un autre Tableau

Bonjour rigo, Bonjour natorp,
rigo, il faut un peu de patience, le problème n'est pas simple, surtout avec vos explications qui ne sont pas légions.
Je vous fait une proposition avec ce que j'ai compris. Le tableau se crée sur la feuille 2.

Sub Test()
Dim c, Tablo2(), LstRow#, j#, L#, k, FirstAdress
Set Dico = CreateObject("Scripting.Dictionary")
With Sheets("Feuil1")
    LstRow = .Cells(Rows.Count, 4).End(xlUp).Row
    Set Plg = .Range(.Cells(7, 4), .Cells(LstRow, 4))
    For Each c In Plg
       Dico(c.Value) = c.Value
    Next c
    Tablo = Dico.Keys
    ReDim Tablo2(1 To LstRow, 1 To UBound(Tablo) + 1)
    For i = 0 To UBound(Tablo, 1)
        Tablo2(1, i + 1) = Tablo(i)
    Next i
    For j = 1 To UBound(Tablo2, 2)
        L = 2
        Set k = Plg.Find(Tablo2(1, j), lookat:=xlPart)
        If Not k Is Nothing Then
            FirstAdress = k.Address
            Do
            Tablo2(L, j) = k.Offset(0, 5)
            L = L + 1
            Set k = Plg.FindNext(k)
            Loop While Not k Is Nothing And k.Address <> FirstAdress
        End If
    Next j
End With
With Sheets("Feuil2")
    .UsedRange.ClearContents
    .Range("A1").Resize(UBound(Tablo2, 1), UBound(Tablo2, 2)) = Tablo2
    .Activate
End With
End Sub

Il y a certainement mieux...
Cordialement

 

[natorp]

Re : Extraire Des Colonnes D'un Tableau pour former un autre Tableau

Bien vu Efgé, je n'arrivais pas à trouver, j'essayais aussi en TCD mais sans solution, je pense que tu as trouvé...
je remarque qu'en appliquant la macro, la première valeur (50) des équerres se retrouve en fin de colonne A sur la feuille 2, tu sais pourquoi ?

cordialement, Gérard

 

[Efgé]

Re : Extraire Des Colonnes D'un Tableau pour former un autre Tableau

Re
@ Natorp 🙂
La plage de recherche commence par la première valeur cherchée. Comme le find va chercher les suivants, il ne retrouve sa cellule d'origine qu'à la fin du cycle. Pour éviter cela on peux créer une deuxiéme plage en début de macro :

Set Plg2 = .Range(.Cells(6, 4), .Cells(LstRow, 4))

et l'utiliser dans la recherche:

Set k = Plg2.Find(Tablo2(1, j), lookat:=xlPart)

et

Set k = Plg2.FindNext(k)

Cordialement

 

[natorp]

Re : Extraire Des Colonnes D'un Tableau pour former un autre Tableau

Et voilà comme d'hab' la réponse qui va bien....

merci beaucoup, j'espère que cela conviendra à Greg

cordialement, Gérard

 

[Efgé]

Re : Extraire Des Colonnes D'un Tableau pour former un autre Tableau

🙄
Bonsoir à tous,
J'espère qu'il n'est rien arrivé à Lien supprimé, lui qui était si impatient de trouver aide et proposition....
Cordialemeni

 

[rigo]

Re : Extraire Des Colonnes D'un Tableau pour former un autre Tableau

Bonjour à tous,

Ne vous inquiétez pas je suis toujours vivant. Je suis en pleins rush pour terminer ma mission à temps!!

Je vous remercie tous pour votre aide, c'est génial!!!🙂