Discussion :

[sk8bcn]

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?

[SfJ5Rpw8]

elle viennent d'ou tes données...? ( et Ton VBA il tourne sous quelle application..?)

[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

[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..?

[sk8bcn]

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

sur une feuille excel.

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

boite a outils controles

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.

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.

[SfJ5Rpw8]

essai le filtre automatique, place le curseur dans ton tableau .. puis menu outils /Données/Filtre automatique

[sk8bcn]

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

[SfJ5Rpw8]

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...

[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.

[SfJ5Rpw8]

juste une question.. encore.. en utilisant listFillRange.. n'as tu pas de "doublons" dans ta premiére liste... ?

[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.

[SfJ5Rpw8]

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

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
 
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 :

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

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 :

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

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..

[sk8bcn]

merci de ton aide!!

je vais essayer de m'en servir des maintenant.

J'ajoute le tag résolu aussi.

Merci!