Discussion :

[Oreo_]

Bonjour à tous!

Dans un formulaire je cherche à alimenter un champ (liste déroulante : ch_2) en fonction du choix de la valeur d'un autre champ (liste déroulante : ch_1).

j'ai donc attribué ce code au champ ch_1 :

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
Private Sub ch_1_AfterUpdate()
 
    Dim liste As String
    Dim n As Integer
 
    'liste équivaut à la valeur selectionnée par l'utilisateur
    'n sert à connaître le numéro de la ligne sélectionnée
    n = Me.Controls!ch_1.ListIndex
 
    'Pour renvoyer la valeur de la ligne n
    liste = Me.Controls!ch_1.ItemData(n)
 
    If liste= "val1" Then                  
            Me.Controls!ch_2.Value = "etudiant"
    ElseIf liste= " " Then
        Me.Controls!ch_2.Value = "lyceen"
    End If
End Sub

Lorsque le champ "ch_1" est vide, je voudrais que la valeur de "ch_2" soit "lyceen" or mon code ne fonctionne pas et ne remplit par le champ 2 si il n'y a pas de valeur dans champ 1.
Je ne comprend pas d'ou vient mon erreur...

Merci d'avance pour votre aide!

[titi95]

Bonjour

1) Essaie ceci... ?

Code :

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

1
2
3
    ElseIf liste= "" Then
'ou
    ElseIf IsNull(liste) Then

2) que souhaites-tu si liste n'est ni égal à val1 ni vide ?
3) pourquoi ch_2 est une Zone de liste déroulante ?
4) pour récupérer une valeur d'une Zone de liste déroulante Sur clic, il y aurait plus simple...

titi95

[Oreo_]

Merci titi95 j'ai utilisé ton 2ème code et ça marche.