Discussion :

[taisherg]

Bonjour,

Voilà, j'ai 2 formulaires :
- le 1er me permet de sélectionner des numero d'études en fonction de divers critéres et affiche les études correspondant aux critéres de sélection dans une liste
- le 2nd permet de construire un graph en fonction d'un numéro d'étude et d'une question. Dans celui-ci il faut donc sélectionnée le numero de l'étude à l'aide d'une liste déroulante. Or je n'arrive pas à incrémenter cette liste déroulante des valeurs de la liste du formulaire 1.

J'ai essayé avec :

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
Private Sub cmbEtude
Dim i As Integer
Dim trouve As Boolean
trouve = False
For i = 1 To (Form_Formulaire1.lst_resultat.ListCount + 1)
    If Form_Formulaire1.lst_resultat.Selected(i) Then
        If trouve = False Then
            cmbEtude.RowSource = Form_Formulaire1.lst_resultat.Column(0, i)
            trouve = True
        Else
            cmbEtude.RowSource = cmbEtude.RowSource & ";" & Form_Formulaire1.lst_resultat.Column(0, i)
        End If
    End If
Next i
End Sub

Mais bon ma liste déroulante reste vide...
Quelqu'un aurait-il une idée pour m'aider ???

Merci

[NOODLE02]

Pour ajouter une valeur à une liste déroulante, tu dois utiliser la méthode

Code :

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

cmbEtude.additem(TonItem)

[taisherg]

Merci pour votre réponse,

Or ici, les valeurs de ma combobox ne sont pas fixes, mais changent en fonction des valeurs affichées dans la liste du formulaire 1...

[NOODLE02]

Dans ce cas là, il faut d'abord aller chercher les valeurs d'origine dans le formulaire1 et les utiliser pour remplir la combobox.
Tu peux faire cela dans la boucle de consultation des valeurs de ton formulaire et ajouter un item à chaque valeur correspondant à tes critères

[Invité]

Pour ajouter une valeur à une liste déroulante, tu dois utiliser la méthode
cmbEtude.additem(TonItem)

Pour Info applicable à partir d'Access 2002.

Starec