Ci-dessous, nous examinerons un programme VBA dans Excel qui compte le nombre d’occurrences de l’année.

Situation:

Year Occurrences in Excel VBA

Note: Les dates sont au format US. Mois premier, deuxième jours. Ce type de format dépend de vos fenêtres de paramètres régionaux.

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

Dim yearCount As Integer, yearAsk As Integer, i As Integer
  1. Nous initialisons yearCount avec la valeur 0 et yearAsk avec la valeur de la cellule C4.

yearCount = 0

yearAsk = Range("C4").Value
  1. Nous commençons une boucle For Next.

For i = 1 To 16
  1. Nous vérifions maintenant chaque jour et seulement si l’année de la date est égale à l’année inscrite dans la cellule C4, nous yearCount par incrément 1. Nous utilisons la fonction année pour obtenir l’année d’une date.

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

yearCount = yearCount + 1

End If
  1. Ne pas oublier de fermer la boucle.

Next i
  1. Enfin, nous affichons les occurrences totales de l’année. Nous utilisons l’opérateur & pour concaténer (joindre) deux chaînes.

MsgBox yearCount & " occurrences in year " & yearAsk
  1. Placez votre macro dans un bouton de commande et de le tester.

Résultat:

Year Occurrences Result

Note: parce que nous avons fait la variable yearAsk, vous pouvez simplement compter le nombre d’occurrences de l’année d’une autre année en entrant une autre année en cellule C4, et en cliquant sur le bouton de commande.