Bonjour ,
Pour remplir une liste déroulante en fonction de la valeur d'une autre liste :
Lorsque je clique sur une monnaie ( champmonnaie ) , un autre liste me propose la liste des devises convertibles ( => euro )
Si je clique sur Euro => Variable Dollar
si je clique sur Livre => choix entre Dollar et Euro ;
Voici le code que j'applique sur le BeforeUpdate de la zone de liste :
Je n'ai pas réussi et je me demande pourquoi ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Option Compare Database Private Sub ChampDevise_BeforeUpdate(Cancel As Integer) If [Forms]![EvolDevise]!ChampMonnaie = "Euro" Then Me.ChampDevise.AddItem "Dollar/$" If [Forms]![EvolDevise]!ChampMonnaie = "Dollar" Then Me.ChampDevise.AddItem "Euro/$" If [Forms]![EvolDevise]!ChampMonnaie = "Livre Sterling" Then Me.ChampDevise.AddItem "Euro/$;Dollar/$" End Sub
Bien Cordialement
R.M
Partager