Compter le nombre d'apparition d'une donnée dans un tableau

wampus

XLDnaute Nouveau
Compter le nombre d'apparition d'une donnée dans un tableau[Repondu]

Bonjour à tous je vous contact une nouvelle fois car j’ai toujours un petit problème au niveau du parcours de mon tableau
.
Effectivement je souhaite connaître le nombre de fois qu’une donnée est présente dans mon tableau (à taille variable).

-J’ai un tableau contenant 7 colonnes de A à G. Je dois dans un premier temps regarder si la cellule de la colonne E contient la même valeur que la cellule M3.

-Ensuite dans ma colonne D se trouve des cellules avec des données de ce genre :

AA6 ou AA5 ou AA4 ou AA3 ou AA8 ou AA9 ou AN ou ADP …

J’aimerais savoir combien de fois je peux trouver la valeur AA6 (par exemple) qui est dans la colonne D grâce à la cellule juste a coté en EX( qui doit être égal à la cellule M3).

Il faut également qu’elle réponde à une deuxième condition qui est la suivante :
Je dois soustraire l’année en cours au chiffre suivant les lettres « AA » est que le résultat donne 2003.

Ex : La valeur en D5 est AA6, je dois faire ce calcul
2009 – 6 = 2003

Donc forcement cette année seul les AA6 doivent être compté :rolleyes:

Si ce n’est pas le cas il ne doit pas être additionné au nombre de fois ou je trouve l’ élément. Voici le code que j’ai mis au point mais qui pour une raison que j’ignore ne me donne pas la bonne réponse.:confused: ^^

Pour terminer je renvois le nombre de fois ou j’ai trouvé cette valeur dans la cellule J3.
HTML:
Sub CompteAA()

    Dim n As Integer
    Dim nbAAenOk As Integer

    nbAAenOk = 0
    n = 3

    For Each cel In Range([A5], [A65000].End(xlUp))
       If Range("E" & n) = [M3] Then
          If Left(Range("D" & n), 2) = "AA" Then
            If Year(Date) - Val(Right(Range("D" & n), 2)) = 2003 Then
                nbAAenOk = nbAAenOk + 1
            End If   
          End If      
      End If    
    n = n + 1
    Next    
    Range("J3") = nbAAenOk
    
'
End Sub

Je vous envois un fichier pour que ce soit plus clair.:eek:
 

Pièces jointes

  • Exem.xls
    39.5 KB · Affichages: 147
  • Exem.xls
    39.5 KB · Affichages: 157
  • Exem.xls
    39.5 KB · Affichages: 148
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
315 102
Messages
2 116 225
Membres
112 690
dernier inscrit
noureddinee