HELP mais J'ai changé

salut, je voudrai savoir si vous pouvais m'aider, voilà j'ai 2 problèmes :

Le premier ;

J'ai deux formulaires (clt et calcul)
Dans Clt, il y a 2zone de texte et 2combobox (Traitement et Type de pièces) que j'ai remplit en dur,
Dans Calcul, j'ai 7zones de texte, je vais les apeller : Nompièce, lar, haut, long, nb de pièce, nb de face et total.

Vous me suivez jusque là, lol :D , bon ok je continue...

Alors je n'arrive pas à copier ce que je sélectionne dans la combobox "Type de pièces" qui devrai lorsque j'appuies sur "OK" se mettre dans la zone de texte "Nompièce".

Mon 2ème problème ;

Selon le type de pièce que l'on choisit, les zones de texte dont je n'ai pas besoin, n'apparaisse pas. PAr exemple, pour une pièce de tôle il y a que la cellule hauteur qui n'apparaisse pas.

Merci de bien vouloir me dire quelque syntaxe si possible sinon tanpis

Re

Comme je te l'est déjas dit pour le ComboBox je ne peut pas t'aider
pour l'affichage de tes textBox utilise "Visible" avec une condition ex:

Code:

---

1 2 3

If Recup = "Tole" then Haut.visible = false end if

---

Recup = ta selection dans ton combobox ou ta variable

Comme ma dit ZAZA la première foie que je suis venu sur le Forum :
Ne te décourrage pas ... tu vas y arriver.

A+

Citation:

---

Envoyé par lulux80

Le premier ;
Alors je n'arrive pas à copier ce que je sélectionne dans la combobox

---

Pour recupere le contenu d'un combobox tu fait

Code:

---

Cont = Combo1.text 'Cont est une variable que tu as declarer

---

Citation:

---

Envoyé par lulux80

Mon 2ème problème ;
Selon le type de pièce que l'on choisit, les zones de texte dont je n'ai pas besoin, n'apparaisse pas. PAr exemple, pour une pièce de tôle il y a que la cellule hauteur qui n'apparaisse pas.

---

je pense comme BM42

Bah merci à vous deux, j'essayerai ça demain, et pour le 1er problème enfaite g réusit, je metrai la syntaxe au cs où pour les autres gens. bye

Citation:

---

Envoyé par BM42

Comme ma dit ZAZA la première foie que je suis venu sur le Forum :
Ne te décourrage pas ... tu vas y arriver.

---

On parle de moi ?

1)

Code:

---

1 2 3

' S'il y a une sélection de faite dans le comboBox alors ' afficher la sélection dans le TextBox If cboTypePiece.ListIndex > -1 Then txtNomPiece.Text = cboTypePiece.Text

---

2) Ne sachant pas comment tu détermines qu'une pièce est en tôle ou pas...

Code:

---

1 2 3 4 5 6 7 8 9

If <Condition> Then txtChamp1.Visible = False txtChamp2.Visible = False ' ... Else txtChamp1.Visible = True txtChamp2.Visible = True ' ... End if

---

Si besoins de plus d'explications... tu dis

Salut Zaza

Et oui on parle de toi.
Tu a ete une des première à me répondre sur le forum il y a déjas quelque temps et j'avoue qu'à l'époque j'étais un peut débité, comme Lulux80.
Mais de puis je suis passé du stade de très beaucoup vachement nul à pas trops nul.(Grace a notre site Adoré !!!:king: )

A+

Alors pour la réponse à la question 1) : J'ai mis ce code ci-dessous dans le bouton OK du form soit Clt et le tour est joué.

Code:

---

Saisie.txtnompiece.Text = Compie.List(Compie.ListIndex)

---

Pour la réponse à la question 2) : Je vais m'y mettre dès aujourd'hui.

@+

Bah moi c'est ... pas zazaraignée mais AurélieB qui m'a beaucoup aidé. Merci à toi encore

Citation:

---

Envoyé par zazaraignée

2) Ne sachant pas comment tu détermines qu'une pièce est en tôle ou pas...

Code:

---

1 2 3 4 5 6 7 8 9

If <Condition> Then txtChamp1.Visible = False txtChamp2.Visible = False ' ... Else txtChamp1.Visible = True txtChamp2.Visible = True ' ... End if

---

Si besoins de plus d'explications... tu dis

---

Enfet c'est la pièce est soit en tôle, rond, carré (y'a différentes formes)
La syntaxe je la mets où ?
Dois-je la mettre dans la zone de texte "txtnompièce" ou dans le form_load()

Si besoins de plus d'explications... tu dis ==> Je dis 8-)

Citation:

---

Si besoins de plus d'explications... tu dis ==> Je dis

---

JE! dis!

Citation:

---

Envoyé par AurelieB

JE! dis!

---

Non madame pas dès le réveil, pis sinon j'anticipe lol
a toute

Re

Tu doit mettre ton code dans la partie de ton prog qui s'exécute dés que ta condition est définie ex:
si ta condition est définie avant le chargement de ta form tu peut donc mettre ton code dans le form_load.

A+

Alors je voudrai faire un select qui me permettrai d'afficher ou non selon les types de pièces certaines txtbox

Ex : je selectionne "tôle" et ça maficherai ça ;

("Me = Saisie")

Me.txtlarg.Visible = True
Me.txtlong.Visible = True
Me.txtpiece.Visible = True
Me.txthaut.Visible = False

Code:

---

1 2 3 4 5 6 7 8 9

Select Case "tôle" Case valeur instructions Case valeur2 instructions Case valeur3 instructions ... End Select

---

Merci

salut,
j'ai l'impression qu c'est tout melange dans ta tete...ou bien c'est la mienne! :roll:
attention! on utilise un select case de la facon suivante

Code:

---

1 2 3 4 5 6 7 8 9 10 11

select Saisie.txtnompiece.Text 'ici le nom d'une variable case "tole" 'ici les valeurs qu'elle peut prendre 'rendre visible ce qu'il faut 'calculs divers   case "blabla"   'autres instructions   end select

---

voir aussi http://www.developpez.com/vbasic/tut...tutoriel13.php
C'est plus clair?

re

A femme quand tu nous tiens .... heu... ne nous égarons pas.
Pour quoi un select case ?
Que veux tu faire exactement?

pour l'affichage de tes textbox:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

If condition = "Tole" then Formulaire.txtlarg.Visible = True Formulaire.txtlong.Visible = True Formulaire.txtpiece.Visible = True Formulaire.txthaut.Visible = False elseif condition = "Care" then Formulaire.txtlarg.Visible = True Formulaire.txtlong.Visible = True Formulaire.txtpiece.Visible = True Formulaire.txthaut.Visible = True elseif .... ..... End if

---

Si ta condition est vérifiable au chargement de ton formulaire tu place ce code dans ton form_load

A+

Re

Apparament tu te mélange les peinceaux entre les Select Case et les IF...
on est plusieur a te proposer nos solutions en interprettant tes messages...
résultat on est plus trops sur de bien te comprendre.
Prend le temps de réflechir à ton problème et de faire des choix puis réexplique nous se que tu veux faire exactement.
Cela nous éviteras de t'embrouiller avec nos bout de code.

A+

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Select Case Saisie.txtnompiece.Text Case "Tôle" Saisie.txtlarg.Visible = True Saisie.txthaut.Visible = False Saisie.txtlong.Visible = True Saisie.txtpiece.Visible = True Case "Profil Carrés" Saisie.txtlarg.Visible = True Saisie.txthaut.Visible = True Saisie.txtlong.Visible = True Saisie.txtpiece.Visible = True Case ....

---

G réussi à faire ce que je voulé encore grâce à MadameAurélieB, je tadore lol :yaisse2:

Prochaine étape : les calculs
Question puis-je mettre une condition dans le "case"

Exemple :
Case "Tôle"
Saisie.txtlarg.Visible = True
Saisie.txthaut.Visible = False
Saisie.txtlong.Visible = True
Saisie.txtpiece.Visible = True
ET METTRE MON CALCUL ICI, donc là ça serait de saisir des chiffres dans txtlarg, txtlong et txtpieces et d'en faire une multiplication et stocker la valeur dans txttotal
End select

txtlarg = 5,
txtlong = 2
txtpieces = 2

5 * 2 * 2 =
txttotal = 20

pui de le stocker car si je rajoute une autre pièces différentes..; merci

Re

Contant pour toi ... Continu :king:
En se qui concerne ton calcul s'est possible uniquement si tes valeurs sont déjas stockées dans des variables.
Si tu doit les saisirs après l'affichage de ton formulaire (ce qui me semble etre ton cas utilise plutot :

Code:

---

1 2 3

Private sub textPieces_Change() txttotal.text = txtlarg.txt * txtlong.txt * txtpièces.text end sub

---

puis enregistre tes modifs avec Update
ou crais ta ligne avec Addnew

a+
(PS : pour une question pratique je te conseil de fermer cette discution et d'en ouvrir une autre pour tes nouvelles question)

Par exemple si tu nous disais
1. l'utilisateur choisis forme de piece ds combobox => je remplis le nom de la piece dans 1 nouvelle forme (il y a 2 sortes de pieces ou 100?)
2.Les champs(textes) de dimensions apparaissent
3. l'utilisateur remplit les champs => je fais un calcul
4. ensuite QUOI?!!! je stock , je passe au suivant, j'envoie 1 msge, je ferme l'appli , je dis merci a Aurelie?
5...6......?

alors on te guiderai, dans le choix des variables, des algo etc....
mais la on doit deviner qu'apres l'evenement d'ouverture de la fenetre ou certains champs de dimensions apparaissent tu dois attendre que l'utilisateur remplisse ces champs? Si c'est le cas tu peux pas encore faire ton calcul lors du select case. Sinon, prends ton temps, redige le deroulement des evenements ...et on gagnera du temps

Bon je vais refaire le déroulement :

-3 formulaires (clt, saisie, resultat)
-clt = 2textbox, 2combobox
-saisie = 6textbox et 1combobox
-resultat = NADA pour l'instant...

-Je sélectionne le type de pièces dans une combobox "compie" (Clt) qui va
me mettre la pièce que j'ai choisi dans txtnompiece (saisie) et en appuyant sur OK (Clt) ça me cache les textbox dont j'ai pas besoin.

Jusqu'ici ça marche avec ce dont vous m'avez donné.

-Là, ça serai de faire le calcul d'une pièce et SI je rajoute une autre pièce, je voudrai stocker la valeur précédente dans une autre cellule pour la reprendr après afin de l'aditioner à l'ajout...

@+