Remplir une combobox à l'aide d'une checkbox

Version imprimable

Bonjour à tous,
Je suis novice en VBA, alors je bidouille un peu en naviguant sur les forums pour m'aider mais là je suis bloqué je ne sais plus comment faire...

Alors voila mon problème:

Je souhaite me faire une bibliothèque ou base de donné en VBA avec Excel 2003.
Dans ma colonne B j'ai du texte avec lesquels je souhaite charger ma combobox (ex: nom de film).
Dans la C j'ai un chiffre (pour l'instant je ne ne le traite pas).
Dans la D j'ai du texte (ex: genre du film).

Exemple:
____B_________________C____________D_______
__Poirot________________________policier___
_Stargate_________________________S-F______
_Sherlock_______________________policier___
_Starwars_________________________S-F______
_Les Inconnues___________________Humour____
_robin des bois__________________Aventure__
_Rambo___________________________Action____
ect...

ma combobox1 doit donc comporter les noms de film en fonction de la checkbox que je coche.
Si je coche la checkbox1 la combobox doit me laisser le choix des films policier.
Si je cohe la checkbox2 la combobox doit me laisser le choix des films S-F.
Si je coche la checkbox1 et la checkbox2 la combobox doit me laisser le choix des films policier et S-F.... ect avec les autres combobox.

j'ai donc 1 combobox pour 4 checkbox caractérisant des critères de sélection sur ce que je souhaite afficher ou non dans ma combobox.

on à déjas commencé à m'aiguiller et à m'aider seulement il y a encore quelques erreures el mon code ne fonctionne pas...
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 Dim maCell As Object Dim sListe As String If UserForm1.CheckBox1m10.Value = True Then sListe = "<10" End If If UserForm1.CheckBox2m20.Value = True Then sListe = "<20" End If If UserForm1.CheckBox3p20.Value = True Then sListe = ">20" End If If UserForm1.CheckBox4p25.Value = True Then sListe = ">25" End If sListe = sListe & "," With Worksheets("Liste map") For Each maCell In .Range("B3:B10000") If maCell.Value = "" Then Exit For If sListe Like "*," & maCell.Offset(0, 2).Value & ",*" Then UserForm1.comboboxmaps.AddItem .maCell.Value End If Next End With
Si une bonne âme s'égare... toutes aide me serait utile :D Merci

27/08/2009, 20h40
jfontaine

Bonjour,

J'ai du mal a comprendre ton code

A quoi correspond les <10 etc qui alimente la variable sliste ?
27/08/2009, 21h17
Pierre Fauconnier

Bonsoir

Déjà, Excel n'est pas adapté pour ce genre de truc, et tu pourrais arriver à quelque chose de chouette sans une ligne de VBA en 5 minutes avec Access...

Cela étant, si tu persistes à vouloir le faire dans Excel, tu as intérêt à poser les bonnes bases.

Ton système avec checkbox peut fonctionner, mais est très figé (Si tu veux ajouter une catégorie de films, tu dois ajouter un checkbox et du code => mauvaise analyse au départ).

Voilà les jalons que je te propose:
1. Créer une liste des catégories dans une feuille et nommer la plage
2. Jeter tes checkbox à la poubelle
3. Appuyer un premier combobox sur cette liste des catégories. Ainsi, tu peux ajouter autant de catégories par la suite sans modifier une ligne de code
4. Présenter un second combobox vide au départ
5. A la mise à jour du premier comboboc, vider le second, puis le remplir par itération sur la liste des films en n'ajoutant que ceux qui correspondent à la catégorie...

Bonsoir jerome,

En fait les <10, <20, >20 et >25 ce sont les valeur que je souhaite récupérer...
Si je te donne mon code par rapport à l'exemple ce serais ça...

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
Dim maCell As Object
Dim sListe As String
If UserForm1.CheckBox1m10.Value = True Then
  sListe = "policier"
End If
If UserForm1.CheckBox2m20.Value = True Then
  sListe = "humour"
End If
If UserForm1.CheckBox3p20.Value = True Then
  sListe = "S-F"
End If
If UserForm1.CheckBox4p25.Value = True Then
  sListe = "Aventure"
End If
 
sListe = sListe & ","
 
With Worksheets("Liste map")
  For Each maCell In .Range("B3:B10000")
    If maCell.Value = "" Then Exit For
    If sListe Like "*," & maCell.Offset(0, 2).Value & ",*" Then
      UserForm1.comboboxmaps.AddItem .maCell.Value
 
    End If
  Next
End With

C'est vrai que c'est peut etre un peut plus compréhensible lol désolé merci de ton aide...

27/08/2009, 21h26
mentat

Merci Pierre,
ça me parait pas mal aussi mais en fait ce qui me bloque c'est que je n'arrive pas à charger ma première combobox à l'aide de ma colonne B en fonction de ma colonne D...
27/08/2009, 21h32
jfontaine
Dans ton cas j'éviterais de lire les 10000 première lignes amoins qu'il y ait vraiment 10000 lignes de données
J'utiliserais une simple lecture de chaque ligne avec test de la cellule contenant la donnée a tester
Code:

1 2 3 4 5 Do while Range("A" & i).value<>"" 'Test a effectuer i=i+1 loop
Penches toi sur la méthode de Pierre qui sera plus évolutive
27/08/2009, 21h43
mentat

Ok mais ce qu'il me faut c'est que la boucle continue jusqu'a ce qu'elle ne trouve plus rien...

C'est bien ce que fait le code que j'ai mis

Code Complet avec la déclaration de la variable
Code:

1 2 3 4 5 6 7 8 9 Dim i As Integer i = 1 Do While Range("A" & i).Value <> "" 'Test a effectuer i = i + 1 Loop

1. Dans une feuille vierge, crée la liste des catégories et nomme-là (sans les titres)
http://fauconnier.developpez.com/for...ages/film1.png

2. Crée la liste de tes films, éventuellement avec un liste de validation, dans une autre feuille
http://fauconnier.developpez.com/for...ages/film2.png

3. nomme cette plage (sans les titres)
http://fauconnier.developpez.com/for...ages/film3.png

Dans le module du userform, avec le combobox1 pour la catégorie et le combobox2 pour les films, place le code suivant
Code:

1 2 3 4 5 6 7 8 Private Sub ComboBox1_Change() Dim Cellule As Range ComboBox2.Clear For Each Cellule In Range("tfilms").Columns(1).Cells If Cellule(1, 2) = ComboBox1.Text Then ComboBox2.AddItem Cellule.Value Next Cellule End Sub
En lançant le userform, tu auras
http://fauconnier.developpez.com/for...ages/film4.png

En rendant les plages dynamiques (les nommer avec Decaler), tu évites de boucler sur rien => règle de base: Pour attaquer le VBA, toujours se simplifier la vie en plaçant le décor avec Excel...

27/08/2009, 21h58
mentat

Oki Merci Pierre je vais faire ça plutôt... et comment faire si je souhaite que mes liste soit par ordre alphabétique...?
27/08/2009, 22h01
Pierre Fauconnier
Comme je l'ai dit plus haut, d'abord planter le décor en Excel. Il suffit donc de trier la liste des catégories et la liste des films, par exemple à l'ouverture du combobox...
Code:

1 2 3 4 Private Sub UserForm_Initialize() Range("tcategories").Sort key1:=Range("tcategories").Range("a1") Range("tfilms").Sort key1:=Range("tfilms").Range("a1") End Sub
28/08/2009, 00h39
mentat

Merci Pierre ça fonctionne pas trop mal j'ai encore quelque modif à faire car ça m'entraine d'autre bug maintenant lol je laisse encore ouvert le poste au cas où j'ai des problème... Bonne nuit à bientot je tiens au courant pour la suite encore merci...
28/08/2009, 08h36
Pierre Fauconnier

Si tes bugs ne concernent pas le sujet initial de la discussion, il sera préférable d'ouvrir une nouvelle discussion sur le nouveau thème, de manière à laisser les discussions propres et à éviter qu'elles partent dans tous les sens...

C'est vrai Tu as raison... Après un peu de modif, ton code fonctionne parfaitement :

Voici mon code dans l'userforme:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub ComboBox1_Change()
'Ajout de tous les item de la comboboxmaps lorsque combobox1 = ""
If ComboBox1 = "" Then
comboboxmaps.Clear
  Dim j As Long
  j = 3
  While Worksheets("Liste map").Range("B" & j).Value <> ""
   UserForm1.comboboxmaps.AddItem Worksheets("Liste map").Range("B" & j).Value
  j = j + 1
  Wend
Else
'Ajout de tous les item de la comboboxmaps suivant la valeur de la combobox1
    Dim Cellule As Range
    comboboxmaps.Clear
    For Each Cellule In Range("tmaps").Columns(1).Cells
        If Cellule(1, 2) = ComboBox1.Value Then comboboxmaps.AddItem Cellule.Value
    Next Cellule
End If
End Sub

Voici le code dans Thisworkbook:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Workbook_Open()
'Ajout de tous les item de la comboboxmaps au démarrage de l'useforme
    If ComboBox1 = "" Then
  Dim j As Long
  j = 3
  While Worksheets("Liste map").Range("B" & j).Value <> ""
   UserForm1.comboboxmaps.AddItem Worksheets("Liste map").Range("B" & j).Value
  j = j + 1
  Wend
    End If
 
    'Ajout d 'item automatique de la combobox1
  Dim i As Long
  i = 5
While Worksheets("Liste map").Range("H" & i).Value <> ""
    UserForm1.ComboBox1.AddItem Worksheets("Liste map").Range("H" & i).Value
  i = i + 1
Wend
End Sub

Meric pour tout Pierre ansi qu'a toi jerome...