VBA : Comment obtenir le nom du mois à partir de la date

Vous pouvez utiliser la fonction MonthName dans VBA pour obtenir le nom du mois à partir d’une date dans Excel.

Voici une manière courante d’utiliser cette fonction dans la pratique :

Sub GetMonthName()

Dim i As Integer

For i = 2 To 11
    Range("C" & i) = MonthName(Month(Range("A" & i)))
Next i

End Sub

Cette macro particulière recherche le nom du mois pour chaque date dans la plage A2:A11 et affiche ces noms dans les cellules correspondantes dans la plage C2:C11 .

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

Exemple : Comment obtenir le nom du mois à partir de la date à l’aide de 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 obtenir le nom du mois pour chaque cellule de la colonne Date .

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

Sub GetMonthName()

Dim i As Integer

For i = 2 To 11
    Range("C" & i)= MonthName(Month(Range("A" & i)))
Next i

End Sub

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

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

Si vous souhaitez plutôt renvoyer le nom du mois abrégé, vous pouvez utiliser un argument True facultatif dans la fonction MonthName comme suit :

Sub GetMonthName()

Dim i As Integer

For i = 2 To 11
    Range("C" & i)= MonthName(Month(Range("A" & i)), True)
Next i

End Sub

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

La colonne C contient désormais le nom du mois abrégé pour chaque date correspondante dans la colonne A.

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