Help me select case [Résolu]

sonataIII 11 Messages postés mardi 9 juin 2009Date d'inscription 11 avril 2013 Dernière intervention - 29 juin 2011 à 22:05 - Dernière réponse : NHenry 14279 Messages postés vendredi 14 mars 2003Date d'inscription 22 octobre 2018 Dernière intervention
- 5 juil. 2011 à 22:07
hello

Qui peux me donner un coup de main pour cette appli que j'arrive pas trop à faire avancer ?
je suis débutant et une amies ma demandé si je pouvais lui faire un ptit soft de caisse pour son magasin.

l'idée c'est de récupérer les données dans une base de donné ( ca c'est fait)
Les ajouter à la facture ou le devis ( ca c'est en cours)
et en dernier exporter vers soit une base de donnée pour ensuite récupérer les factures dans excel (parce quelle connait)et imprimer le devis ou la facture

je tiens le bon bout enfin je crois
Je cherche de l'aide pour mes checkbox.checked == txtboxe.text

merci d'avance
Afficher la suite 

Votre réponse

6 réponses

Meilleure réponse
NHenry 14279 Messages postés vendredi 14 mars 2003Date d'inscription 22 octobre 2018 Dernière intervention - 2 juil. 2011 à 15:35
3
Merci
Bonjour,

1)
Visiblement, tu as 3 fonctions qui ont une fonction similaire.

Pour pouvoir passer par un Select Case (et rassembler ces 3 fonctions, je te conseil un système du genre :

Dim i as Integer=0
If CB.Checked then i=i+1
If Cheque.Checked Then i=i+2
If Especes.Checked Then i=i+4

Comme ça en fonction de la valeur, tu connais l'état des 3 checkBox et tu peux faire ton Select Case facilement.

Sinon, si c'est le nombre de ChekcBox cochées qui t'intéresse, tu peux aussi faire cette variante :
Dim j as Integer=0
If CB.Checked then j+=1
If Cheque.Checked Then j+=1
If Especes.Checked Then j+=1


Sinon, pour le point numéro 2 :
Si les données sont à traiter dans Excel, il est peut être plus pratique d'aller directement dans Excel.
Après, si il y a beaucoup de données à exporter, une Base de données (Access par exemple) serait plus adaptée.

Mon site

Merci NHenry 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 96 internautes ce mois-ci

Commenter la réponse de NHenry
Meilleure réponse
NHenry 14279 Messages postés vendredi 14 mars 2003Date d'inscription 22 octobre 2018 Dernière intervention - 5 juil. 2011 à 22:07
3
Merci
Bonjour,

dr :)

Tu trouveras plein d'exemple sur ce site pour te connecter à une base de données.

Mon site

Merci NHenry 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 96 internautes ce mois-ci

Commenter la réponse de NHenry
sonataIII 11 Messages postés mardi 9 juin 2009Date d'inscription 11 avril 2013 Dernière intervention - 29 juin 2011 à 22:13
0
Merci
ben je trouve pas comment uploader mes source ?
dsl je colle ca comme ca

Imports System
Imports System.Windows.Forms
Imports System.Drawing
Imports System.ComponentModel
Imports System.Collections
Imports System.Data

Public Class Form1
Inherits System.Windows.Forms.Form
Dim TVA, TTC, HT As Single
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: cette ligne de code charge les données dans la table 'BASEDataSet.DATA'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
Me.DATATableAdapter.Fill(Me.BASEDataSet.DATA)
End Sub
Private Sub Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add.Click

Dim item1 As New ListViewItem(ComboBox1.SelectedValue.ToString, 0)
Dim THT, TTC As Single

THT = val(TextBox1.Text * NumericUpDown1.Value)
TTC = val(THT + (THT * valeurTVA.Text / 100))
item1.SubItems.Add(TextBox1.Text)
item1.SubItems.Add(NumericUpDown1.Value)
item1.SubItems.Add(THT)
item1.SubItems.Add(TTC)

Devis.Items.AddRange(New ListViewItem() {item1})

Totaux()

End Sub
Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Devis.DoubleClick

Devis.Items.RemoveAt(Devis.SelectedIndices(0).ToString)
Totaux()

End Sub
Private Sub Totaux()
TTC = 0
HT = 0

For Each item As ListViewItem In Devis.Items
HT += CDbl(item.SubItems(3).Text)
TTC += CDbl(item.SubItems(4).Text)
Next

TxtTotalHT.Text = val(HT)
TxtTotalTTC.Text = val(TTC)

CheckCb()
CheckCheque()
CheckEspeces()



If Val(TxtCBTTC.Text) + Val(TxtChequeTTC.Text) + Val(TxtEspecesTTC.Text) <> Val(TxtTotalTTC.Text) And Val(TxtTotalTTC.Text) > 0 Then
valide.Text = "VALIDER & IMPRIMER"
Else
valide.Text = "DEVIS"
End If
End Sub
Private Sub CB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CB.CheckedChanged
CheckCb()
End Sub
Sub CheckCb()

If CB.Checked True And Cheque.Checked False And Especes.Checked = False Then
TxtCBTTC.ReadOnly = False
TxtCBHT.Text = val(HT)
TxtCBTTC.Text = val(TTC)
Exit Sub
Else
TxtCBTTC.ReadOnly = True
TxtCBHT.Text = ""
TxtCBTTC.Text = ""
End If



If CB.Checked True And Cheque.Checked True And Especes.Checked = False Then
TxtCBTTC.ReadOnly = False
TxtChequeTTC.ReadOnly = False
TxtCBHT.Text = val(HT / 2)
TxtCBTTC.Text = val(TTC / 2)
TxtChequeHT.Text = val(HT / 2)
TxtChequeTTC.Text = val(TTC / 2)
Exit Sub
Else
TxtCBTTC.ReadOnly = True
TxtChequeTTC.ReadOnly = True
TxtCBHT.Text = ""
TxtCBTTC.Text = ""
TxtChequeHT.Text = ""
TxtChequeTTC.Text = ""

End If

If CB.Checked True And Cheque.Checked False And Especes.Checked = True Then
TxtCBTTC.ReadOnly = False
TxtEspecesTTC.ReadOnly = False
TxtCBHT.Text = val(HT / 2)
TxtCBTTC.Text = val(TTC / 2)
TxtChequeHT.Text = val(HT / 2)
TxtChequeTTC.Text = val(TTC / 2)
Exit Sub
Else
TxtCBTTC.ReadOnly = True
TxtChequeTTC.ReadOnly = True
TxtCBHT.Text = ""
TxtCBTTC.Text = ""
TxtChequeHT.Text = ""
TxtChequeTTC.Text = ""

End If

If CB.Checked True And Cheque.Checked True And Especes.Checked = True Then
TxtCBTTC.ReadOnly = False
TxtChequeTTC.ReadOnly = False
TxtEspecesTTC.ReadOnly = False
TxtCBHT.Text = val(HT / 3)
TxtCBTTC.Text = val(TTC / 3)
TxtChequeHT.Text = val(HT / 3)
TxtChequeTTC.Text = val(TTC / 3)
TxtespecesHT.Text = val(HT / 3)
TxtEspecesTTC.Text = val(TTC / 3)
Exit Sub
Else
TxtCBTTC.ReadOnly = True
TxtChequeTTC.ReadOnly = True
TxtEspecesTTC.ReadOnly = True
TxtCBHT.Text = ""
TxtCBTTC.Text = ""
TxtChequeHT.Text = ""
TxtChequeTTC.Text = ""
TxtespecesHT.Text = ""
TxtEspecesTTC.Text = ""

End If

End Sub
Private Sub Cheque_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cheque.CheckedChanged

CheckCheque()

End Sub
Sub CheckCheque()
If Cheque.Checked True And CB.Checked False And Especes.Checked = False Then
TxtChequeTTC.ReadOnly = False
TxtChequeHT.Text = val(HT)
TxtChequeTTC.Text = val(TTC)
Exit Sub
Else
TxtChequeTTC.ReadOnly = True
TxtChequeHT.Text = ""
TxtChequeTTC.Text = ""
End If

If Cheque.Checked True And CB.Checked True And Especes.Checked = False Then
TxtCBTTC.ReadOnly = False
TxtChequeTTC.ReadOnly = False
TxtCBHT.Text = val(HT / 2)
TxtCBTTC.Text = val(TTC / 2)
TxtChequeHT.Text = val(HT / 2)
TxtChequeTTC.Text = val(TTC / 2)
Exit Sub
Else
TxtCBTTC.ReadOnly = True
TxtChequeTTC.ReadOnly = True
TxtCBHT.Text = ""
TxtCBTTC.Text = ""
TxtChequeHT.Text = ""
TxtChequeTTC.Text = ""
End If

If Cheque.Checked True And CB.Checked False And Especes.Checked = True Then
TxtCBTTC.ReadOnly = True
TxtChequeTTC.ReadOnly = False
TxtEspecesTTC.ReadOnly = False

TxtespecesHT.Text = Val(HT / 2)
TxtEspecesTTC.Text = Val(TTC / 2)
TxtChequeHT.Text = val(HT / 2)
TxtChequeTTC.Text = val(TTC / 2)
Exit Sub
Else
TxtCBTTC.ReadOnly = True
TxtChequeTTC.ReadOnly = True
TxtCBHT.Text = ""
TxtCBTTC.Text = ""
TxtChequeHT.Text = ""
TxtChequeTTC.Text = ""
End If

If CB.Checked True And Cheque.Checked True And Especes.Checked = True Then
TxtCBTTC.ReadOnly = False
TxtChequeTTC.ReadOnly = False
TxtEspecesTTC.ReadOnly = False
TxtCBHT.Text = val(HT / 3)
TxtCBTTC.Text = val(TTC / 3)
TxtChequeHT.Text = val(HT / 3)
TxtChequeTTC.Text = val(TTC / 3)
TxtespecesHT.Text = val(HT / 3)
TxtEspecesTTC.Text = val(TTC / 3)
Exit Sub
Else
TxtCBTTC.ReadOnly = True
TxtChequeTTC.ReadOnly = True
TxtEspecesTTC.ReadOnly = True
TxtCBHT.Text = ""
TxtCBTTC.Text = ""
TxtChequeHT.Text = ""
TxtChequeTTC.Text = ""
TxtespecesHT.Text = ""
TxtEspecesTTC.Text = ""
End If
End Sub
Private Sub Especes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Especes.CheckedChanged

CheckEspeces()

End Sub
Sub CheckEspeces()
If Especes.Checked True And CB.Checked False And Cheque.Checked = False Then
TxtEspecesTTC.ReadOnly = False
TxtespecesHT.Text = val(HT)
TxtEspecesTTC.Text = val(TTC)
Exit Sub
Else
TxtChequeTTC.ReadOnly = True
TxtChequeHT.Text = ""
TxtChequeTTC.Text = ""

End If

If Especes.Checked True And CB.Checked True And Cheque.Checked = False Then
TxtEspecesTTC.ReadOnly = False
TxtCBTTC.ReadOnly = False
TxtespecesHT.Text = val(HT / 2)
TxtEspecesTTC.Text = val(TTC / 2)
TxtCBHT.Text = val(HT / 2)
TxtCBTTC.Text = val(TTC / 2)
Exit Sub
Else
TxtEspecesTTC.ReadOnly = True
TxtCBTTC.ReadOnly = True
TxtespecesHT.Text = ""
TxtEspecesTTC.Text = ""
TxtCBHT.Text = ""
TxtCBTTC.Text = ""

End If

If Especes.Checked True And CB.Checked False And Cheque.Checked = True Then
TxtEspecesTTC.ReadOnly = False
TxtChequeTTC.ReadOnly = False
TxtespecesHT.Text = Val(HT / 2)
TxtEspecesTTC.Text = Val(TTC / 2)
TxtChequeHT.Text = Val(HT / 2)
TxtChequeTTC.Text = Val(TTC / 2)
Exit Sub
Else
TxtEspecesTTC.ReadOnly = True
TxtChequeTTC.ReadOnly = True
TxtespecesHT.Text = ""
TxtEspecesTTC.Text = ""
TxtChequeHT.Text = ""
TxtChequeTTC.Text = ""

End If

If CB.Checked True And Cheque.Checked True And Especes.Checked = True Then
TxtCBTTC.ReadOnly = False
TxtChequeTTC.ReadOnly = False
TxtEspecesTTC.ReadOnly = False
TxtCBHT.Text = val(HT / 3)
TxtCBTTC.Text = val(TTC / 3)
TxtChequeHT.Text = val(HT / 3)
TxtChequeTTC.Text = val(TTC / 3)
TxtespecesHT.Text = val(HT / 3)
TxtEspecesTTC.Text = val(TTC / 3)
Exit Sub
Else
TxtCBTTC.ReadOnly = True
TxtChequeTTC.ReadOnly = True
TxtEspecesTTC.ReadOnly = True
TxtCBHT.Text = ""
TxtCBTTC.Text = ""
TxtChequeHT.Text = ""
TxtChequeTTC.Text = ""
TxtespecesHT.Text = ""
TxtEspecesTTC.Text = ""

End If
End Sub
End Class
Commenter la réponse de sonataIII
NHenry 14279 Messages postés vendredi 14 mars 2003Date d'inscription 22 octobre 2018 Dernière intervention - 29 juin 2011 à 22:25
0
Merci
Bonjour,

Pour poster du code, il y a une coloration syntaxique intégrée au forum (3ième icone à partir de la droite), ce sera plus lisible.

Je ne vois pas la question, pourrais-tu la (re)formuler plus clairement en disant où tu bloques exactement ?

Mon site
Commenter la réponse de NHenry
sonataIII 11 Messages postés mardi 9 juin 2009Date d'inscription 11 avril 2013 Dernière intervention - 30 juin 2011 à 23:07
0
Merci
RE
Mon problème et dans la gestion des checkboxs avec les texboxs...
je pense qu'il faudrait que je passe par une fonction select case mais je maitrise pas
j'ai 3 checkboxes et 3 textboxes chaque textboxe doit être en relation avec le checkboxe ... ( voir le code plus haut pour plus de details)

2eme point: je sais pas si c mieux d'exporter mes données vers une base de donnée ou vers un fichier excel ?
le but étant de pouvoir faire les comptes pour chaque mois de l'année dans excel

si vous avez des bouts de code pour tout ca je suis preneur
merci d'avance
Commenter la réponse de sonataIII
sonataIII 11 Messages postés mardi 9 juin 2009Date d'inscription 11 avril 2013 Dernière intervention - 4 juil. 2011 à 21:22
0
Merci
Merci NHenry :-)

Ca roule

Maintenant j'ai plus qu'à exporter tout ce ptit bazar vers une DB :-(
Commenter la réponse de sonataIII

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.