1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68
|
Sub compterOccurence()
VarA = 1
VarB = 1
VarC = 1
VarD = 1
VarE = 3
VarF = 3
VarG = 3
VarH = 4
VarI = 5
Mon_Tableau = Array(VarA, VarB, VarC, VarD, VarE, VarF, VarG, VarH, VarI)
Set mondico = CreateObject("Scripting.dictionary")
For Each variable In Mon_Tableau
If Not mondico.exists(variable) Then 'si la valeur n'apparait pas déjà dans le dico
mondico.Add variable, 1 'je l'ajoute en tant que clé avec 1 en item
Else
mondico(variable) = mondico(variable) + 1 'sinon, j'incrémente l'item
End If
Next variable
'Debug.Print "value of VarA is " & mondico(VarA)
'ci-dessous affiche la valeur de la variable et son occurence....
For Each variable In mondico.keys
'item=occurences
'clé =valeur
'
'MsgBox mondico(variable)
If mondico(variable) = 5 Then
Arcanequintuple = Item
Quellevar5 = mondico(keys)
Debug.Print Arcanequintuple
Debug.Print Quellevar5
ElseIf mondico(variable) = 4 Then
Arcanequadruple = variable
Quellevar4 = mondico(keys)
Debug.Print Arcanequadruple
Debug.Print Quellevar4
ElseIf mondico(variable) = 3 Then
Arcanetriple = variable
Quellevar3 = mondico(keys)
Debug.Print Arcanetriple
Debug.Print Quellevar3
ElseIf mondico(variable) = 2 Then
Arcanedouble = variable
Quellevar2 = mondico(keys)
Debug.Print Arcanedouble
Debug.Print Quellevar2
End If
Next variable
End Sub |
Partager