HELP mais J'ai changé

**lulux80** · 21/02/2007, 16h51

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

, 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

**BM42** · 21/02/2007, 18h08

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 :

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

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+

**sovo** · 21/02/2007, 18h51

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 :

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

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

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

**lulux80** · 21/02/2007, 19h27

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

**zazaraignée** · 22/02/2007, 00h47

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 :

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

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 :

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

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

**BM42** · 22/02/2007, 08h05

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é !!!

)

A+

**lulux80** · 22/02/2007, 08h56

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 :

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

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

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

@+

**lulux80** · 22/02/2007, 08h57

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

**lulux80** · 22/02/2007, 09h01

Envoyé par zazaraignée

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

Code :

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

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

**AurelieB** · 22/02/2007, 09h04

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

JE! dis!

**lulux80** · 22/02/2007, 09h10

Envoyé par AurelieB

JE! dis!

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

**BM42** · 22/02/2007, 09h52

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+

**lulux80** · 22/02/2007, 10h25

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 :

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

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

**AurelieB** · 22/02/2007, 10h48

salut,
j'ai l'impression qu c'est tout melange dans ta tete...ou bien c'est la mienne!

attention! on utilise un select case de la facon suivante

Code :

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

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?

**BM42** · 22/02/2007, 10h54

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 :

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

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+

**BM42** · 22/02/2007, 11h08

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+

**lulux80** · 22/02/2007, 11h09

Code :

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

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

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

**BM42** · 22/02/2007, 11h40

Re

Contant pour toi ... Continu

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 :

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

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)

**AurelieB** · 22/02/2007, 11h52

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

**lulux80** · 22/02/2007, 12h15

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...

@+

HELP mais J'ai changé

VB 6 et antérieur

Discussions similaires

Partager

Partager