Problème de listbox

**lulux80** · 27/02/2007, 11h04

Bonjour je reviens vers vous pour vous demander des renseignements.

Listbox1 = n_piece
Listbox2 = tot

Comment peut-on faire pour copier le choix que l'on a choisit dans une listbox1 sachant que je peux rajouter d'autres choix qui se mettront dans la listbox à la suite de mon premier choix.

Mais aussi, que le total du choix sélectionné viennet s'ajouter en même temps dans une autre listbox2

D'avance merci

**lulux80** · 27/02/2007, 12h40

de l'aide c possible...Je voudrai savoir qui saurai comment faire pour copier un
choix1 d'une combobox dans une listbox et que j'ai la possibilité de faire un choix2 qui s'ajouterai
en dessous du choix1 et ainsi de suite... et aussi dans une autre listbox de copier le prix
correspondant au choix (en alignement)

**avigeilpro** · 27/02/2007, 15h40

Je pense que si tu essayais d'être un peu plus clair dans tes explications tu aurais peut être plus de réponses. Perso je veux bien essayer de t'aider mais j'ai franchement du mal à comprendre ce que tu veux faire !!!
Que veux-tu dire par :

Envoyé par lulux80

copier un choix1 d'une combobox dans une listbox

Donne nous un exemple un peu plus concret. Donne nous ce que contient ta combobox (en simplifier pour faire un exemple bien sûr) ainsi que ce que contient ta listbox, puis ce que tu veux obtenir. Bref décrit nous un "pas à pas"

**lulux80** · 27/02/2007, 16h37

C'est un exemple
Le combobox "compie" contient "mur", "parpaing", "fer", "rouleau", Le combobox se trouve sur le 1er form "Article".
Une fois sélectionné un article, par exemple, "parpaing", je valide mon choix et je me retrouve sur le 2ème form "Calcul", où là, je saisie des chiffres, la hauteur (txthaut), largeur (txtlarg), longueur (txtlong) puis j'appuies sur Total (txttot) et ça me donne un résultat. Ce résultat là sera mis sur une listbox "prix" sur le 3ème form "Résu".
L'article sera quant à lui mis sur la listbox "n_art" sur le 3ème form aussi.

Retour au 2ème form, une fois, le résultat affiché, j'ai la possibilité de rajouter un article en appuyant sur "valider" qui m'ouvre un msgbox qui demande ("Voulez-vous ajouter un autre article")

Le code est :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim Repaffichage
Repaffichage = MsgBox("Souhaitez-vous ajouter une autre pièce", vbYesNo + vbQuestion, "Ajout d'une pièce")
If Repaffichage = vbYes Then
    Clt.Show
Else
        If Repaffichage = vbNo Then
            Total.Show
        End If
End If

Si je mets "oui", ça retourne au 1er form et je refais la manip' décrite ci dessus mais ça me remplace pas l'article précedemment choisie, mais si je mets NON alors ça mouvre le 3ème form et donc ça me mét le résultat total dans un textbox...voilà ai-je été clair ? tu pe m'envoyer un mail à

Code :

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

Lud-inh0@hotmail.fr

d'avance merci

**zazaraignée** · 27/02/2007, 18h15

Salut lulux

Ça en fait des Forms! Faudra que je relise ça en faisant des p'tits dessins (suis visuelle, comme dise les 'ceusses' qui classifient tout). Si j'ai bien compris en première lecture, ça ressemble à une progression par étapes. Pour tout de suite, je propose:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'Dans le Form1, ou la première étape
Private Sub List1_Click()
    ' du code nécessiare ou pas, selon le traitement qu'il faut
    ' et
    Me.Hide
    Load Form2
    Form2.List2.Additem List1.List(List1.ListIndex)
    Form2.Show
    ' Et s'il faut absolument décharger de la mémoire la première form
    Unload Me
End Sub

Et ainsi de suite

**avigeilpro** · 27/02/2007, 18h38

Juste une petite info pour quelque chose que je vois très souvent :

Code :

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

List1.List(List1.ListIndex)

équivaut à

Code :

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

List1.Text

C'est tout de même plus facile à comprendre lorsque l'on relie son code. on voit mieux ce qu'on réccupère

**lulux80** · 28/02/2007, 13h28

Code :

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

1
2
Total.nom_p.AddItem Saisie.txtnompiece.Text
    Total.tot.AddItem Saisie.txttot.Text

Voilà la solution maintenant, c'est d'additionner le tout de la listbox dans une textbox "total"

**lulux80** · 28/02/2007, 15h27

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub cmdvalid_Click()
Total.tot.Text = txttot.Text
Dim Repaffichage
Repaffichage = MsgBox("Souhaitez-vous ajouter une autre pièce", vbYesNo + vbQuestion, "Ajout d'une pièce")
If Repaffichage = vbYes Then
    Clt.Show
Else
        If Repaffichage = vbNo Then
            Total.Show
            'Resultat.Show
        End If
End If
'    Total.nom_p.AddItem Saisie.txtnompiece.Text '
'    Total.tot.AddItem Saisie.txttot.Text '
End Sub

Je voudrai mettre ce qui est entre ' ... ' dans une boucle afin de pouvoir ajouter d'autres pièces, Alors quelle syntaxe me conseillez-vous

**AurelieB** · 28/02/2007, 17h12

mmmmm c'est pas bon.

t'as pas besoin d'une boucle a cet endroit la car sinon ca va te rentrer plusieur fois la meme piece dans ta liste. Trouve autre chose euh.....

c'est pas trop tard pour dessiner un organigramme.