Discussion :

[Alex_42]

bonjour à tous,

il y a plusieurs sujets faisant référence à mon problème, mais je ne parviens pas à obtenir ce que je souhaite (pas bien compliqué pourtant ... )

dans une liste déroulante, j'ai 2 colonne ; pour simplifier la 1ere va de 1 à 9 et la 2eme de A à I

en fonction de mon choix dans la colonne 1 je souhaite récupérer la valeur lié de la colonne 2 .

en utilisant le code suivant, ça me retourne toujours la même valeur de la colonne 2, quelque soit la valeur de la colonne 1 choisie :

Code :

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

var = Me.Modifiable.Column(1)

Merci d'avance pour votre aide.

[granchef]

Bonjour,

Chez moi ça fonctionne, après mise à jour de la liste déroulante 'var' contient bien la valeur désirée.
La liste déroulante contient 2 colonnes,
1-item1
2-item2
3-item3

Code :

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

1
2
var = Modifiable10.Column(1)
msgbox "Selection : " & "var"

affiche selon le choix 'item1' ou 'item2" ou 'item3'

Ton code s’exécute t-il 'after update' de la liste déroulante?
Celle-ci est-elle correctement remplie ?

[Alex_42]

j'execute le code 'sur changement' de la liste

j'ai trouvé cette solution depuis qui fonctionne bien :

Code :

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

1
2
3
4
5
6
7
8
i = 0
 
While Me.Modifiable.Column(0, i) <> Me.Modifiable
    i = i + 1
Wend
 
Me.Client = Me.Modifiable.Column(1, i)
Me.Client.Requery

la liste est bien remplie , j'avoue que ma solution ne me plait pas bcp , il doit certainement y avoir mieux, mais en attendant ....

[granchef]

Code :

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

1
2
3
4
5
6
7
 
i = 0
While Me.Modifiable.Column(0, i) <> Me.Modifiable
    i = i + 1
Wend
Me.Client = Me.Modifiable.Column(1, i)
Me.Client.Requery

En réalité ton besoin et de mettre la valeur sélectionnée dans Client qui est? Un formulaire? Un champ ?

[Alex_42]

c'est exact , c 'est un champ de mon formulaire

[granchef]

S'il s'agit d'un champ texte je crois que c'est :

Code :

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

1
2
 
monChampTexte.text= Modifiable10.Column(1)