help me select caseRésolu

Question

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

NHenry · Accepted Answer

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

sonataIII · Answer

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

NHenry · Answer

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

sonataIII · Answer

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

sonataIII · Answer

Merci NHenry :-)

Ca roule

Maintenant j'ai plus qu'à exporter tout ce ptit bazar vers une DB :-(

NHenry · Answer

Bonjour,

dr :)

Tu trouveras plein d'exemple sur ce site pour te connecter à une base de données.

Mon site

Help me select case

6 réponses

Votre réponse

Discussions similaires