Discussion :

[AurelieB]

nom_p est il bien un controle sur form3 ??

connais tu les outils de completion automatiques du vb? Ctrl + espace ds vb6 par exemple?

[lulux80]

nom_p est une listbox sur le form3
Non je ne coné pas CTRL+Espace ça fé koi

[lulux80]

Et si je mettais

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
16
17
18
19
20
 
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
'des instructions
'Si oui alors copier compie dans nom_p 
'et copier txttot dans tot du form3
'et ouvrir clt
Else
        If Repaffichage = vbNo Then
            Total.Show
'si non alors copier compie dans nom_p 
''et copier txttot dans tot du form3
'et ouvrir form3
        End If
End If
End Sub

ça pourrai marcher

[AurelieB]

Oh! pardon c'est AddItem qui n'est pas a sa place en effet la methode AddItem c'est pour une listbox pas pour un controle text.

Il me semble que ce que tu dois faire c'est

nom_p.AddItem Saisie.txtnompiece.text



juste le contraire quoi

P.S.
ctrl+espace te propose la completion des nom que tu es en train de taper

voir menu Edition -> complete word

[lulux80]

Code :

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

1
2
3
4
(Total.)nom_p.AddItem Saisie.txtnompiece.Text
    'Saisie.txtnompiece.AddItem Total.nom_p.List(Clt.compie.ListIndex)
    Saisie.txttot.AddItem
    Total.Show

J'enlève quoi et sans (total.) j'ai une erreur

[AurelieB]

c'est normal....tu codes dans form2 des instructions pour un control qui se trouve dans une autre form => faut donner le nom de la form en l'occurence total.nom_p

ce qui vient apres

Saisie.txttot.AddItem

n'a pas l'air super non plus cf mon precedent msge.

[lulux80]

alor bonne nouvelle, j'ai mis ça comme code

Code :

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

1
2
3
4
Total.nom_p.AddItem Saisie.txtnompiece.Text
'Saisie.txtnompiece.AddItem Total.nom_p.List(Clt.compie.ListIndex)
Saisie.txttot.AddItem
Total.Show

Et ça a marché mais ça mis avant un msg d'erreur comme toute à l'heure

[lulux80]

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"

[avigeilpro]

Text, propriété

-Contrôles ComboBox (propriété Style de valeur 0 [liste modifiable déroulante] ou 1 [liste modifiable simple]) et TextBox : renvoie ou définit le texte contenu dans la zone modifiable.

-Contrôles ComboBox (propriété Style de valeur 2 [liste déroulante]) et ListBox : renvoie l'élément sélectionné dans lazone de liste ; la valeur renvoyée est toujours équivalente à la valeur renvoyée par l'expression List(ListIndex). Cette propriété est en lecture seule aumoment de la création et aumoment de l'exécution.

Ca simplifie le code des petits trucs comme ça

[lulux80]

C'est bon ça marche enfin ça me met le nom de la pièce et le tot dans chacune des deu listbox, maintenan c'est de rajouter d'autre pièce sans que celle déjà dedans ne parte si ça vien du m client...

[lulux80]

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]

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.

[lulux80]

ça yé ça marche les pièces viennent s'ajouter et je voudrai l'addition de ma listbox

[AurelieB]

AHAHHHHHHHH! c'est maintenant que tu vas faire une boucle