Nous examinerons un programme dans Excel VBA qui compte le nombre d’occurrences de l’année.

Remarque: les dates sont au format américain. Mois d’abord, jours ensuite. Ce type de format dépend des paramètres régionaux de Windows.

1. Tout d’abord, nous déclarons trois variables de type Integer. Une variable que nous appelons yearCount, une variable que nous appelons yearAsk et une variable que nous appelons i.

Dim yearCount As Integer, year Ask In Inger, j As Integer

2. Nous initialisons yearCount avec la valeur 0 et yearAsk avec la valeur de la cellule E5.

 yearCount = 0
yearAsk = Range ("E5"). Value

3. Nous commençons une boucle For Next.

For j = 1 à 8

4. Nous vérifions maintenant chaque date et seulement si l’année de la date est égale à l’année entrée dans la cellule E5, nous incrémentons yearCount de 1. Nous utilisons la fonction Year pour obtenir l’année d’une date.

If year(Cells(i, 1).Value) = yearAsk Then
    yearCount = yearCount + 1
End If

5. N’oubliez pas de fermer la boucle.

Next i

6. Enfin, nous affichons le total des occurrences de l’année. Nous utilisons l’opérateur & pour concaténer (joindre) deux chaînes.

MsgBox yearCount & " occurrences dans l'année " & yearAsk

7. Placez votre macro dans un bouton de commande et testez-la.

 Résultat:

Remarque: comme nous avons fait la variable yearAsk, vous pouvez simplement compter le nombre d’occurrences d’une autre année en entrant une autre année dans la cellule E5 et en cliquant à nouveau sur le bouton de commande.