Comment trouver le premier jour du mois à l’aide de VBA (avec exemple)

Vous pouvez utiliser la fonction DateSerial() dans VBA avec une valeur de 1 pour l’argument jour pour rechercher le premier jour du mois pour une date dans une cellule particulière.

Par exemple, vous pouvez utiliser la syntaxe suivante pour rechercher le premier jour du mois pour la date dans la cellule A1 et renvoyer cette date dans la cellule B1 :

dateVal = DateValue(Range("A1"))

Range("B1").Value = DateSerial(Year(dateVal), Month(dateVal), 1)

Par exemple, si la cellule A1 contient 1/5/2023 , la cellule B1 renverra 1/1/2023 .

L’exemple suivant montre comment utiliser cette fonction dans la pratique.

Exemple : utiliser VBA pour rechercher le premier jour du mois

Supposons que nous ayons l’ensemble de données suivant dans Excel qui contient des informations sur les ventes réalisées à différentes dates dans une entreprise :

Supposons que nous souhaitions rechercher le premier jour du mois pour chaque date de la colonne A et renvoyer la date dans la cellule correspondante de la colonne C.

Nous pouvons utiliser la syntaxe suivante pour ce faire :

Sub FirstDayOfMonth()

Dim i As Integer

For i = 2 To 11
    dateVal = DateValue(Range("A" & i))
    Range("C" & i).Value = DateSerial(Year(dateVal), Month(dateVal), 1)
Next i

End Sub

Lorsque nous exécutons cette macro, nous recevons le résultat suivant :

Chacune des dates de la colonne C représente le premier jour du mois pour la date correspondante dans la colonne A.

Remarque n°1 : Dans le code, nous avons utilisé For i = 2 à 11 puisque les cellules A2 à A11 contenaient les dates qui nous intéressaient. N’hésitez pas à modifier cette plage en fonction de la plage de cellules que vous souhaitez utiliser.

Note #2 : Vous pouvez trouver la documentation complète de la fonction DateSerial() dans VBA ici .

Ressources additionnelles

Les didacticiels suivants expliquent comment effectuer d’autres tâches courantes à l’aide de VBA :

Comment trier par date dans VBA
Comment additionner si entre deux dates dans VBA
Comment compter supérieur à la date dans VBA