Bonjour
La ligne ci-dessous me donne une erreur, quelqu'un peut donner la raison et comment la midifier
J'essai d'avoir le rng en % et le rang
merci
stat(3, J) = NB_Fois_Cites / somme_ligne_2 * 100
"""""""""""""""""""
Sub Compte_Valeur_Tableau()
Dim stat(3, 20)
For i = LBound(stat, 1) To UBound(stat, 1)
For J = LBound(stat, 2) To UBound(stat, 2)
'La première ligne du tableau contient les valeurs de 1 à 20(2ème dimension du tablau)
stat(0, J) = J
'La deuxième ligne du tableau contient le nombre de fois que la valeur de 1 à 20 a été cité depuis le début du tableau
stat(1, J) = CompteVal(Tblo, J)
'La troisième ligne contient la somme de la 2 ème ligne du tableau
stat(2, J) = Application.Sum(Application.Index(stat, 2))
'somme_ligne_2 va servir de réference pour le calcul des rangs %
somme_ligne_2 = Application.Sum(Application.Index(stat, 2))
NB_Fois_Cites = stat(1, J)
'La 4 ème ligne donne le rang en %
stat(3, J) = NB_Fois_Cites / somme_ligne_2 * 100
[O15].Resize(4, 21) = stat
Next
Next
End Sub