Discussion :

[dodo69]

Bonjour a tous,

J'ai un problème pour alimenter ma combobox a partir d'un tableau croisé dynamique

J'ai sur ma feuille("code") un tableau croisé dynamique avec 2 variables sur une colonne.
Variable 1: les familles des produits
Variable 2 :Les produits

On effectue un filtre sur les familles de produits.

Ce qu'il me faudrait c'est que ma combobox récupère ma liste de produits obtenus en fonction du filtre ( cette liste ne fait donc jamais la même taille)
Je ne sais pas récupérer ces valeurs sauf avec un RowSource , qui ici me semble impossible.

Merci pour votre aide

Si je n'ai pas été clair, demandez moi plus de précision

Mercid 'avance

Cordialement
DoDo

[NoobProg]

Tu veux récupérer des cellules, selon des mots que tu mettrais dans une autre cellule ?

Tu as commencé un bout de code ?

[dodo69]

En faite, l'utilisateur choisi une famille de produit, ("famille A" par exemple).

a ce moment là, il y a un filtre qui se crée sur ma feuille("code") au niveau du TCD, avec comme critère la famille de produit choisie ( "famille A")

le TCD va chercher dans ma base de donnée tous les produits correspondants a la famille de produit chosie

On aura alors par exmple sur cette feuille"code" :
En G5: produit1
en H5: produit2
en I5: produit3
en J5: produit4

...

Voilà ce que j'ai ecrit, mais rien ne s'affiche dans la combo

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
 
Private Sub UserForm_activate()
Dim ligne_produit As String
Dim le_produit As Integer
 
ligne_produit = 4
 
With Sheets("code")
Do
ligne_produit = ligne_produit + 1
Loop Until .Cells(ligne_produit, 7).Value = ""
 
titre.Caption = "Choisissez 1 ou plusieurs produits de la famille " & vbNewLine & Sheets("code").Range("E4").Value
 
For le_produit = 5 To ligne_produit
    With liste_produits
        .AddItem Sheets("code").Range("G" & ligne_produit)
    End With
 
Next
 
End With
 
End Sub

Merci de votre aide

[NoobProg]

Tu as eu idées de caractériser tes produits avec tes "familles" ?

[dodo69]

Je n'ai pas compris ta question Noobprog :s

Mais j'ai résolu mon problème

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Private Sub UserForm_Initialize()
Dim ligne_produit As String
Dim le_produit As Integer

ligne_produit = 4

With Sheets("code")
Do
ligne_produit = ligne_produit + 1
Loop Until .Cells(ligne_produit, 7).Value = ""

titre.Caption = "Choisissez 1 ou plusieurs produits de la famille " & vbNewLine & Sheets("code").Range("E4").Value

For le_produit = 5 To ligne_produit - 1
    With liste_produits
        .AddItem Sheets("code").Cells(le_produit, 7)   
 End With

Next

End With

End Sub

Le problème de mon code résidait dans le fait que j'essayais d'inséré la valeur de la cellule au lieu de la cellule en elle-même j'ai l'impression

Enfin j'ai pas trop compris en quoi ca le dérangeais mais toujours est-il que ca marche maintenant...

Merci quand même Noobprog c'est sympa

Cdlt
DoDo