[XL-2007] Cross deux tables en excel?

[EmmanuelleC]

Bonjour,

J'ai actuellement deux onglets :
1) dans le premier, j'ai une liste de groupes et les informations les concernants (avec plusieurs lignes d'informations par groupe)
2) dans le second, j'ai la liste des membres des groupes (avec plusieurs membres par groupe)

Le nom des groupes est écrit exactement de la meme facon dans les deux onglets et peut donc servir a faire la liaison.
Tout les membres sont dans un groupe, toutes les informations sont dans un groupe

Je cherche a obtenir de facon dynamique une table qui regroupe les deux onglets (en mettant pour chaque groupe tout ses membres et toutes ces infos)

J'aimerais éviter de le faire manuellement parce que le résultat une fois cross est pénible a garder a jour.
Je soupsonne qu'excel doit avoir une facon facile de faire ca, mais je ne la connait pas.

Est-ce que via les TCD, je peux faire une sorte de jointure entre deux tables?

Au pire, je ferrai une macro qui cross, mais autant que possible, j'aimerai m'en passer (d'autres personnes vont se servir du fichier et on peut etre sur qu'il y aura des problemes de sécruité s'il y a une macro)

[jfontaine]

Bonjour,

Ci dessous un code qui devrait faire ce que tu souhaites

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub CreationTableau()
Dim Sh1 As Worksheet
Dim Sh2 As Worksheet
Dim shDest As Worksheet
Dim iSource As Long
Dim Idest As Long
 
Dim rg As Range
Dim Address As String
 
'Liste des feuilles
Set Sh1 = ThisWorkbook.Worksheets("Onglet 1")
Set Sh2 = ThisWorkbook.Worksheets("Onglet 2")
Set shDest = ThisWorkbook.Worksheets("Feuil1")
 
Idest = 2
iSource = 2
 
'Boucle sur les lignes de l'onglet 1
For iSource = 2 To Sh1.Range("A" & Rows.Count).End(xlUp).Row
 
    With Sh2.Range("A:A")
        'Si on trouve le groupe dans l'onglet 2 on insere dans la feuille résultat
        Set rg = .Find(what:=Sh1.Range("A" & iSource).Value, lookat:=xlWhole)
        If Not rg Is Nothing Then
            Address = rg.Address
            Do
                shDest.Range("A" & Idest).Value = Sh1.Range("A" & iSource).Value
                shDest.Range("B" & Idest).Value = Sh1.Range("B" & iSource).Value
                shDest.Range("C" & Idest).Value = rg.Offset(0, 1).Value
                shDest.Range("D" & Idest).Value = Sh1.Range("C" & iSource).Value
 
                Idest = Idest + 1
                Set rg = .FindNext(rg)
            Loop While Not rg Is Nothing And rg.Address <> Address
 
        End If
    End With
 
Next iSource
 
 
End Sub

EDIT : Oups, pas vu le sans macro