Prob dans code

Question

Salut, 



    j'aimerais avoir un coup de main. Dans le prog qui suit, ttes les variables sont d&#233;clar&#233;s:



  j = 1



Do While j < 7

    For i = 1 To intNbreEnregistrement

            REG.Pattern = ChercherMot(j)

            Set Matches = REG.Execute(wsExcel.Cells(i + 1, 7))

            occurence = Matches.Count + occurence

    Next i

j = j + 1

Loop

    

Select Case REG.Pattern

    Case "Haemonchus"

        wsExcel.Cells(2, 14) = occurence / intNbreEnregistrement * 100 & "%"

        

    Case "Trichostrongylus"

        wsExcel.Cells(3, 14) = occurence / intNbreEnregistrement * 100 & "%"

        

    Case "Cooperia"

        wsExcel.Cells(4, 14) = occurence / intNbreEnregistrement * 100 & "%"

        

    Case "Chabertia"

        wsExcel.Cells(5, 14) = occurence / intNbreEnregistrement * 100 & "%"

        

    Case "Oesophagostomum"

        wsExcel.Cells(6, 14) = occurence / intNbreEnregistrement * 100 & "%"

        

    Case "Teladorsagia"

        wsExcel.Cells(7, 14) = occurence / intNbreEnregistrement * 100 & "%"

End Select



Le tableau ChercherMot contient les mots
Haemonchus etc. J'aimerais associ&#233; &#224; chaque mot du tableau le
pourcentage sp&#233;cifique. mais ceci ne marche pas.



Pouvez vous m'aider !



BlackMan

jrbleboss · Answer

bin si tu met



While tonmot <>cells(i,tacolonne)

i = i + 1
wend

cells(3,14)=  occurence / intNbreEnregistrement * 100 & "%"



mais je comprend pas trop ce que tu veux dire.



PS : le code la c'est du vba donc il suffit de rajouter wsexcel comme tu l'as nomm&#233; devant les propri&#232;t&#233;s



JRB

Prob dans code

1 réponse

Discussions similaires