Extraction dans une liste sous condition

Version imprimable

08/07/2008, 13h20
INFERNOTRONIC

Extraction dans une liste sous condition

Bonjour à tous,

je cherche le moyen de faire une extraction un peu particulière.
J'ai un tableau excel avec plusieurs feuilles. Sur l'une d'elle, un tableau de plusieurs colonnes. En fait il s'agit d'une table de "Demandeurs". Dans une colonne se trouve le nom du client, dans une autre le nom du demandeur. Cette table mélange l'ensemble des demandeurs par client. Ce que je souhaite, c'est pouvoir extraire de cette table la liste des demandeurs d'un seul client pour l'utiliser ailleurs dans le classeur. Ceci sous forme de formule ou en vba.
Merci par avance de vos conseils et aide.
08/07/2008, 13h42
ilcocodrillo

et le filtre automatique il ne ferai pas l'affaire par hasard ?
08/07/2008, 14h05
INFERNOTRONIC

Citation:

Envoyé par ilcocodrillo

et le filtre automatique il ne ferai pas l'affaire par hasard ?

Je ne pense pas car les données extraite doivent me servir pour faire une liste imbriquée dans un formulaire qui regroupe des données de trois tables.
1ere combo : liste des clients (sur une table)
2eme combo : liste des demandeurs (sur une autre table avec une colonne reprenant le nom du client associé au nom)
3eme combo : liste des équipements (même topo que les demandeurs)

Chaque tables étant une feuille dans un classeurs excel.

Bonjour,
si ça peut te donner une idée, j'ai un USF avec 3 listbox

1 fournisseur - 2 categorie - 3 reference
chacun est dans une feuille differente
à l'initialisation de l'USF, j'ai ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
Dim lg As Integer, CAT1 As Integer
With sheets("FOURNISSEURS")
.Activate
lg = .Range("A" & .Rows.Count).End(xlUp).Row
ListBoxFOURN.RowSource = "a2: a" & lg
End With
With sheets("categorie")
.Activate
CAT1 = .Range("A" & .Rows.Count).End(xlUp).Row
ListBoxCATEGORIE.RowSource = "a2: a" & CAT1
End With
End Sub

à l'évenement click sur listbos fournisseur, je mets ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub ListBoxFOURN_Click()
Dim str As String
Dim cel As Range
ListBoxproduits.Clear
    str = ListBoxFOURN.Value
    With Worksheets("references")
    For Each cel In .Range("F2:F" & .Range("F" & Rows.Count).End(xlUp).Row)
        If cel = str Then
            With ListBoxproduits
              'en fonction des col voulues
                .AddItem cel(1, -3)
                .Column(1, .ListCount - 1) = VBA.Format(cel(1, -2), "#,##0.00 €")
                .Column(2, .ListCount - 1) = VBA.Format(cel(1, 0), "#,##0.00 €")
                .Column(3, .ListCount - 1) = VBA.Format(cel(1, 4), "#,##0.00 €")
                .Column(4, .ListCount - 1) = cel(1, 5)
            End With
        End If
    Next cel
    End With
End Sub

tu dois pouvoir adapter avec 2 listbox dont la première sans doublons