[vba-E]données sources d'une combobox variables

Version imprimable

28/08/2006, 09h55
sk8bcn

[vba-E]données sources d'une combobox variables

Mon probleme est le suivant. Je sais ajouter une combobox, choisir les cellules sources de la combo box en utilisant les propriétés de celle-ci via ListFillRange.

Ce que je voudrais faire, c'est utiliser une combobox relativement à une autre.

Exemple:

combobox1

BD
Film

Combobox2

Si c'est BD:
XIII
Titeuf
Boule et Bill
Gaston

Si c'est Film:
Titanic
Starwars
Le seigneur des Anneaux

comment faire?
28/08/2006, 10h09
SfJ5Rpw8

elle viennent d'ou tes données...? ( et Ton VBA il tourne sous quelle application..?)
28/08/2006, 10h21
sk8bcn

excel, j'avais pas mis la balise des le debut mais c corrigé.

Et je ne sais que lier les données a des cellules d'une feuille de reference.

Une solution plus elegante serait un plus.

merci deja d'avoir regarder la question
28/08/2006, 10h36
SfJ5Rpw8

dis nous en plus ton comboBox il est ou ..? il viens de qu'elle barre d'outils..? comment sont organisées tes données... .? un "Filtre Automatique" ne te conviendrai pas..?
28/08/2006, 10h58
sk8bcn

Citation:

Envoyé par bbil

dis nous en plus ton comboBox il est ou ..?

sur une feuille excel.

Citation:

il viens de qu'elle barre d'outils..?

boite a outils controles

Citation:

comment sont organisées tes données... .?

heu, je suis pas sur de bien comprendre. Je dois dire que je bricole sur les combobox.

Ce que je fais:

j'insers via la boite à outil une combobox. J'utilise "properties" pour linker la combobox a une feuille reference, je mets les données qui la remplissent. le resultat de la combobox y est affiché mais aussi repercuter dans une cellule de la feuille "reference" pour utilisation sous vba. je ne sais pas si la valeur de la combobox me donne: combobox1="BD" par exemple. J'utilise la cellule cible.

Citation:

un "Filtre Automatique" ne te conviendrai pas..?

a vrai dire, tout me conviendrait. Je voudrais simplement que l'operation soit transparente pour l'utilisateur. Comme par exemple qd sur les sites tu entres ton pays puis ta region.

Je suis consciens de mes lacunes au demeurrant et les progrès que j'ai fait, je les dois à developpez.com (doc de Rabilloud, le forum etc.)

merci de ta patience.
28/08/2006, 11h11
SfJ5Rpw8

essai le filtre automatique, place le curseur dans ton tableau .. puis menu outils /Données/Filtre automatique
28/08/2006, 11h30
sk8bcn

mmm ça ne va pas. Meme en essayant de bidouiller. Le menu deroulant de ma combobox n'est pas affecté par le tri.
28/08/2006, 11h41
SfJ5Rpw8

Citation:

Envoyé par sk8bcn

mmm ça ne va pas. Meme en essayant de bidouiller. Le menu deroulant de ma combobox n'est pas affecté par le tri.

ben avec le filre automatique tu n'as plus besoin de ta combobox...
28/08/2006, 12h05
sk8bcn

arf vrai.

En fait, je me suis mal exprimé sur le coté élégant de la solution.

Le codage n'a pas besoin d'être élégant. En revanche, j'ai besoin d'une interface pour l'utilisateur qui rend bien.

Le filtre au lieu de la combobox marcherait mais là j'y perdrais pas mal en design.
28/08/2006, 12h35
SfJ5Rpw8

juste une question.. encore.. en utilisant listFillRange.. n'as tu pas de "doublons" dans ta premiére liste... ?
28/08/2006, 14h16
sk8bcn

comment ça? non? pourquoi?

ListFillRange reference!B2:B3

LinkedCell ref!B1

B2: BD
B3: Film

reste a trouver les liens de l'autre combobox.

bon un double clic sur le combobox1 et rajout du code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub ComboBox1_Change() Dim rDonnee As Range 'Plage de donnée Dim rLigne As Range Const COL_TYPE = 15 'Numero colonne contenant le type de donne Const COL_TITRE = 1 'Numero colonne titre Set rDonnee = Sheets("Feuil1").Range("A1").CurrentRegion ComboBox2.Clear 'Efface le combo box For Each rLigne In rDonnee.Rows 'Parcours les lignes du tableau If rLigne.Cells(COL_TYPE) = ComboBox1.Text Then ComboBox2.AddItem rLigne.Cells(COL_TITRE) End If Next End Sub
Code à adapter en fonction de tes données.. la ligne

Code:

Set rDonnee = Sheets("Feuil1").Range("A1").CurrentRegion

définit les données, tu peu voir ce que cela donne en te plaçant en cellule A1 de la feuille Feuil1 puis tu actionne les touches CTRL *

Les constantes :
Code:

1 2 3 Const COL_TYPE = 15 'Numero colonne contenant le type de donne Const COL_TITRE = 1 'Numero colonne titre
définissent les numéro de colonne concernées dans ta zone de donnée..

28/08/2006, 14h49
sk8bcn

merci de ton aide!!

je vais essayer de m'en servir des maintenant.

J'ajoute le tag résolu aussi.

Merci!