XL 2016 Récupérer plusieurs valeurs dans un TCD dans une cellule avec separateur

ICE_SACCO

XLDnaute Junior
Bonjour,

J'aimerai savoir comment sur la TCD je peux récupérer comme un recherchev les données dans un autre tableau standard avec ; comme séparateur.
Je m'explique je charge un fichier qui donne cela
1642099534870.png





1642099631239.png


Si vous avec une idée

Merci d'avance
 

ICE_SACCO

XLDnaute Junior
Bonjour,

Je ne suis pas un spécialiste de power pivot. j'ai compris qu il faut que je créée une liaison entre mes deux tableau et ensuite utiliser CONCATENATEX. je dois mal faire les choses car il me met bien les éléments de Entete2 de façon concat mais il me regroupe tout pas en fonction de l'entête1
De plus une fois effectuée comment je récupère cette nouvelle colonne crée en dehors de l' editeur powerpivot ?

MErci d'avance
 

job75

XLDnaute Barbatruc
Bonsoir ICE_SACCO, chris, Amilo,

Une solution très classique dans le fichier joint avec cette macro :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tablo, resu(), d As Object, i&, x$, n&, nn&
tablo = ListObjects(1).Range.Resize(, 2) '1er tableau structuré
ReDim resu(1 To UBound(tablo), 1 To 2)
Set d = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(tablo)
    x = tablo(i, 1)
    If x <> "" Then
        If Not d.exists(x) Then
            n = n + 1
            d(x) = n 'mémorise la ligne
            resu(n, 1) = x
            resu(n, 2) = tablo(i, 2)
        Else
            nn = d(x)
            resu(nn, 2) = resu(nn, 2) & ";" & tablo(i, 2) 'concaténation
        End If
    End If
Next
'---restitution---
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
With ListObjects(2).Range '2ème tableau structuré
    If .Rows.Count > 2 Then .Rows(3).Resize(.Rows.Count - 2).Delete xlUp
    If n Then .Rows(2).Resize(n) = resu Else .Rows(2).ClearContents
End With
Application.EnableEvents = True 'dréactive les évènements
End Sub
Elle se déclenche automatiquement quand on modifie ou valide une cellule quelconque.

A+
 

Pièces jointes

  • Concaténation(1).xlsm
    20.3 KB · Affichages: 5

Discussions similaires

Réponses
5
Affichages
165

Statistiques des forums

Discussions
311 720
Messages
2 081 909
Membres
101 836
dernier inscrit
karmon