List déroulante choix multiple si coché transmet valeur zone txt
icagendron
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- List déroulante choix multiple si coché transmet valeur zone txt
- Liste déroulante excel - Guide
- Alternative zone telechargement - Accueil - Outils
- Liste déroulante en cascade - Guide
- List disk - Guide
- Directory list & print - Télécharger - Divers Utilitaires
14 réponses
Bonjour,
adaptez a votre besoin:
bonne suite
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
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....
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....
Re,
Private Sub Liste0_Click()
Dim x
For Each x In Me!Liste0.ItemsSelected
Me.Cout_option1 = Liste0.Column(2, x)
Next
End Sub
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] ?
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] ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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 ?
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 ?
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.
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.
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
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