Discussion :

[vicelard]

Bonjour a tous j'aimerai comme le titre l'indique pouvoir quand je selectionne (click) dans un liste de choix une valeur que celle ci soit reprise dans une zone de texte.
Je precise aussi que ma liste déroulante est a choix multiple simple et que j'aimerais aussi effectuer un calcul (une somme pour etre exact) sur les valeur se trouvant dans la zone de texte (donc qui viennent de la liste déroulante)

Est ce possible et si oui comment

D'avance merci pour toute l'aide que vous pourrez me fournir.

[Petogaz]

salut,

commence par une recherche sur le forum, bouton recherche, FAQ...et tu trouvera la solution.

[vicelard]

j'ai complétementparcouru le faq et je n'ai rien trouver qui réponde a mon problème...
Si tu pouvais me donner l'url de la solution a laquelle du pensais cela pourrais certainement m'ouvrir les yeux
D'avance merci

[cafeine]

Hello,

Je precise aussi que ma liste déroulante est a choix multiple simple et que j'aimerais aussi effectuer un calcul (une somme pour etre exact) sur les valeur se trouvant dans la zone de texte (donc qui viennent de la liste déroulante)

1- Comment une liste déroulante peut-elle être à choix multiple ?
2- Mettre à jour une textbox avec le sélection d'une combo, pourrait se faire sur l'événement Après mise à jour de la combo :

Code :

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

Me.MonTextBox = Me.MaCombo

[vicelard]

ce n'est effectivement pas une liste déroulante mais une zone de liste simple
autant pour moi

[vicelard]

j'ai donc essayer ta methode cafeine mais elle n'a pas l'air de vouloir fonctionner avec moi
voila mon code

Option Compare Database


Private Sub lstmodele_AfterUpdate()
Me.lstoption.Value = Null
Me.lstoption.Requery
End Sub


Private Sub lstoption_AfterUpdate()
Me.lstoption = Me.txtoption
End Sub

Private Sub lsttype_AfterUpdate()
Me.lstmodele.Value = Null
Me.lstmodele.Requery
End Sub

[Petogaz]

salut,

comme c'est une zone de liste simple ce code ne sert pas :

Code :

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

Me.lstoption.Value = Null

as-tu essayer dans un évenement Dblick par exemple :

Code :

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

1
2
3
Private Sub lstoption_Dblcick() 
Me.txtoption = Me.lstoption 
End Sub

et en faisant un double click sur la ligne à insérer.

[Faw]

Salut, ce que je comprends c'est que tu veux que la zone de texte
te renvoie la somme des valeurs sélectionnées dans la liste.
Si ces valeurs sont dans la colonne liée

Code :

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

1
2
3
4
5
6
Private Sub Liste0_Click()
Me.Texte4 = 0  
For I = 0 To Me.Liste0.ItemsSelected.Count - 1
Me.Texte4 = Me.Texte4 + Me.Liste0.ItemData(Me.Liste0.ItemsSelected(I))
Next
End Sub

[vicelard]

non ce n'est pas la valeur
Je vais essayer de faire simple
J'ai tout d'abord une liste deroulante qui me permet de choisir le type d'engin que je veux selectioner
Puis une seconde liste deroulante qui me permet de choisir parmis les modeles de machines en fonction de ce que j'ai rentere comme type
Puis une liste qui me permet de choisir les options du modele que j'ai choisit (la je peux faire une selection multiple).Cette dernière contient 3 colonnes (la référence de l'option, la description et le prix HT).
J'aimerai qu'a fois que je selectionne une option (par click sur celle) l'intégralité des informations de cette options soit reprises dans la zone de texte en dessous (donc toutes les options sélectionnées) et que la somme des prix ht de la machine soit cumulé pur me donner le prix HT de la machine
Voila ce que je voudrais mais je n'y arrive pas
J'ai les 3 listes (déroulantes ou non ) qui se "correspondent" mais pas le rapatriment des données vers mon champs texte

Je viens d'essayer la méthode d'évenement par double click et tjs rien
merci bcp pour le coup de main

[Faw]

Peut-être comme ça (pas testé)

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Liste0_Click()
 
Me.Texte4 = ""
Me.prixHT = 0
For I = 0 To Me.Liste0.ItemsSelected.Count - 1
Me.Texte4 = Me.Texte4 & " " & Me.Liste0.ItemData(Me.Liste0.ItemsSelected(I))
prixHT = prixHT + Nz(Me.Liste0.Column(2,Me.Liste0.ItemsSelected(I)),0)
Next
End Sub

[vicelard]

alors ta solution marche tres bien Faw et je t'en remercie
Mais si me permettais je te demanderais comment faire pour que toutes les 3 colonnes soit inscrites dans la textbox et non pas seulement la référence et que celle ci apparaise sous forme de colonne (incrémentation ?) et non pas en ligne
En faite la quand je click sur les différentes options elle se mettent en ligne a la queue leuleu

Encore merci a tous pour votre si précieuse

[Faw]

Pour mettre en colonne (Propriété Effet touche Entrée de Texte4 = Nouvelle L. dans chp.)

Code :

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

Me.Texte4 = Me.Texte4 & vbCrLf & Me.Liste0.ItemData(Me.Liste0.ItemsSelected(I))

Pour mettre les trois colonnes par ligne de la zone de texte
il faudra imbriquer une boucle For j = 0 to Me.Liste0.ColumnCount - 1
Je regarderai si la nuit est cool ...

A moins que tu ne passes par une zone de liste à la place de Texte4 et
AddItem.
tout dépend de tes objectifs et aussi de leur nature (Que veux -tu faire?...)

[vicelard]

Je suis désolé mais je ne vois pas ce que tu veux dire par objectif
Je peux te donner le cadre dema demarche
En faite je voudrais automatiser un peu la sais d'information au niveau du bon de commande de machine engin tp
En effet aujourd'hui le bon de commande et la feuille de prix (une par modèle) sont sur des feuilles excels différentes ce qui oblige a jongler entre deux onglet pour copier/coller sur le bon de commande
Donc un premier temps je choisi le type de machine (enginde demolition, chantier etc...) dans un zone de liste deroulante
Puis le modele (ex nw354) dans une autre liste déroulante
Puis les options qui sont directement lié au modele (un meme type d'engin comporte les mem option mais a des prix differents et un type de pelle differents comporte des options differentes)
Voila mon objectif
Si maintenant par objectif tu parles de la fcon dont je soite exploiter les informations, étant très novices je ne sais pas encore très bien
Mais j'ai quelque idée j'aimerais pas exemple que ces informations (dans la textbox que tu apelle text4) puise allez dans un état que je puisse imprimer
J'aimerais aussi que le prix ht puisse etre modifier pa des codes de remises, mais je ne suis pas très sur peut etre pour cette parti la serait t'elle plus facile a exploiter sous excel comme elle l'est au jour d'aujourd'hui..
Voila dis moi si j'ai répondu la question que tu me posais
Ps: le petit bout de code pour les données en colonnes marche très bien.

[Faw]

Ok, si tu tiens à ta zone de texte

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Liste0_Click()
Me.Texte4 = ""
 
For I = 0 To Me.Liste0.ItemsSelected.Count - 1
For J = 0 To Me.Liste0.ColumnCount - 1
Me.Texte4.SetFocus
 
Me.Texte4 = Me.Texte4 & Nz(Me.Liste0.Column(J, Me.Liste0.ItemsSelected(I)), "")
Next J
 
Me.Texte4 = Me.Texte4 & vbCrLf & Nz(Me.Liste0.Column(J, Me.Liste0.ItemsSelected(I)), "")
Next I
End Sub

Pour le côté conceptuel il y a moyen de faire plus simple mais je laisse la réponse aux spécialistes...

[vicelard]

Alors ca doit pas etre loin
il me souligne le deuxieme txtoption dans la ligne

Code :

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

Me.txtoption = Me.txtoption & vbCrLf & Nz(Me.lstoption.Column(J, Me.lstoprion.ItemsSelected(I)), "")

En me disant Erreur de compilation
Membre de méthode ou donnée introuvable
Je ne sais pas quoi faire

[vicelard]

Je te remet le code que j'ai

Private Sub lstoption_Click()
Me.txtoption = ""
Me.txtprixht = 0
For I = 0 To Me.lstoption.ItemsSelected.Count - 1
For J = 0 To Me.lstoption.ColumnCount - 1
Me.txtoption.SetFocus

Me.txtoption = Me.txtoption & Nz(Me.lstoption.Column(J, Me.lstoption.ItemsSelected(I)), "")
Next J
Me.txtoption = Me.txtoption & vbCrLf & Nz(Me.lstoption.Column(J, Me.lstoprion.ItemsSelected(I)), "")
Next I
txtprixht = txtprixht + Nz(Me.lstoption.Column(2, Me.lstoption.ItemsSelected(I)), 0)
End Sub

[Faw]

Propriété Effet touche Entrée de txtoption = Nouvelle L. dans chp.
tu l'as fait?

[vicelard]

non je le fais de suite

MAJ :fait mais tjs la même erreur
L'erreur se produit des que je click sur une des options

[Faw]

Me.txtoption = Me.txtoption & vbCrLf & Nz(Me.lstoption.Column(J, Me.lstoprion.ItemsSelected(I)), "")

Amen

[vicelard]

Vraiment autant pour moi je n'avais completement relu
Le pb quand tu aides les gens ce que en fait de assisté

Cela fonctionne très bien mais effectivement le textbox se remplit sans laisser d'espace entre la ref et la description (le prix ne s'affichant pas)
Est ce normal? comment puis je y remedier?