Fichier excel , Dénombrement et calcul de pourcentage

Question

Salut,



       Je prog en VB6. Je souhaite dans
mon programme d&#233;terminer combien de fois un mot se r&#233;p&#232;te. Pour ma
recherche, j'utilise des mots stock&#233;s dans un tableau ChercherMot.

Voici le code que j'utilise (Toutes mes variables sont d&#233;finies) :





 'Initialisation du tableau ChercherMot

  ChercherMot(1) = "Haemonchus"

  ChercherMot(2) = "Trichostrongylus"

  ChercherMot(3) = "Cooperia"

  ChercherMot(4) = "Chabertia"

  ChercherMot(5) = "Oesophagostomum"

  ChercherMot(6) = "Teladorsagia"



Private Sub Analysis()

    Dim Matches As MatchCollection

    Dim Match As Match

    Dim occurence As Integer

  

    j = 1

 

 Do While j < 7

   For i = 1 To intNbreEnregistrement

            REG.Pattern = ChercherMot(2)

            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

End Sub



A l'appel de cette fonction, il y a un probl&#232;me. Je ne sais pas
exactement ou il est. Je veux que  la fonction 
m'affiche  par ex  
Haemonchus     30  %  si en oscultant le
fichier .xls on le retrouve 3 fois sur 10 en registrement.  

Mon nombre d'enregistrement est d&#233;terminer par intNbreEnregistrement.





Je suis &#224; l'&#233;coute de vos propositions. Je vous remercie d'avance !


BlackMan

valtrase · Answer

Lut,
Les cellules de ton fichier *.xls ont quel format?

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Fichier excel , Dénombrement et calcul de pourcentage

1 réponse

Discussions similaires