Discussion :

[mentat]

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 :

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

[jfontaine]

Bonjour,


J'ai du mal a comprendre ton code

A quoi correspond les <10 etc qui alimente la variable sliste ?

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

[mentat]

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 :

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

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

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

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

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

[mentat]

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

[Pierre Fauconnier]

1. Dans une feuille vierge, crée la liste des catégories et nomme-là (sans les titres)


2. Crée la liste de tes films, éventuellement avec un liste de validation, dans une autre feuille


3. nomme cette plage (sans les titres)


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

Code :

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

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


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