Comment utiliser EoMonth dans VBA (avec exemple)

Vous pouvez utiliser la méthode EoMonth en VBA pour renvoyer le dernier jour du mois pour une date donnée.

Voici une façon courante d’utiliser cette méthode dans la pratique :

Sub LastDayOfMonth()

Dim i As Integer

For i = 2 To 11
    Range("C" & i).Value = Application.WorksheetFunction.EoMonth(Range("A" & i), 0)
    Range("C" & i).NumberFormat = "m/d/yyyy"
Next i

End Sub

Cette macro particulière recherche le dernier jour du mois pour chaque date dans la plage A2:A11 et affiche cette date dans la cellule correspondante dans la plage C2:C11 .

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

Exemple : Comment utiliser EoMonth dans VBA

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

Supposons que nous souhaitions trouver le dernier jour du mois pour chaque date dans la colonne A et l’afficher dans la colonne C.

Nous pouvons créer la macro suivante pour ce faire :

Sub LastDayOfMonth()

Dim i As Integer

For i = 2 To 11
    Range("C" & i).Value = Application.WorksheetFunction.EoMonth(Range("A" & i), 0)
    Range("C" & i).NumberFormat = "m/d/yyyy"
Next i

End Sub

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

Notez que la colonne C contient le dernier jour du mois pour chaque date correspondante dans la colonne A.

Notez que nous avons utilisé la propriété NumberFormat pour afficher les valeurs de date dans un format de date reconnaissable dans la colonne C au lieu des numéros de série, qui est le format par défaut dans Excel.

Notez également que le dernier argument de la méthode EoMonth spécifie le nombre de mois en avance ou en retard à utiliser lors du calcul du dernier jour du mois.

Dans cet exemple, nous avons utilisé la valeur 0 pour spécifier que nous souhaitons rechercher le dernier jour du mois en cours.

Cependant, nous pourrions plutôt utiliser une valeur de -1 pour spécifier que nous souhaitons rechercher le dernier jour du mois précédent ou une valeur de 1 pour spécifier que nous souhaitons rechercher le dernier jour du mois suivant.

Remarque : Vous pouvez trouver la documentation complète de la méthode EoMonth en VBA ici .

Ressources additionnelles

Les didacticiels suivants expliquent comment effectuer d’autres tâches courantes dans VBA :

Comment comparer les dates dans VBA
Comment convertir une chaîne en date dans VBA
Comment calculer les jours entre deux dates en VBA