List déroulante choix multiple si coché transmet valeur zone txt Fermé

Question

Bonjour,

j'aimerais savoir si quelqu'un pourrait me venir en aide avec ma base de données. J'ai vérifier plusieurs blogs sur Internet, et je ne suis pas parvenu à faire ce que je voulais. 

J'ai une liste déroulante à choix multiple qui m'apparait en 3 colonnes :
Option               : Valeur_option                : Cout_option
AAA-OPTION1    : ADM + SST                     : 1000.00$
AAA-OPTION2    : ADM + SST + GPC          : 1500.00$
AAA-OPTION3    : ADM                               : 500.00$

Dans un formulaire, si AAA-OPTION1 est coché, alors j'aimerais que la valeur 1000.00$ se mettre dans une zone de texte qui va se nommer cout_option1

Est-ce possible ? Pourriez-vous m'aider s.v.p.

Icagendron

f894009 · Answer

Bonjour,

adaptez a votre besoin:

Private Sub Liste0_Click()
    Dim x
    For Each x In Me!Liste0.ItemsSelected
        If x = 0 Then
            Me.Cout_option1 = Liste0.Column(2, x)
        Else
            Me.Cout_option1 = ""
        End If
    Next
End Sub


bonne suite

icagendron · Answer

Bonjour,

merci pour ce bout de code. Mais ce n'est pas exactement ce code dont j'ai besoin. Je crois m'avoir mal exprimé :S

J'ai une liste déroulante à choix multiple qui m'apparait en 3 colonnes (provenant d'une requête qui s'appelle [cout_adm] :

Option : ----------Valeur_option : -------Cout_option
AAA-OPTION1 : --ADM + SST : ------------1000.00$
AAA-OPTION2 : --ADM + SST + GPC : ----1500.00$
AAA-OPTION3 : --ADM : ---------------------500.00$ 

Dans un formulaire, si AAA-OPTION1 est coché, alors j'aimerais que la valeur 1000.00$ se mettre dans une zone de texte qui va se nommer cout_option1 

si AAA-OPTION2 est coché, alors j'aimerais que la valeur 1500.00$ se mettre dans une zone de texte qui va se nommer cout_option2

et ainsi de suite....

f894009 · Answer

Re,

Private Sub Liste0_Click()
    Dim x
    
    For Each x In Me!Liste0.ItemsSelected
        Me.Cout_option1 = Liste0.Column(2, x)
    Next
End Sub

icagendron · Answer

voici mon code :

Private Sub cout_adm_Click()
    Dim x
    
    For Each x In Me!cout_adm.ItemsSelected
        Me.cout_option1 = cout_adm.Column(2, x)
    Next
End Sub

Est-ce normal qu'il n'y a absolument rien qui m'affiche dans mon champs [cout_option1] ?

f894009 · Answer

Re,

avec le code precedent, affichage ou pas ??

icagendron · Answer

ça ne fonctionnait pas non plus :S

f894009 · Answer

Re, avez-vous rempli toutes les colonnes de votre listebox ???

icagendron · Answer

Absolument, les colonnes sont toutes remplies de données.

f894009 · Answer

Re,

mettez un point d'arret sur end sub pour voir les valeurs des controles

icagendron · Answer

vous n'allez pas m'aimer.......
je suis encore débutante au niveau du VBA.

J'ai mis un point d'arrêt sur end sub, donc je vois un point rouge.
Que dois-je regarder par la suite ? Comment je fais pour voir les valeurs des contrôles ?

f894009 · Answer

Re,

Tout le monde a debuter un jour, donc pas de lezard.

Vous lancez votre formulaire et vous faites un choix. Normalement le programme s'arret et affiche la fenetre VBA sur le morceau de programme de votre listebox.
Pour voir le contenu des objets, placez le curseur souris dessus.

icagendron · Answer

Merci de tout coeur !

En faisant ce que vous m'avez inscrit, ça me dit que me.cout_option1=null

icagendron · Answer

est-ce que c'est ce qui fait en sorte que ça ne fonctionne pas ?

f894009 · Answer

Re,

Oui

pouvez-vous mettre votre fichier a disposition (sans donnees confidentielles). cliquez sur le lien suivant https://www.cjoint.com/

n'oubliez pas de copier le lien cree dans votre prochain message

List déroulante choix multiple si coché transmet valeur zone txt

14 réponses

Discussions similaires