Calcul sur chaque cellule différentes d'une colonne dans une feuille Excel

Bonjour,

Je rencontre actuellement un problème en VBA.

Je dispose d'un tableau Excel qui contient plusieurs colonne dont :

- identifiant

-date, etc

J'ai au préalable trier mon tableau par Identifiant et ensuite par Date, je voudrais réaliser un programme qui me permet de calculer pour chaque identifiant différent si il possède plus de 15 lignes (cad si je le retrouve plus de 15 fois dans mon tableau) et moins de 730 fois. Et si l'identifiant ne répond pas à ces conditions, je le supprime.

Pouvez-vous m'aider?

Merci d'avance.

Bonjour,

A adapter :

Sub Test()

   MsgBox CompteIdentifiant(Range("Tableau1[Identifiant]"), "A")

End Sub

Function CompteIdentifiant(ByVal AireATester As Range, ByVal ValeurATester As String) As Integer

         CompteIdentifiant = WorksheetFunction.CountIf(AireATester, ValeurATester)

End Function