Pb de test

Question

Je n'arrive pas &#224; d&#233;terminer pourquoi mon test ne se r&#233;alise pas
j'ai
con&#231;u un prog qui utilise des fonctions d'excel pour d&#233;terminer des
r&#233;sultats de valeur absolue(stock&#233;es dans un tableau) et de valeur
minimal. Par la suite un test permet de d&#233;terminer &#224; quel cellule de
mon tableau correspond la valeur minimal. N&#233;anmoins, le test ne
s'ex&#233;cute pas correctement.

        Pouvez vs m'aidez s'il vs pla&#238;t ??

    L'utilisateur rentre quatres valeurs
(Pdistale,Oesophage,Anus, et Pexcr&#233;teur), qui vt &#234;tre utilis&#233; pour
faire un calcul. le r&#233;sultat sera affich&#233; dans txtResultY1 ou Y2.

les valeurs contenues dans txtResultY1 vt servir  &#224; faire des calcul &#224; partir du fichier "Donn&#233;es.xls"



'D&#233;claration des variables

Dim appExcel As Excel.Application 'Application Excel

Dim wbExcel As Excel.Workbook 'Classeur Excel

Dim wsExcel As Excel.Worksheet 'Feuille Excel

Dim i As Integer ' Compteur pour parcourir les cellules d'une feuille excel



'If the values are numerics

  If
IsNumeric(txtSaisiePdistale.Text) = True And
IsNumeric(txtSaisieAnus.Text) = True And
IsNumeric(txtSaisieOesophage.Text) = True And
IsNumeric(txtSaisiePexcr&#233;teur.Text) = True Then



        'If the Values are strictly positives

      If
(txtSaisiePdistale.Text >= 0) And (txtSaisieAnus.Text >= 0) And
(txtSaisieOesophage >= 0) And (txtSaisiePexcr&#233;teur >= 0) Then

        Invalide = False

        

        curPdistale = CCur(txtSaisiePdistale.Text)

        curAnus = CCur(txtSaisieAnus.Text)

        curOesophage = CCur(txtSaisieOesophage.Text)

        curPexcr&#233;teur = CCur(txtSaisiePexcr&#233;teur.Text)

        

        Call ResultatY1(curPdistale, curAnus, curOesophage, curPexcr&#233;teur)

            txtResultY1.Text = curResultY1



        Call ResultatY2(curPdistale, curAnus, curOesophage, curPexcr&#233;teur)

            txtResultY2.Text = curResultY2



On Error Resume Next 'ignore errors

Set appExcel = GetObject(, "Excel.Application")

If Err.Number <> 0 Then 'Si Excel n'est pas en cours



'Ouverture de l'application Excel

Set appExcel = CreateObject("Excel.Application")

End If



'Ouverture d'un fichier Excel

Set wbExcel = appExcel.Workbooks.Open("C:\WINDOWS\Bureau\Donn&#233;es.xls")

'wsExcel correspond &#224; la premi&#232;re feuille du fichier

Set wsExcel = wbExcel.Worksheets(1)



    'Calcul de la diff&#233;rence des valeurs absolues

       
For i = 1 To 10 'La propri&#233;t&#233; Cells(n&#176;ligne,n&#176;colonne) permet de
s&#233;lectionner une seule cellule

    sgnValAbsY1(i) = CSng(Round(Abs(curResultY1 - wsExcel.Cells(i, 1)), 4))

    sgnValAbsY2(i) = CSng(Round(Abs(curResultY2 - wsExcel.Cells(i, 2)), 4))

        Next i



    'Calcul de la plus petite valeur absolue

           
sgnMinY1 = CSng(Round(WorksheetFunction.Min(sgnValAbsY1()), 4)) 'On
fait appel &#224; la fonction de calcul MIN d'Excel

           
sgnMinY2 = CSng(Round(WorksheetFunction.Min(sgnValAbsY2()), 4))

    

    'test++++++++++++++++++++++

     For i = 1 To 10

            wsExcel.Cells(16, i) = sgnValAbsY1(i)

            wsExcel.Cells(17, 1) = sgnMinY1

            wsExcel.Cells(19, i) = sgnValAbsY2(i)

            wsExcel.Cells(20, 1) = sgnMinY2

    Next i

    'fin test ++++++++++++++++++++++

    

        For i = 1 To 10

           
If (sgnValAbsY1(i) sgnMinY1 And sgnValAbsY2(i) sgnMinY2) Then

                

                Select Case i

                    Case 1

                       
lblReponse.Visible = True

                       
lblReponse.Caption = " Il s'agit de l'esp&#232;ce Ostertagia ostertagi"

                    Case 2

                       
lblReponse.Caption = " Il s'agit de l'esp&#232;ce Teladorsagia circumcinta "

                    Case 3

                       
lblReponse.Caption = " Il s'agit de l'esp&#232;ce Haemonchus contortus"

                    Case 4

                       
lblReponse.Caption = " Il s'agit de l'esp&#232;ce Trichostrongylus
colubriformis"

                    Case 5

                       
lblReponse.Caption = " Il s'agit de l'esp&#232;ce Trichostrongylus vitrinus"

                    Case 6

                       
lblReponse.Caption = " Il s'agit de l'esp&#232;ce Trichostrongylus axei"

                    Case 7

                       
lblReponse.Caption = " Il s'agit de l'esp&#232;ce Cooperia oncaphoria"

                    Case 8

                       
lblReponse.Caption = " Il s'agit de l'esp&#232;ce Cooperia curticei"

                    Case 9

                       
lblReponse.Caption = " Il s'agit de l'esp&#232;ce oesophagosyonum"

                    Case 10

                       
lblReponse.Caption = " Il s'agit de l'esp&#232;ce Chabertia"

                End Select

                

                        
Else

                           
lblConseil.Visible = True

                           
cmdNewTreat.Enabled = True

                           
lblReponse.Caption = "Impossible d'identifier l'esp&#232;ce !"

            End If

        Next i

          

        

wbExcel.Close 'Fermeture du classeur Excel

appExcel.Quit 'Fermeture de l'application Excel



'D&#233;sallocation m&#233;moire

Set wsExcel = Nothing

Set wbExcel = Nothing

Set appExcel = Nothing






BlackMan

valtrase · Answer

Salut,
Tu entends quoi par ne se r&#233;alise pas ?

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

DragonBurn · Answer

Je ne comprend pas pourquoi dans le if les deux conditions ne sont pas v&#233;rifier pour que le lblReponse puisse prendre les diff&#233;rentes valeurs souhaiters

BlackMan

Pb de test

2 réponses

Discussions similaires