XL 2019 A partir des base de données 1 et 2, comment obtenir la base de données 3 sur 2 colonnes avec uniquement des formules excel, en automatique

[Mika_56]

A partir des base de données 1 et 2, comment obtenir la base de données 3 sur 2 colonnes avec uniquement des formules excel, en automatique

1. Base de données 1 (utilisateurs et périmètres) :

Feuille1 (nommée Feuil1 ici)
Colonne A : Utilisateur
Colonne B : Périmètre

Exemple :

Utilisateur Périmètre
User1 PérimètreA
User2 PérimètreB
User3 PérimètreC
User4 PérimètreA

2. Base de données 2 (périmètres et sociétés) :

Feuille2 (nommée Feuil2 ici)
Colonne A : Périmètre
Colonne B : Société

Exemple :

Périmètre Société
PérimètreA Soc1
PérimètreA Soc2
PérimètreA Soc3
PérimètreB Soc4
PérimètreB Soc5
PérimètreC Soc1
PérimètreC Soc6
PérimètreC Soc7


3. Base de données 3, résultat souhaité

Utilisateur Société
User1 Soc1
User1 Soc2
User1 Soc3
User2 Soc4
User2 Soc5
User3 Soc1
User3 Soc6
User3 Soc7
User4 Soc1
User4 Soc2
User4 Soc3

 

[vgendron]

Bonjour et bienvenue

Pour bien commencer, peux tu poster un fichier excel avec tes données plutot que de les mettre en vrac dans le post..
ca nous évitera d'avoir à le faire nous meme
et ca nous permettra de faire une proposition qui colle au besoin.

 

[sylvanu]

Tout d'abord Bonjour Mika, et bienvenu sur XLD,
Comme le dit notre charte ( Lien ) :

Lorsqu’on rentre sur un fil, comme dans la vie de tous les jours, on est poli en disant « Bonjour ».

Ensuite, un petit fichier test anonyme permettrait d'être plus facile à comprendre le contexte, et à apporter une réponse plus précise.

 

[vgendron]

salut @sylvanu
c'est grave, je n'ai même pas remarqué que le gars se pointait sans dire bonjour... à croire que ca devient la norme et que je n'y prête même plus attention...
ca me fait penser à la pub qui tourne en ce moment à la TV "Parisien Raleur?" alors que c'est ce c.. de client qui commande (passer commande ou donner des ordres...?) sans dire bonjour..

 

[Mika_56]

Excusez moi, bonjour à tous, moi qui suis plutôt attentif à ce genre de choses habituellement...

 

[Mika_56]

Bonjour et bienvenue

Pour bien commencer, peux tu poster un fichier excel avec tes données plutot que de les mettre en vrac dans le post..
ca nous évitera d'avoir à le faire nous meme
et ca nous permettra de faire une proposition qui colle au besoin.

Bonjour, voici un fichier test très simple ou je souhaite avoir l'onglet "résultat souhaité" en automatique pour les 2 colonnes. Merci, Mika

 

[vgendron]

Avec du Power Query, je pense que ca irait nickel..mais.. hélas. je ne maitrise pas du tout
reste plus qu'à attendre le passage d'un spécialiste

 

[Mika_56]

Avec du Power Query, je pense que ca irait nickel..mais.. hélas. je ne maitrise pas du tout
reste plus qu'à attendre le passage d'un spécialiste

Ok, merci quand même.

 

[vgendron]

En attendant, tu peux peut etre ajouter quelques commentaires pour expliquer comment tu passes des 2 tableaux au troisième... ca ma prit 5mn pour le comprendre..

 

[sylvanu]

Re,
Un essaie en PJ avec cette macro.
Elle s'exécute automatiquement lorsqu'on sélectionne la feuille "résultat souhaité"

ub Worksheet_Activate()
    Dim Tablo1, Tablo2, Ligne%, User%, Pér%, Username, Périmètre
    [A2:B1000].ClearContents
    Application.ScreenUpdating = False
    Tablo1 = Sheets("Feuil1").[A1].CurrentRegion     ' Nom feuille à adapter
    Tablo2 = Sheets("Feuil2").[A1].CurrentRegion     ' Nom feuille à adapter
    Ligne = 2
    For User = 2 To UBound(Tablo1)
        Username = Tablo1(User, 1)
        Périmètre = Tablo1(User, 2)
        For Pér = 2 To UBound(Tablo2)
            If Tablo2(Pér, 1) = Périmètre Then
                Cells(Ligne, "A") = Username
                Cells(Ligne, "B") = Tablo2(Pér, 2)
                Ligne = Ligne + 1
            End If
        Next Pér
    Next User
End Sub

Pensez à autoriser les macros si ce n'est déjà fait.

 

[alexga78]

Bonjour à tous,

avec Power Query, et respectivement _T1, _T2 les tableaux des feuilles 1 et 2.

let
A = each Table.ToRows(Excel.CurrentWorkbook(){[Name=_]}[Content]),
B = (x)=> Text.TrimEnd(x),
C = List.TransformMany(A("_T1"), each List.Transform(List.Select(A("_T2"), (x)=> B(x{0}) = B(_{1})),
    each _{1}), (x,y)=> {x{0}, y}),
D = Table.FromRows(C, {"Utilisateur","Société"})
in
D

Bonne journée à tous

 

[Mika_56]

Bonjour à tous,

Je ne suis pas très à l'aise avec les macros, je voudrais vraiment trouver une solution avec des formules sur les 2 colonnes. Avec les formules index et équivalent, je pense que c'est faisable mais je n'y arrive pas. Merci pour votre aide.

 

[vgendron]

Hello
Power Query (c'est pas de la macro vba) est intégré dans excel
regarde la PJ, j'ai pris la requete d'alexga78
si tu modifies une des deux tables (t1 et t2) il te suffit de faire un clic droit sur la table résultat / actualiser pour avoir la mise à jour automatiquement

 

[sylvanu]

Re,

Avec les formules index et équivalent, je pense que c'est faisable mais je n'y arrive pas.

Moi non plus.
Je pense que ce n'est pas aussi simple.
Je tenterais avec des colonnes supplémentaires, mais sans garantie.

 

[vgendron]

Re,
Peut être une piste ici

Microsoft 365 - Cherche a dupliquer des lignes en fonction d'un nombre indépendant sans macro

Bonjour, Je suis à la recherche d'une fonction me permettant de remplir les colonnes d'un tableau avec plusieurs lignes ayant la même valeur. Je m'explique : j'ai un tableau avec des entrées (à droite sur l'exemple fourni) et je souhaite remplir le tableau de gauche qui existe déjà mais est...

excel-downloads.com